For x = 1 to 199 ActiveDocument.Shapes("Picture" & x).Delete Next
Cheers Paul Edstein [Fmr MS MVP - Word]
Forum Rules
Posting Permissions
Reply With Quote