Suchen und Ersetzen

  • Word

    Suchen und Ersetzen

    Hallo Leute,

    ich hab jetzt Google schon mehrmals durchforstet, aber die meisten Tipps sind für Excel oder funktionieren bei mir nicht.


    Ich habe bisher folgendes probiert:

    Ein neues Makro erstellt:

    Visual Basic-Quellcode

    1. Sub Makro1(ByVal Suchwort, ByVal Ersetzwort)
    2. '
    3. ' Makro1 Makro
    4. '
    5. '
    6. Selection.Find.ClearFormatting
    7. Selection.Find.Replacement.ClearFormatting
    8. With Selection.Find
    9. .Text = Suchwort
    10. .Replacement.Text = Ersetzwort
    11. .Forward = True
    12. .Wrap = wdFindContinue
    13. .Format = False
    14. .MatchCase = False
    15. .MatchWholeWord = False
    16. .MatchWildcards = False
    17. .MatchSoundsLike = False
    18. .MatchAllWordForms = False
    19. End With
    20. Selection.Find.Execute Replace:=wdReplaceAll
    21. End Sub


    Wenn ich dieses dann beim Code des Buttons vor dem "Unload UserForm1" z.B. mittels "Makro1("[Anrede]", anrede)" aufrufen will, kommt aber ein Syntaxfehler (anrede ist der Name des Textfeldes, indem die Anrede steht).




    Erledigt: Das muss man auch erst mal rausfinden, dass man die Klammern weglassen muss, um das Makro auszuführen.. VBA ist total unlogisch. :P

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Katzenmuetze“ ()