Word VBA Макросы. Как с помощью макроса убрать заливку в надписи?

[persik]

Как с помощью макроса убрать заливку в надписи?

[Администратор]

Макрос работает с выделенной надписью.

Sub Макрос()
     Selection.ShapeRange(1).Fill.Visible = False
End Sub

[persik]

Спасибо! Очень круто.