Определить номер страницы с полем

Sub Печать_номеров_страниц_с_текстбоксами()
    Dim s
    For Each s In ActiveDocument.InlineShapes
        Select Case s.Type
             Case wdInlineShapeOLEControlObject ' OLE объект из InlineShapes
                If s.OLEFormat.ClassType = "Forms.TextBox.1" Then '
                    Debug.Print s.Range.Information(wdActiveEndPageNumber)
                End If
        End Select
    Next
    For Each s In ActiveDocument.Shapes
        Select Case s.Type
             Case msoTextBox  '  TextBox обычный
                Debug.Print s.Anchor.Information(wdActiveEndPageNumber)
             Case msoOLEControlObject ' OLE объект из обычных Shapes
                If s.OLEFormat.ClassType = "Forms.TextBox.1" Then
                    Debug.Print s.Anchor.Information(wdActiveEndPageNumber)
                End If
        End Select
    Next
End Sub