Position insert table

Word 2000 sr1
I have a text (part) and after this Iplaced a bookmark. I insert a table
after a bookmark. But what happens it that the table starts at the next line
and I can get it behind the text line.
This the code
Set oRange = ActiveDocument.Bookmarks("deeltabel").Range
oRange.Collapse Direction:=wdCollapseEnd

Set oTable = ActiveDocument.Tables.Add(oRange, rs_projlnk.RecordCount,
1)

ActiveDocument.Tables(1).PreferredWidth = CentimetersToPoints(4)
ActiveDocument.Tables(1).Range.Font.Size = 10
ActiveDocument.Tables(1).Range.Font.Name = "arial"

'column width adjust
ActiveDocument.Tables(1).Columns(1).Width = CentimetersToPoints(4)
' Horizontal position
ActiveDocument.Tables(1).Rows.RelativeHorizontalPo sition =
wdRelativeHorizontalPositionMargin
'move table to the right
ActiveDocument.Tables(1).Rows.SetLeftIndent LeftIndent:=120.5,
RulerStyle:= _
wdAdjustNone
I would like to move the table up like I move it to the right.
Maybe there is better solution but I search the forum on insert table but
couldn't find anything useful.

You may want to ask in a programming newsgroup such as
microsoft.public.word.vba.general; there, you'll have a better chance to get
help with this. Be sure to tell exactly what you are trying to accomplish.

--
Stefan Blom
Microsoft Word MVP


"Lodewijk" wrote in message
...
Word 2000 sr1
I have a text (part) and after this Iplaced a bookmark. I insert a table
after a bookmark. But what happens it that the table starts at the next
line
and I can get it behind the text line.
This the code
Set oRange = ActiveDocument.Bookmarks("deeltabel").Range
oRange.Collapse Direction:=wdCollapseEnd

Set oTable = ActiveDocument.Tables.Add(oRange,
rs_projlnk.RecordCount,
1)

ActiveDocument.Tables(1).PreferredWidth = CentimetersToPoints(4)
ActiveDocument.Tables(1).Range.Font.Size = 10
ActiveDocument.Tables(1).Range.Font.Name = "arial"

'column width adjust
ActiveDocument.Tables(1).Columns(1).Width = CentimetersToPoints(4)
' Horizontal position
ActiveDocument.Tables(1).Rows.RelativeHorizontalPo sition =
wdRelativeHorizontalPositionMargin
'move table to the right
ActiveDocument.Tables(1).Rows.SetLeftIndent LeftIndent:=120.5,
RulerStyle:= _
wdAdjustNone
I would like to move the table up like I move it to the right.
Maybe there is better solution but I search the forum on insert table but
couldn't find anything useful.