Hi John,
I doubt whether this has to be that complicated.
And I'm assuming, that your textfields are inlineshapes, not shapes.
Otherwise repeat all using shape instead of inlineshape.
Until someone else comes up with a better solution...

Sub Makro4()
Dim oShp As InlineShape
For Each oShp In ActiveDocument.InlineShapes
  If oShp.Type = wdInlineShapeOLEControlObject Then
     If oShp.OLEFormat.ClassType = "Forms.TextBox.1" Then
        MsgBox oShp.OLEFormat.Object.Name
        MsgBox oShp.OLEFormat.Object.Value
     End If
  End If
Next
End Sub

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/