![]() |
#6
|
|||
|
|||
![]()
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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
![]() |
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 |
![]() |
sumjoh | Word VBA | 1 | 01-29-2013 08:38 PM |
![]() |
Space Cowboy | PowerPoint | 4 | 10-04-2010 07:14 PM |
NOprintable objects | shadowbat | Drawing and Graphics | 0 | 07-05-2010 10:13 PM |