Can't select shapes via macro

macropod · #1 04-13-2012, 03:26 AM

Hi TishyMouse,

Yes, unless you specify a storyrange (and there are various ways of doing this), Word assumes you're only referring to the main story.

While the selection might not have been the 'problem', your code can be made much more efficient without it:

Code:

Sub ProcessShapes()
Dim DocSource As Document, DocTarget As Document
Dim RngStry As Range, Shp As Shape
Set DocSource = ActiveDocument
Set DocTarget = Documents.Add("Normal")
For Each RngStry In DocSource.StoryRanges
  For Each Shp In RngStry.ShapeRange
    With Shp
      .Copy
      DocTarget.PasteAndFormat (wdPasteDefault)
    End With
  Next
Next
Set DocTarget = Nothing: Set DocSource = Nothing
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Select Series Color - Macro	judicial85	Excel Programming	0	03-14-2011 02:35 PM
Where did map shapes go?	SueK	PowerPoint	1	01-20-2011 04:30 AM
Find and add new Shapes	bonani	PowerPoint	1	11-26-2009 06:21 PM
Shapes Will Not Display	JoeTx	Visio	0	03-13-2008 09:01 AM
My Shapes some appear some don't	Jean-Paul	Visio	0	03-01-2006 01:38 AM