Word VBA Макросы. Как выделить все плавающие картинки в файле Word?

[Позитив]

Как выделить все плавающие картинки в файле Word с помощью макроса?

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

Sub Макрос()
    ActiveDocument.Shapes.SelectAll
End Sub

[Позитив]

Спасибо!