Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fett

Fett
09.09.2004 00:02:41
Klaudia
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!

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fett
09.09.2004 02:00:06
Björn
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige