Microsoft Office Forums - View Single Post - [Solved] Copy everything except pictures?

Stefan Blom · 04-18-2020, 12:51 PM

You could make a copy of the document and then run a macro which removes all images, shapes and objects.

Code:

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