Sub RemoveAllObjectsFromFile()
'Macro created by Stefan Blom, MVP, April 2020
Dim ShapeCount As Long
Dim InlineShapeCount As Long
Dim i As Long
Dim j As Long
ShapeCount = ActiveDocument.Shapes.Count
InlineShapeCount = ActiveDocument.InlineShapes.Count
For i = ShapeCount To 1 Step -1
ActiveDocument.Shapes(i).Delete
Next i
For j = InlineShapeCount To 1 Step -1
ActiveDocument.InlineShapes(j).Delete
Next j
End Sub

Sub RemoveAllObjectsFromFile()
Application.ScreenUpdating = False
With ActiveDocument
  While .Shapes.Count > 0: .Shapes(1).Delete: Wend
  While .InlineShapes.Count > 0: .InlineShapes(1).Delete: Wend
End With
Application.ScreenUpdating = True
End Sub