WordAppl.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBookmark, Name:="FBVB")
WordAppl.Selection.InsertBreak(Type:=Word.WdBreakType.wdPageBreak)

    Selection.GoTo wdGoToPage, wdGoToAbsolute, 1

'Name des Dokumentes
    Private Const PathWordDocVorlage As String = "C:\Test VB\Angebotsassistent" & _
      "DE-TH\Word-Vorlagen\"
    Private Const WordDocVorlage As String = "Angebot Systemtechnic.DOT"
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button6.Click
 
 
        Dim WordAppl As Word.Application ' Word-Application
        Dim WdDoc As Word.Document       ' Word-Dokument
        Dim WordApplLiefNicht As Boolean ' Falls Word nicht läuft
 
        Dim txt As New MyTextFile("C:\Temp\" & cmb_ZAFZAG.Text & ".TXT")
        Dim pers As MyPerson = GetPersonData(txt, "AF")
 
        Dim Datum As String
        'Dim Zeit As String
        Datum = Date.Today
        'Zeit = TimeOfDay
 
        Dim pagebreak As Object = Word.WdBreakType.wdPageBreak
 
 
        ' Versuchen eine laufende Instanz von Wort zu verwenden
        On Error Resume Next
        WordAppl = GetObject(, "Word.Application")
 
        ' Wenn Word nicht ausgeführt wird, Word starten:
        On Error GoTo errorMsgWord
        If WordAppl Is Nothing Then
            WordApplLiefNicht = True
            WordAppl = CreateObject("Word.Application")
        End If
 
        ' Dokument öffnen
        On Error GoTo errorMsgVorlage
        WdDoc = WordAppl.Documents.Add(Template:=PathWordDocVorlage & _
          WordDocVorlage, NewTemplate:=False)
 
        On Error GoTo 0
 
        ' Word unsichtbar machen
        WordAppl.Application.Visible = True
 
        'Unterschrift in Textmarke einfügen
        If WordAppl.ActiveDocument.Bookmarks.Exists("UnterschriftPV1") Then
            WordAppl.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBookmark, _
              Name:="UnterschriftPV1")
            WordAppl.Selection.InlineShapes.AddPicture(FileName:="C:\Test" & _
            "VB\Angebotsassistent DE-TH\Unterschriften\BLAS.jpg")
        End If
 
        ' Dokument zerstören
        WdDoc = Nothing
 
ClearExit:
        ' Word beenden, falls wir es erst gestartet haben
        If WordApplLiefNicht Then
            WordAppl.Application.Quit()
        End If
 
        WordAppl = Nothing
        Exit Sub
 
errorMsgWord:
        MsgBox("Es konnte keine Verbindung zu Word hergestellt werden!", 16, _
          "Fehler")
        Exit Sub
 
errorMsgVorlage:
        MsgBox("Die Dokumentvorlage '" & WordDocVorlage & "' konnte nicht" & _
          "geöffnet werden !", _
            16, "Fehler")
        GoTo ClearExit
    End Sub