Thanks for the reply. I actually received some help yesterday from a different source, Martin Green's Office Tips, and my problem is now solved. You were correct in your suggestion. Here's what Mr. Green suggested:
Dim DataRange As Range
Set DataRange = ActiveDocument.Bookmarks("Data").Range
If DataRange = "" Then
DataRange = "Some Text"
Else
DataRange = DataRange & " " & "More Text"
End If
ActiveDocument.Bookmarks.Add "Data", DataRange
Where I have written "Some Text" and "More Text" you can substitute with you textbox names. My example puts a space between the insertions. You could puta line break instead:
DataRange = DataRange & vbCrLf & "More Text"
I think that would work
Unsolved 
Offline 
