Visual Basic

Copy Code

 Private Sub Insert_TextFelder()
    Dim xname As String
    Dim i As Integer
    Dim pages As Long
    Dim prop As Object
    For Each prop In objWord.ActiveDocument.BuiltInDocumentProperties
        If UCase(prop.Name) = "NUMBER OF PAGES" Then
            pages = prop.value
        End If
    Next
    Textboxesi = 1
    objword.Selection.HomeKey(Unit:=WdUnits.wdStory)
    For i = 1 To pages
        xname = Str(i)
        If Left(xname, 1) = " " Then xname = Right(xname, Len(xname) - 1)
        objword.Selection.GoTo(What:=WdGoToItem.wdGoToPage, Name:=xname)
        insert_Textfield()
        objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument
    Next i
 End Sub