inserting tables

[Nathan Franklin]

Hello List,

I have been trying to work this for a while now, i can;t seem to get it
working...

I am using word automation to insert tables into my document from a bookmark
range. The problem is when I loop to isnert a table each table will insert
into the first row and column of the previous table.

Here is my code below

For I = 1 to 20
InteriorRange = Doc.Bookmarks.Item("InteriorBuilding").Range ' range obj

InteriorRange.InsertParagraphAfter()

RoomTable = Doc.Tables.Add(InteriorRange, 3, 2) ' doc a reference to the
current document

RoomTable.Cell(1, 1).Range.InsertAfter("tst item")
RoomTable.Cell(1, 2).Range.InsertAfter("test")
RoomTable.Cell(2, 1).Range.InsertAfter("test")
RoomTable.Cell(2,2).Range.InsertAfter("test")
RoomTable.Cell(3, 1).Range.InsertAfter("test")
RoomTable.Cell(3, 2).Range.InsertAfter("test")

RoomTable.Cell(1, 1).Merge(RoomTable.Cell(1, 2))

Next

Any help would be greatly appreciated



thanks very much

nathan

 

[Doug Robbins - Word MVP]

You are inserting all of the tables into the one bookmark. You need to have
20 bookmarks, or some other way of defining where it is that you want the
tables inserted.

If you are doing this at the end of the document,

You could use

Dim myrange as Range, Dim RoomTable as Table
For i = 1 to 20
Doc.Range.InsertAfter vbCr
Set myrange = Doc.Range
myrange.Start=myrange.End
Set RoomTable = Doc.Tables.Add(myrange, 3, 2)
etc.
--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP