WORD 2010 Makro formatiert Schrift nicht trotz Aufzeichnung

Computer: Software & Programmierung Office Software
#1

Hallo zusammen,

einige Einträge weiter zurück haben mein Problem mit […] suchen/ersetzen/anders formatieren beinahe lösen helfen. Nochmals vielen Dank.

Aber es ergab sich nochmals ein für mich sehr seltsames Problem.

Problem:
a) Ich zeichne das Makro auf. Dabei wird alles so gemacht wie gewünscht.
b) Ich rufe das (gespeicherte) Makro auf, und siehe da: Die Schriftformatierung wurde nicht aufgezeichnet, ist im VBA-Listing auch nicht enthalten. Mehrere Versuche, sie nachträglich an verschiedenen Stellen einzufügen, scheiterten mit Fehlermeldung.

Das Makro-Listing sieht so aus:

Sub eckige_Klammern_formatieren()
’
’ eckige_Klammern_formatieren Makro
’
’
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .Size = 11
        .Color = -587137089
    End With
    With Selection.Find
        .Text = „[*]“
        .Replacement.Text = „“
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        ’
        'Selection.Font.Name = „Calibri Light“
        ’
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Weiß bite jemand Rat, wo und wie ich einbauen kann, dass die gewünschte Schriftart Calibri Light ebenfalls angewandt wird.

Ich habe das Makro übrigens mehrfach aufgezeichnet und genau darauf geachtet, auch die Ziel-Schriftart auszuwählen - mit immer demselben (negativen) Ergebnis.

PS.: Ein andermal habe ich analog erlebt, dass die Fontfarbe nicht ins Mako übernommen wurde. Den enstpr, Befehl konnte ich nachträglich ins Script einfügen und würde das hier mit dem Font auch gerne tun.

Für Rat und Hilfe wäre ich wieder sehr dankbar.

Gruß
Ludwig

#2

Hallo zusammen,

weiß bitte wirklich niemand einen Rat?
Sorry und vorab danke.
Gruß
Ludwig

#3

weiß bitte wirklich niemand einen Rat?

Hallo Ludwig

Da ist guter Rat teuer :wink:) Ich hatte schon mal geschrieben, dass ich bei Suchen/Ersetzen Probleme habe, mal geht es, mal nicht - auch ohne Makro!

Ich habe für mich folgendes getestet: Die Ausdrücke in eckigen Klammern sollen (samt den Klammern) in Arial 20, rot und kursiv ausgegeben werden. Vielleicht hilft Dir das weiter.

In Deinem Makro schreibst Du: .Color = -587137089
Diese Konstante für Color kenn ich gar nicht.

Einen schönen Sonntag noch. Niclaus

Sub MakroTest()
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find.Replacement.Font
 .Name = "Arial"
 .Size = 20
 .Italic = True
 .Color = wdColorRed
 End With
 With Selection.Find
 .Text = "\[\*\]"
 .Replacement.Text = ""
 .Forward = True
 .Wrap = wdFindContinue
 .Format = True
 .MatchCase = False
 .MatchWholeWord = False
 .MatchAllWordForms = False
 .MatchSoundsLike = False
 .MatchWildcards = True
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub
#4

Da ist guter Rat teuer :wink:) Ich hatte schon mal geschrieben,
dass ich bei Suchen/Ersetzen Probleme habe, mal geht es, mal
nicht - auch ohne Makro!

Genau das ist mir auch wieder passiert. Man glaubt es ja nicht, dass Microsoft so Dinge auch bei der x-ten Version noch immer nicht auf die Reihe bekommt.

In Deinem Makro schreibst Du: .Color = -587137089
Diese Konstante für Color kenn ich gar nicht.

Ich auch nicht. Das hat WORD beim Aufzeichnen des Makros selber eingefügt; es war eine Farbe aus der erweiterten Farbauswahl.

Eine gute restliche Woche und nochmals Danke für deine Mühe!

Ludwig