Макрос, который удалит все графические объекты в документе Writer.

[Рыбка Рио]

Может кому пригодится.

Sub Main
With ThisComponent
   For i=0 to .GraphicObjects.Count-1
      .GraphicObjects(0).dispose()
   Next
End With
End Sub