Microsoft Excel

Herbers Excel/VBA-Archiv

Fett

  • Fett von Klaudia vom 09.09.2004 00:02:41
    • AW: Fett - von Björn B. am 09.09.2004 02:00:06

Betrifft: Fett von: Klaudia
Geschrieben am: 09.09.2004 00:02:41

Hallo,

ich weiß, dass ihr Excel- und keine Word-Experten seit aber vielleicht kann mir ja doch jemand helfen.

Folgendes: Ich möchte ein Makro, dass in meinem Word-Dokument nach Städte-Namen sucht. Wenn das Wort "München" in dem Dokument steht, soll es fett geschrieben werden und wenn "Stuttgart" oder "Dortmund" drin steht, dann auch. Es wird immer nur eine dieser drei Städte erwähnt, so dass es keine Überschneidungen geben kann.

Könnte mir da jemand helfen. Das brauche ich nämlich echt oft.
Dankeschön!

  


Betrifft: AW: Fett von: Björn B.
Geschrieben am: 09.09.2004 02:00:06

Hallo Klaudia,

probier's mal mit

Sub Makro1()
    
    With Selection.Find
        .Text = "München"
        .Replacement.Text = "München"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    With Selection.Find
        .Text = "Stuttgart"
        .Replacement.Text = "Stuttgart"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    
    Selection.Find.Execute Replace:=wdReplaceAll
        With Selection.Find
        .Text = "Dortmund"
        .Replacement.Text = "Dortmund"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

End Sub


Ansonsten stelle die Frage doch noch mal im Off-Topic-Forum, da gehört sie nämlich hin. Du findest das über den Button Forums-Seiten.

Gruß
Björn