Hi Steve,
OK. The value of a FormField is:
ActiveDocument.FormFields("
formfield_name").Result
So, depending on what you may want to do with format; AND if you want to add other text; AND if there are other formfields to deal with.....
This assumes, NO other formfields, you are NOT using proper styles (which you should...but most people do not), and you just want the results of ALL the formfields - separated by an extra paragraph ( re: not using styles). Oh, and it is using an ActiveX commandbutton in the document. You do not state how you are doing the "complete" button.
Code:
Sub CommandButton1_Click()
Dim myFF As FormField
Dim FFResult As String
Dim ThisDoc As Document
Dim ThatDoc As Document
Set ThisDoc = ActiveDocument
Application.Documents.Add
Set ThatDoc = ActiveDocument
ThisDoc.Activate
For Each myFF In ThisDoc.FormFields
FFResult = myFF.Result
ThatDoc.Activate
Selection.TypeText Text:=FFResult
Selection.TypeParagraph
ThisDoc Activate
Next
Set ThisDoc = Nothing
Set ThatDoc = Nothing
End Sub
This could be trimmed down, but as I don't know exactly what you have, it is ahrd to say. If you have other formfields, you can test for what they are by using the Type property of the FormField collection. Textboxes are type 70.
You could also build a string, appending the results from each textbox. However, I have it passing the result from each formfield independently. It may be safer that way.
Gerry
See my
Paintings and Sculpture