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