Visual Basic

Copy Code

 Private Sub ins_Barcode()
    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
 
    objword.Selection.HomeKey(Unit:=WdUnits.wdStory)
    Textboxesi = 1
    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)
        HeaderFooterAnzeigen()
        insert_Barcode(i)
        Textboxesi = Textboxesi + 1
        objWord.ActiveWindow.ActivePane.View.SeekView = WdSeekView.wdSeekMainDocument
    Next i
 End Sub