Как создать отдельные таблицы в слове VBA?

Question

Я пытаюсь создать две отдельные таблицы в VBA

Я проверил много потоков, но не могу понять это.Продолжайте получать ошибку.Я могу создать первую таблицу или создать вторую таблицу, вложенную в первую, но не могу создать две отдельные таблицы.

Dim objWord
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set oDoc = objWord.Documents.Add
Set oTable = oDoc.Tables.Add(oDoc.Range(0, 0), 6, 4)

oDoc.Paragraphs.Add
Set aRange = ActiveDocument.Paragraphs.Last.Range

Set oTable2 = oDoc.Tables.Add(oDoc.aRange, 5, 4)

oTable.Borders.Enable = True
oTable2.Borders.Enable = True

Строка Set oTable2 = oDoc.Tables.Add(oDoc.aRange, 5, 4) получает ошибку.Я не уверен, что делать с aRange, который был объявлен ранее.

Answer 1

Попробуйте:

Dim wdApp As Object, wdDoc As Object, wdTbl As Object
Set wdApp = CreateObject("Word.Application")
With wdApp
  .Visible = True
  Set wdDoc = .Documents.Add
  With wdDoc
    Set wdTbl = .Tables.Add(.Range.Characters.Last, 6, 4)
    wdTbl.Borders.Enable = True
    .Range.InsertAfter vbCr
    Set wdTbl = .Tables.Add(.Range.Characters.Last, 5, 4)
    wdTbl.Borders.Enable = True
  End With
End With