Follow along with the video below to see how to install our site as a web app on your home screen.
Anmerkung: This feature currently requires accessing the site using the built-in Safari browser.
Du verwendest einen veralteten Browser. Es ist möglich, dass diese oder andere Websites nicht korrekt angezeigt werden. Du solltest ein Upgrade durchführen oder einen alternativen Browser verwenden.
Word 2003 Makro: Schriftformatierung von einzelnen Wörtern?
Diskutiere Word 2003 Makro: Schriftformatierung von einzelnen Wörtern? im Microsoft Office Suite Forum im Bereich Office-Produkte; Guten Tag liebe Forumsteilnehmer
Ich habe schon den ganzen Morgen versucht ein wirklich einfaches Problem zu lösen.
Wie kann man in Word 2003...
#1
S
Samos
Guest
Guten Tag liebe Forumsteilnehmer
Ich habe schon den ganzen Morgen versucht ein wirklich einfaches Problem zu lösen.
Wie kann man in Word 2003 ein Makro einrichten um bestimmte Worte(!) auf Kommando zu fomatieren ???
(Beispiel Anna -> Anna; Times New Roman -> Arial)
Ich wäre für einen Tip sehr dankbar, weil Google mir nicht helfen wollte.
MfG Samos
#2
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
Hallo Samos,
für dein Beispiel könnte der Makro folgendermaßen aussehen:
Code:
Sub SucheWortMitFormatErsetzeWortFormat()
Dim s_Such As String, s_SuchFontName As String
Dim s_Ersetz As String, s_ErsetzFontName As String
->Suchen nach
s_Such = Anna
s_SuchFontName = Times New Roman
->Ersetzen durch
s_Ersetz = Anna
s_ErsetzFontName = Arial
ActiveDocument.Content.Select
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchCase = True
.Text = s_Such
.Format = True
.Font.Name = s_SuchFontName
.Replacement.Text = s_Ersetz
.Replacement.Font.Name = s_ErsetzFontName
.Execute Replace:=wdReplaceAll
End With
End Sub
Gruß Matjes
#3
S
Samos
Guest
Hallo Matjes,
ich bedanke mich schon mal sehr für Ihre Hilfe.
Haben Sie noch eine Idee, wie man normal in fett ändern kann.
Danke und herzliche Grüße Samos
#4
M
Matjes
Bekanntes Mitglied
Dabei seit
22.08.2001
Beiträge
2.308
Reaktionspunkte
0
hiermit wird aus der normalen Anna eine fette Anna
Gruß Matjes
Code:
Sub SucheWortFormatNormalErsetzeWortFormatBold()
Dim s_Such As String, s_SuchFontName As String
Dim s_Ersetz As String, s_ErsetzFontName As String
->Suchen nach
s_Such = Anna
->Ersetzen durch
s_Ersetz = Anna
ActiveDocument.Content.Select
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Wrap = wdFindContinue
.MatchWholeWord = True
.MatchCase = True
.Text = s_Such
.Format = True
.Font.Bold = False
.Replacement.Text = s_Ersetz
.Replacement.Font.Bold = True
.Execute Replace:=wdReplaceAll
End With
End Sub
#5
S
Samos
Guest
Ich weiß nicht woran es liegt aber ich kann aufeinmal bei Ersetzen unten links Format anklicken und alles wie gewünscht einstellen. Ist mir ziemlich peinlich, dass ich das wohl übersehen habe.
Danke für Ihre Mühe
MfG Samos
Thema:
Word 2003 Makro: Schriftformatierung von einzelnen Wörtern?