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