creating separate tables in VBA word

[ap2wang]

So basically, I am trying to create two separate tables in VBA, one below the other.

I've checked a lot of threads, but cant figure it out. keep getting error. I am able to create the first table, or create a second table nested in the first one, but is unable to create two separate tables.

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


the line "Set oTable2 = oDoc.Tables.Add(oDoc.aRange, 5, 4)" gets an error. This is where i try to create the second table, and I am not sure what to do about the aRange that was declared earlier, or if i am even in the right direction.

[westconn1]

just need some minor changes

Set oTable = odoc.Tables.Add(odoc.Range(0, 0), 6, 4)
odoc.Paragraphs.Add
Set arange = odoc.Paragraphs.Last.Range
Set oTable2 = odoc.Tables.Add(arange, 5, 4)