Hallo,
das angegebene Makro funktioniert nur, wenn vor dem Ausrufen ein Text markiert wurde.
Entscheidend ist hierbei in der Tat nur ein Befehl:
Selection.Font.Fill.Transparency = 0.5