Office: Massenänderung nur in Kopfzeilen mit Visual Basic

Hallo,
vor Jahren hatte ich einen großen Satz an Arbeitsblättern erstellt, die nun ins englische übersetzt werden sollen. Weil viele Sätze darin wiederkehren, kann ich das mit einer VB-Prozedur machen, die ich im Netz gefunden und geringfügig angepasst habe.
Das funktionierte auch sehr gut.
Das Programm berücksichtigt jedoch ausschließlich den Textkörper und kümmert sich nicht um Kopf- und Fußzeilen. Nun muss ich einige wenige Wörter in Kopf- und Fußzeilen austauschen.
Wie muss ich dafür das unten stehende Programm ändern? Wichtig ist dabei, dass nur Kopf-/Fußzeilen berücksichtigt werden sollen.
Kompliziert wird es dadurch, dass die Kopfzeile eine dreispaltige Tabelle ist, wo Seitenzahlen, Überschrift usw. in den einzelnen Feldern stehen.
Vielen Dank für einen Tipp!

lunar_surfer

Code:

Attribute VB_Name = "Modul2"
Option Compare Text
Option Explicit

Sub Übersetzung()

Dim objWord As Word.Application
Dim objDoc As Word.Document
Dim fle As Long

'Erfordert Verweis auf die Wordbibliothek!

With Application.FileSearch
    'Dateisuche starten
    .NewSearch 'neue Suche
    .LookIn = "C:\Dokumente und Einstellungen\Desktop\test" 'Pfad; oder aus Formulartextfeld einlesen!
    .FileName = "*.doc" 'DateimaskeM oder aus Formulartextfeld einlesen!
    If .Execute(msoSortByFileName, msoSortOrderAscending) = 0 Then 'Suchen und Sortieren
        MsgBox "Keine Dateien gefunden!" 'naja
    Else
        On Error Resume Next
        'Zu Word wechseln, wenn es schon läuft
        Set objWord = GetObject(, "Word.Application")
        If Err <> 0 Then
            'Wenn fehlschlägt, dann Word öffnen
            Err.Clear
            Set objWord = CreateObject("Word.Application")
        End If
        On Error GoTo 0
        'Schleife: DOkumente bearbeiten
        For fle = 1 To .FoundFiles.Count
            Set objDoc = objWord.Documents.Open(.FoundFiles(fle)) 'Datei in Word öffnen
            'Ersetzen von "Originaltext" durch "Übersetzung" im ganzen Dokument
            objDoc.Content.Find.Execute _
                FindText:="Deutsch", _
                ReplaceWith:="English", _
                Replace:=wdReplaceAll
'Speichern unter anderem Namen (hier: Punkt durch Punkt und "Kopie" ersetzen)
            objDoc.SaveAs Replace(.FoundFiles(fle), "_Kopie.", ".")
            objDoc.Close 'Dok Schließen
            Set objDoc = Nothing 'Verweis vernichten
        Next fle
    End If
End With

objWord.Quit
Set objWord = Nothing
End Sub

Edit: Habe einen Codefehler korrigiert.

 

Ich habe genau das gleiche Problem, wäre super wenn uns einer so schnell wie möglich helfen könnte!
Zum Dank auch meine Lieblingsquelle für Schnupftabak klick hier!
Mit freundlichen Grüßen
LordesMan