Заменить таблицу в Word

@Zeag · Регистрация: 09.03.2009

Author24 — интернет-сервис помощи студентам

Добрый вечер!
Имеется небольшой затык. Есть 2 документа. Нужно из из документа 1 взять таблицу 2-ю по счету, ее удалить и поставить на ее место 2-ю таблицу из 2-го документа. Потом то же с 5-й таблицей. Удалять - потому что они с разным количеством строк и при просто вставке выходит не так. Или я не так делаю.

Собственно вопрос: как заменить таблицу? Сейчас у меня так:

Visual Basic

   Set wd1 = Documents.Open(FileName:=ThisDocument.Path & "\" & FN1)
   Set wd2 = Documents.Open(FileName:=ThisDocument.Path & "\" & FN2)
 
' документ 1: выбрать таблицу 2 и удалить, курсор остается на ее месте
wd1.Tables(2).Select
Selection.Cut
 
' документ 2: выбрать таблицу 2 и скопировать
wd2.Tables(2).Select
Selection.Copy
 
' документ 1: вставить таблицу в точку вставки
wd1.Activate
Selection.Paste
 
' ... дальше

Но думается мне, можно и без Select. Только не пойму как. Подскажите?

@Dinoxromniy · 18.11.2022, 13:26

Сообщение от Zeag

Но думается мне, можно и без Select. Только не пойму как.

Насколько я понимаю - речь про wd1.Tables.Item(2).Range.Cut или вы не это имеете в виду?

@Zeag · 18.11.2022, 19:54 **[ТС]**

Уважаемый Dinoxromniy, спасибо, что откликнулись. Есть пары файлов 18 и 19, одну пару прилагаю. Нужно из 18 взять таблицы II и V и заменить ими соответствующие таблицы в 19. Чем и как это лучше сделать? Хотелось бы через указатели, чтобы не активировать файлы - если возможно. Указатель wd1 смотрит на 18, wd2 - на 19. В таблицах может быть разное количество строк, а то бы просто переписал значения из одной в другую.

@Dinoxromniy · 19.11.2022, 08:56

Сообщение от Zeag

Чем и как это лучше сделать?

Не уверен, какой способ оптимальнее, я бы наверное делал что-то вроде кода ниже:

Visual Basic

Option Explicit
Sub rt()
Dim wd1, wd2, FN1 As String, FN2 As String, rngObj As Range, i As Integer
FN1 = "Иванов Иван 18.docx"
FN2 = "Иванов Иван 19.docx"
 
    Set wd1 = Documents.Open(FileName:=ThisDocument.Path & "\" & FN1)
    Set wd2 = Documents.Open(FileName:=ThisDocument.Path & "\" & FN2)
    
    i = 4
    
    Set rngObj = wd2.Range(wd2.Tables.Item(i).Range.Start, wd2.Tables.Item(i).Range.Start)
    wd1.Tables.Item(i).Range.Cut
    wd2.Tables.Item(i).Delete
    rngObj.Paste
    
    i = 2
    
    Set rngObj = wd2.Range(wd2.Tables.Item(i).Range.Start, wd2.Tables.Item(i).Range.Start)
    wd1.Tables.Item(i).Range.Cut
    wd2.Tables.Item(i).Delete
    rngObj.Paste
    
    Set wd1 = Nothing
    Set wd2 = Nothing
    Set rngObj = Nothing
End Sub

Код по аналогии с вашим нужно сохранить в отдельной книге и сохранить ее в той же папке, что и обрабатываемые. Таблицы нужно перечислять от большего индекса к меньшему, т.к. из исходного файла таблица удаляется (не очень понял - нужно ли их удалять или нет).

@Zeag · 19.11.2022, 18:28 **[ТС]**

Dinoxromniy, большое спасибо! Записал Ваш способ себе в копилку, буду теперь знать. Как понимаю, в rngObj хранится точка начала таблицы. Я ее нашел путем wd1.Tables(i).Select, но не допер, как сохранить или найти без селекта. А удалять надо, а то таблица "прилипает" к старой. Спасибо!

@Dinoxromniy Динохромный 1400 / 763 / 284 Регистрация: 22.12.2015 Сообщений: 2,387
	18.11.2022, 13:26	2
	Сообщение от Zeag Но думается мне, можно и без Select. Только не пойму как. Насколько я понимаю - речь про `wd1.Tables.Item(2).Range.Cut` или вы не это имеете в виду? 0

@Zeag 836 / 486 / 186 Регистрация: 09.03.2009 Сообщений: 1,675
	19.11.2022, 18:28 [ТС]	5
	Dinoxromniy, большое спасибо! Записал Ваш способ себе в копилку, буду теперь знать. Как понимаю, в rngObj хранится точка начала таблицы. Я ее нашел путем wd1.Tables(i).Select, но не допер, как сохранить или найти без селекта. А удалять надо, а то таблица "прилипает" к старой. Спасибо! 0

Заменить таблицу в Word

Решение