Listing all shape name/values in collection (Word XP)

Topic

New Reply

I’m working on a group of documents containing multiple checkbox shapes. I’m wanting to go through each document list the shape name and value (true/false) of all shapes in the collection then move to the next document in the specified folder. HansV gave me great help in doing this same type function with bookmarks. Included is what i’m trying to start with. Any help would be appreciated. Thanks much

Reply | Quote

Replies

Check boxes from the Control Toolbox are inline shapes. Try the attached macro.

Reply | Quote

These are olecontrols added to the documents by;

With ActiveDocument.Shapes.AddOLEControl( _
ClassType:=”Forms.CheckBox.1″, _
Anchor:=Selection.Range).OLEFormat.Object

I’m having trouble modifying what you provided to fit that format of shapes. Thanks for the quick response, HansV.

Reply | Quote

Simply change

Dim shp As InlineShape

to

Dim shp As Shape

and

For Each shp In doc.InlineShapes

to

For Each shp In doc.Shapes

Reply | Quote

Perfect, HansV. Thanks alot, works great.

Reply | Quote

I recently figured out that this function returns the inlineshapes in the order they were created in the document and not the order they appear in the document. I just wanted to document this for others. I spent awhile figuring this out, hope to save someone else the time. Thanks again, HansV

Reply | Quote