- #1
A
addae
Guest
Hallo!
Also ich habe da ein Problem mit einem von mir aufgezeichneten Word Makro. Während des Aufzeichnens ersetze ich Großbuchstaben einer bestimmten Formatierung (10pt, Fett) durch echte (Format-Zeichen Häkchen bei Großbuchstaben) Großbuchstaben der gleichen Formatierung, um bei späteren Ersetzen auf diese Formatierung zurückgreifen zu können. ???
Während des Aufzeichnens funktionierts, aber bei nochmaligem Durchlauf für die unveränderte Originaldatei nicht. ???
Kann es sein, daß bei Makros diese Art der Formatierung (Großbuchstaben) nicht beachtet wird? Wenn ich die Schritte manuell durchgehe, funktionierts prima.
Anbei mal für den Buchstaben A das aufgezeichnete Makro namens Großbuchstabe
VIELEN DANK, denn ich bin sehr verwirrt! Beispieltext könnte ich nat. ggf. schicken.
Sub Grossbuchstabe()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = A
.Replacement.Text = A
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Also ich habe da ein Problem mit einem von mir aufgezeichneten Word Makro. Während des Aufzeichnens ersetze ich Großbuchstaben einer bestimmten Formatierung (10pt, Fett) durch echte (Format-Zeichen Häkchen bei Großbuchstaben) Großbuchstaben der gleichen Formatierung, um bei späteren Ersetzen auf diese Formatierung zurückgreifen zu können. ???
Während des Aufzeichnens funktionierts, aber bei nochmaligem Durchlauf für die unveränderte Originaldatei nicht. ???
Kann es sein, daß bei Makros diese Art der Formatierung (Großbuchstaben) nicht beachtet wird? Wenn ich die Schritte manuell durchgehe, funktionierts prima.
Anbei mal für den Buchstaben A das aufgezeichnete Makro namens Großbuchstabe
VIELEN DANK, denn ich bin sehr verwirrt! Beispieltext könnte ich nat. ggf. schicken.
Sub Grossbuchstabe()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = A
.Replacement.Text = A
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub