Microsoft Office Forums - View Single Post - adding tables based on a number given in a form

gmaxey · 12-25-2015, 07:29 AM

Replace Person 1 with Person {Seq TblNum}
Note that is a sequence field and the braces are created using Ctrl+F9

Bookmark the entire Person # paragraph and table.

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Range
Dim oTbl As Table
Dim lngIndex As Long
  Set oRng = ActiveDocument.Bookmarks("PersonTable").Range
  oRng.Copy
  oRng.Collapse wdCollapseEnd
  oRng.InsertBefore vbCr
  oRng.MoveStart wdParagraph, 1
  For lngIndex = 1 To ActiveDocument.FormFields("Tekst1").Result - 1
    oRng.Paste
    oRng.Collapse wdCollapseEnd
    oRng.InsertBefore vbCr
    oRng.MoveStart wdParagraph, 1
  Next
  ActiveDocument.Fields.Update
lbl_Exit:
  Exit Sub
End Sub