You can use code like:
Code:
ActiveDocument.Bookmarks("Name").Range.Fields(1).Result.Text = String$(1000, "A")
to populate a formfield with a string of any length. Simply replace 'Name' with the formfield's internal bookmark name and 'String$(1000, "A")' with your actual string.