Wie ändere ich die Hervorhebungsfarbe für Text, der in Word 2007 eingegeben wird, auf Gelb?

Question

In einem VBA-Makro in MS Word 2007 möchte ich die Texthervorhebungsfarbe für den Text, der als nächstes an der Cursorposition eingegeben wird, auf Gelb umstellen.

Wenn ich die Farbe des aktuell ausgewählten Textes ändern möchte, kann ich das mit tunSelection.Range.HighlightColorIndex = wdYellow

Das scheint aber nur zu funktionieren, wenn der Text bereits existiert und ausgewählt ist.Kann ich die Hervorhebungsfarbe für den Text, der an der Cursorposition eingefügt wird, auch auf Gelb setzen?

(E.G.Wenn ich auf die Schaltfläche "Fettdruck" klicke, wird jeder zukünftige Text mutig sein, aber das scheint nicht mit der Highlight -Funktion zu funktionieren, oder gibt es eine Möglichkeit, dies zu tun?)

Answer 1

Alle zukünftigen Texte werden fett gedruckt

Nein, das wird es nicht.Beim Klicken bold Sie markieren die aktuelle Stelle im Text als Fettschrift, und wenn Sie von dieser Stelle aus mit der Eingabe fortfahren, wird der Text fett dargestellt, weil er von einer fetten Stelle aus eingegeben wird, und nicht, weil die Taste gedrückt wird.Wenn Sie klicken bold, verschieben Sie die Einfügemarke an eine andere Stelle und geben Sie ein, sie wird dann nicht fett dargestellt.

Der richtige Weg besteht darin, den Text einzufügen und die Formatierung auf seinen Bereich anzuwenden.

Dim r As Range
Set r = Selection.Range

r.Collapse wdCollapseStart
r.InsertAfter "Text to insert"
r.HighlightColorIndex = wdYellow