PDA

View Full Version : Code to add text around tables



jen.millar
03-28-2010, 03:48 PM
Hello,
I have a form that allows users to input data for a Final Report.
I'm having trouble with one page which has text and two tables over 2 columns.
I was hoping to get the text to paste around the tables, as ideally I would like them to stay where they are (on the top and bottom of the 2nd column) I've tried changing the tables properties to both text wrap and no wrap, but this doesn't make a difference. I've changed the Table Positioning to NOT move with text and NOT overlap.

Do I need to add another bookmark for where the text should go after a certain amount of characters (would that work if there are bullet points?), or is there another work around?

Please help!

Here is my code so far...



Private Sub CommandButtonInput_Click()
vExecSum = ExecSum.ExecSumText.Text

ActiveDocument.Bookmarks("bkexecsum").Range.Fields(1).Result.Text = vExecSum

Unload Me
End Sub