Office: (Office 365) Makro zur Einfügung hervorgehobener Klammern

Liebes Forum,

ich zerbreche mir den Kopf, wie man Folgendes als Makro umsetzt:

1. Der markierte Text soll in eckige Klammern gesetzt werden.
2. Die eingefügten eckigen Klammern (nicht der ursprüngliche Text dazwischen) sollen gelb hervorgehoben sein.

Mit
Selection.InsertBefore "["
Selection.InsertAfter "]"
bekomme ich Anforderung 1 hin, nicht jedoch Anforderung 2.

Weiß jemand Rat? Danke!

 

Hallo Phlp,

eine Möglichkeit:

Code:

Sub klammern()
Dim bereich As Range

Set bereich = Selection.Range
bereich.Text = "[" & bereich & "]"
bereich.Characters(1).Font.ColorIndex = wdYellow
bereich.Characters.Last.Font.ColorIndex = wdYellow
End Sub

 

Vielen Dank, Gerhard - so habe ich es hinbekommen.

Ich meinte mit hervorheben zwar nicht die Schriftart, sondern den Hintergrund, aber das hat so funktioniert:

bereich.Characters(1).HighlightColorIndex = wdYellow
bereich.Characters.Last.HighlightColorIndex = wdYellow