|
Visual Basic (VB and VBA) |
|
Copyright 1999-2001 Christopher Greaves. All rights reserved. Home Page and email to [email protected] |
| If in doubt, record a macro and inspect the entrails! |
Please read the DISCLAIMER.
Here is an INDEX to all the procedures.
You will probably need one copy of my GLOBAL DECLARATIONS.
Public Function lngRemoveShapes(doc As Document) As Long
' Procedure : lngRemoveShapes
' Description: Strip all shape and inlineShapegraphics from the document.
' By: Chris Greaves Inc.
' Inputs: Document
' Returns: LONG count of shapes removed.
' Assumes: Nothing
' Side Effects: None.
' Tested: By the calls shown below.
Documents(doc).Activate
lngRemoveShapes = ActiveDocument.Shapes.Count + ActiveDocument.InlineShapes.Count
Dim intShape As Integer
' We count down so as not to disturb the ordinal position of each shape in the collection.
For intShape = ActiveDocument.Shapes.Count To 1 Step -1
ActiveDocument.Shapes(intShape).Delete
Next intShape
' We count down so as not to disturb the ordinal position of each shape in the collection.
For intShape = ActiveDocument.InlineShapes.Count To 1 Step -1
ActiveDocument.InlineShapes(intShape).Delete
Next intShape
'Sub TESTlngRemoveShapes()
'MsgBox lngRemoveShapes(ActiveDocument)
'End Sub
End Function
| We all knew nothing when we started … |
|
Home Page and Contact Information Send email to [email protected]. This page was last updated Thursday, November 15, 2001 |