Select range after a table in word

[MatDavies]

I am trying to automate word so that i can dynamically insert tables. However, once i have filled the first table, the second table is inserted in to the first!
How do i select the range after the table so that it will carry on inserting in the main document?

Thanks in advance.

Matt

 

[JustinEzequiel]

should be a better way but from the top of my head...

Option Explicit

Dim moWord As Word.Application
Dim moDoc As Word.Document

Private Sub Command1_Click()
  Set moWord = New Word.Application
  Set moDoc = moWord.Documents.Add
  With moDoc
    .Tables.Add .Range.Characters.Last, 5, 5
    .Range.Characters.Last.InsertAfter vbCr
    .Tables.Add .Range.Characters.Last, 4, 4
    .Range.Characters.Last.InsertAfter vbCr
    .Tables.Add .Range.Characters.Last, 3, 3
  End With
  
  moWord.Visible = True
  MsgBox "pause"
  
  moDoc.Close wdDoNotSaveChanges
  Set moDoc = Nothing
  
  moWord.Quit
  Set moWord = Nothing
End Sub

 

[MatDavies]

Thanks! I'll give it a try.