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

[Peach]

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

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

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

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

[Peach]

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