Как сформировать таблицу word c помощью VBScript?

Question

[e1s]

Возможно ли с помощью VBscript копировать строку уже существующей в документе таблицы необходимое количество раз? Предполагаю что возможно сделать через закладки (Bookmarks), те поставить закладку полностью на строку таблицы включая символ конец строки, но что делать дальше не пойму.

Answer 1

[rosperitus]

Выделяем строку (в примере выделяем строку 1 из таблицы 1), копируем и вставляем

ActiveDocument.Tables(1).Rows(1).Select
Selection.Copy
Selection.Paste

Comments

[e1s]

У меня работает через надстройку над Word, поэтому когда пытаюсь обратится через ActiveDocument - ошибка - "требуется объект"

[rosperitus]

Тогда нужно получить объект Document, например через Documents и присвоить переменной:

Set Doc = Documents.Open
или
Set Doc = Documents(1)
Читайте доки, а далее...
Doc.Tables(1).Rows(1).Select
Selection.Copy
Selection.Paste

[e1s]

rosperitus: Теперь объект требуется объект Documents

[rosperitus]

Что за надстройка такая?!
Попробуйте через объект Application или выделите сами нужную строку в таблице и запустите
For C = 1 To N
Selection.Copy
Selection.Paste
Next
где N замените на нужное число.