Here's a simple demo of how you can loop through a specified set of formfields:
Code:
Sub Demo()
Dim StrFlds As String, i As Long
StrFlds = "FmFld1,FmFld2,FmFld3"
With ActiveDocument.Range
For i = 0 To UBound(Split(StrFlds, ","))
MsgBox .FormFields(Split(StrFlds, ",")(i)).Result
Next
End With
End Sub
Simply change "FmFld1,FmFld2,FmFld3" to whatever formfield names you use, in the order in which you want to extract them.