If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
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. |
#2
|
|||
|
|||
Position insert table
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. |
Thread Tools | |
Display Modes | |
|
|