Private Sub Command1_Click()
 
    Dim objWord As Object
    Dim Doc As String
    Dim Kopf As String
    Dim Fuss As String
 
    ' Wenn Word schon auf ist
    Set objWord = GetObject(, "WORD.APPLICATION")
    ' Wenn du ein neues Word öffnen willst dann
    ' Set objWord = CreateObject("Word.Application")
 
    ' Hier sollte auf jeden Fall ein Dokument mit Text geöffnet sein
    ' Das Dokument sollte Kopf- und Fusszeilen enthalten
    With objWord.ActiveDocument
        Doc = .Sections(1)
        Fuss = .Sections(1).Footers(1)
        Kopf = .Sections(1).Headers(1)
    End With
    ' Text ist jetzt in den String Variablen
 
End Sub