L
Lodewijk
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.RelativeHorizontalPosition =
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.
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.RelativeHorizontalPosition =
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.