Для моих задач мне требуется создать несколько таблиц в документе Word средствами VBA через Excel. Вот мой код
sub mainProcedure
Dim wApp As word.Application
Set wApp = createWordApplication
Dim wDoc As word.Document
Set wDoc = wApp.Documents.Add
Call createTables(wDoc, wApp)
end sub
sub createTables(wDoc as word.document, wApp as word.application)
dim table as word.table
'!!!
Set table = wDoc.Tables.Add(wDoc.Range(0, 0), 5, 5) 'Вот здесь и вся проблема. Помогите решить
'!!!
'Пробовал делать ещё таким образом
'set table = wDoc.Tables.add(wApp.Selection.Range,5,5)
table.Borders.enable = True
end sub
Function createWordApplication() As word.Application
Dim wApp As New word.Application
wApp.visible = True
Set createWordApplication = wApp
End Function
В чем заключается проблема: проблема в том, что при исполнении строчки с кодом создания таблицы (set table = wDoc.Tables.add(wDoc.Range(0,0),5,5)) вторая таблица создаётся в первой колонке первого столбца уже существующей таблицы. То есть первая таблица создаётся, в неё заносятся данные. Но при создании ещё одной таблицы в этом wDoc она вставляется не строчкой ниже существующей таблицы, а прямо в саму существующую таблицу. Я полагаю, что это связано с Range. Я пробовал делать разными способами в процессе дебага, но ничего не получилось. Подскажите, как можно сделать так, чтобы новые таблицы вставлялись в конец документа? Пока что проблему решил тем, что создаю несколько wApp и связанные с ним wDoc и на каждом из них создаю таблицы. Конечно вариант не очень. Нужно, чтобы на одном wApp и wDoc было несколько таблиц, текст и т.д.