In mehreren WORD-Dateien Text ändern?

Hallo.
Ein verflixtes Problem. Ich habe sehr viele WORD_97-Dokumente, indenen in einem Textfeld (in der Kopfzeile) ein Eintrag geändert werden muss, um genau zu sein: aus 2006 muss 2007 werden.
Gibt es irgendeine Möglichkeit, das in einem Rutsch zu machen? Makros sind in diesen Dokumenten nicht erlaubt!
Ich nehme mal an, dass WORD selber mir da nicht weiterhelfen kann. Existiert ein Programm, mit dem man sowas automatisieren kann? Genauer: aus einem zuvor festgelegten Ordner WORD-Datei öffnen, in die Kopfzeile gehen, zum Textfeld, 2006 gegen 2007 ersetzen, speichern, schließen, nächstes WORD-Dokument öffnen usw.

Über Tipps würde ich mich seeehr freuen!

Klaus-Peter

 

Das Problem läßt sich mit Sicherheit mit VBA lösen.
Zumindest würde ich es auf diese Art versuchen.

Mfg

 

Vielen Dank für die rasend schnelle Antwort!
Ich habe da nur ein Problem: VBA! Hab' nicht den leisesten Schimmer, wie man da was macht. Schade eigentlich...

Klaus-Peter

 

Schmöker doch mal ein wenig in der VBA-Hilfe.
Die ist ziemlich gut und auch sehr umfangreich.

So schwer ist die Aufgabenstellung schliesslich auch nicht:

- Datei öffnen
- Suchen/Ersetzen-Funktion nutzen
- Datei schliessen
- Nächste Datei

Das Ganze in einer Repeat-Schleife eingebaut und schon ist das Problem gegessen

 

Das will ich tun! Nur ein kleines Problemchen sehe ich noch: mit "Suchen und Ersetzen" komme ich ja nicht an das in der Kopfzeile befindliche Textfeld! Aber vielleicht kann man das ja auch in VBA "programmieren"... Interessant ist es allemal!

Danke Dir!

Klaus-Peter

 

Hallo Klaus-Peter,
also ohne VBA-Grundkenntnisse wird eng.
Ich hab zwar hier mal einen Code zusammengestellt, aber du solltest ihn begreifen, wenn du ihn nutzen willst.

Bedenke auch dass u.U. in dutzenden Worddateien drinrumgeschrieben wird - also Datensicherung.

Code:

Sub BearbEineWordDatei(DatNam As String)
WordBasic.DisableAutoMacros 1
        Documents.Open DatNam
        ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range = _
            Replace(ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range, "2006", "2007")
        ActiveDocument.Save
        ActiveDocument.Close
WordBasic.DisableAutoMacros 0
End Sub


Sub StapelVerarbeitung()
    Dim fs As FileSearch
    Dim AnzDatei As Integer, AktDatNum As Integer
    Const StartPfad = "c:\tar"
    Const SuchDat = "*.doc"


Set fs = Application.FileSearch
With fs
    .NewSearch
    .FileName = SuchDat
    ' .FileType =msoFileTypeWordDocuments
    .LookIn = StartPfad
    .SearchSubFolders = True ' in Unterverzeichnissen suchen
    If .Execute = 0 Then
        MsgBox "Es wurden keine Dateien."
        Exit Sub
    End If
    AnzDatei = .FoundFiles.Count
End With

For AktDatNum = 1 To AnzDatei
   ' Hier die Function die die Datei bearbeitet
   ' Beim ersten durchlauf Dateien nur ausgeben
   ' bei erfolge die Bearbeitungszeiel freigeben
   Debug.Print fs.FoundFiles(AktDatNum)
   'BearbEineWordDatei (fs.FoundFiles(AktDatNum))
Next AktDatNum
End Sub

 

Das ist ja der Wahnsinn! Und in der Tat, beim ersten Hinschauen begreife ich natürlich rein gar nichts, aber vielleicht kann ich meine letzten logischen Gedankengänge reaktivieren und da durchblicken. Auf jeden Fall setze ich mich damit einmal auseinander!

Vielen vielen Dank!
Das ist ja wohl das genialste Forum, indem ich jemals herumgewurstelt habe!!!

Klaus-Peter