'Kopfzeile der zweiten Seite in richtiger Sprache auslesen (Name, Datum, Seite)
 
    Text_Seite2 = System.PrivateProfileString(Application.Templates(1).Path & _
      "\Corpid.ini", "Brief", "Seite2" & Combo_StandardSprache_Brief)
    Text_Seite2 = Split(Text_Seite2, "\")
 
 
    With Application
    With .ActiveDocument
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.HeaderFooter.Shapes("Text Box 12").Select
 
    End With
 
    Selection.GoTo Name:="Kopfzeile2Name"
    Selection.TypeText Text:=Text_Seite2(0)
 
    Selection.GoTo Name:="Kopfzeile2Datum"
    Selection.TypeText Text:=Text_Seite2(1)
 
    Selection.GoTo Name:="Kopfzeile2Seite"
    Selection.TypeText Text:=Text_Seite2(2)
 
End With
 
 
'Einfügen des Logos in der Kopfzeile der Zweiten Seite
 
 With Application
    With .ActiveDocument
        .ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
        Selection.HeaderFooter.Shapes("Text Box 11").Select
 
    End With
 
    Selection.GoTo Name:="Logo2Seite"
    Selection.Font.Name = Firma_Schrift
    Selection.TypeText Text:=Firma_String
 
End With