Remove objects

Charles Kenyon · #1 12-11-2019, 10:40 AM

Looking at your document with the Selection Pane open, it is a mess! Someone went to a lot of trouble to insert that border. It is made up of multiple grouped shapes.

The following macro will remove all shapes in your document. It gets rid of the line.
Use it on a copy because it may remove things you do not realize are shapes.

Code:

Sub ShapesDelete()
    Dim oShape As Shape
'    MsgBox ActiveDocument.Shapes.Count
    Do Until ActiveDocument.Shapes.Count = 0
        For Each oShape In ActiveDocument.Shapes
            oShape.Delete
        Next oShape
    Loop
End Sub

Instructions for Installing Macros from Forums or Websites by Graham Mayor, MVP

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macros to move objects prevents moving same objects with arrow keys	BruceM	Word VBA	1	03-10-2015 08:20 AM
I want to create objects that are seen and but will not print - even with Print Drawing Objects On	Darlin Nicky	Word	6	02-10-2015 02:52 PM
Convert equation objects to inline objects	sumjoh	Word VBA	1	01-29-2013 08:38 PM
Shape Objects	Space Cowboy	PowerPoint	4	10-04-2010 07:14 PM
NOprintable objects	shadowbat	Drawing and Graphics	0	07-05-2010 10:13 PM