In mehreren Worddokumenten Suchen/Ersetzen durchführen

  • Sonstige

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Mark23.

    In mehreren Worddokumenten Suchen/Ersetzen durchführen

    Hallo zusammen!

    Bin ein absoluter Newbie punkto VBA.

    Ich habe mehrere Worddokumente, die ich mit Suchen/Ersetzen durcharbeiten will.

    Beispiel:
    1. Alle Worddokumente öffnen
    2. Suchen/Ersetzen in allen gleichzeitig mit VBA-Makro
    3. Dokumente sichern und schliessen

    Eventuell könnten die durchsuchten Dokumente gleich gesichert und geschlossen werden?

    Bin um jeden Tipp dankbar.
    :)
    Mark

    Hallo Mark23,

    es mangelt gerade an dem nötigen Einsatz... ich bin müde.

    Hast du den Makrorekorder eingesetzt, um einmal den Quelltext, welcher deim Suchen und Ersetzen aufgerufen wird zu analysieren? Das wäre als erstes wichtig.

    Ich schreibe ungern komplette Quelltexte. Es soll schließlich Leute geben, die für sowetwas Geld bezahlen ;)

    Also... was hast du bisher an Quelltext? Wie siehts mit den bisherigen Programmiererfahrungen aus?

    Gruß Markus

    vorhandener Quelltext

    Hallo Markus

    Der Quelltext ist unten angehängt. Ich habe jedoch keine Befehlszeile gefunden, in der ich bestimmen kann, dass Word in allen offenen Dokumenten das Suchen/Ersetzen ausführt.
    Habe in der Hilfe nachgeschaut, denke es sollte einen Weg geben, wenn die Selection mit etwas anderem ersetzt wird. Aber mit was?

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = ""
    .Replacement.Text = "^s"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = True
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Wenn alle Dokumente zusammen mit Suchen/Ersetzen verarbeitet werden können, gibt es dann die Möglichkeit alle in einem Male zu sichern und zu schliessen?

    Oder: Wenn die Dokumente einzeln mit Suchen/Ersetzen verarbeitet und anschliessend gleich gesichert und geschlossen werden: Gibt es eine Schlaufe, die es erlaubt alle nacheinander zu verarbeiten, ohne dass jedesmal ein Skriptaufruf erfolgen muss?

    Ich weiss nicht, in welche Richtung ich gehen muss/soll.
    Was wäre das einfachste?

    Besten Dank zum voraus.
    :)
    Mark

    Hallo Mark,

    naja der Makrorekorder ist für den Einstieg, damit kann man keine sich wiederholende Prozesse durchführen. Probiere mal dieses:

    Quellcode

    1. Sub test()
    2. Dim strPath As String
    3. Dim i As Long
    4. Dim oDoc As Document
    6. strPath = "C:\kannweg\" 'Hierin wird gesucht
    7. With Application.FileSearch
    8. .LookIn = strPath
    9. .Execute msoSortByFileName
    10. Application.DisplayAlerts = wdAlertsNone 'störende Meld. ausblenden
    11. For i = 1 To .FoundFiles.Count
    12. Set oDoc = Documents.Open(.FoundFiles(i))
    13. With oDoc.Range.Find
    14. .ClearFormatting
    15. .Replacement.ClearFormatting
    16. .Text = "Franz"
    17. .Replacement.Text = "Erwin"
    18. .Forward = True
    19. .Wrap = wdFindAsk
    20. .Format = False
    21. .MatchCase = False
    22. .MatchWholeWord = False
    23. .MatchWildcards = False
    24. .MatchSoundsLike = False
    25. .MatchAllWordForms = False
    26. .Execute Replace:=wdReplaceAll
    27. End With
    28. oDoc.Save
    29. oDoc.Close
    30. Next i
    31. Application.DisplayAlerts = wdAlertsMessageBox
    32. End With
    33. End Sub


    Gruß Markus

    Danke!

    Hallo Markus

    Genau das ist die Verarbeitung, die ich gesucht habe!
    Danke vielmals! :) :) :)

    Ja, mit dem Makrorekorder reicht es nicht bis hierher.
    Mir hat dieser ungemein tolle Dienste geleistet beim Aufzeichnen von Suchen/Ersetzen-Vorgängen, ne tolle Sache für Ab-und-Zu-User.

    Kannst du mir eine Site oder ein Buch empfehlen, das mir als Einsteiger erlauben würde selber auf den richtigen Pfad zu finden, wenn wieder mal so eine Aufgabenstellung vorliegt?

    :)
    Mark

Facebook
Telefonspende