Leftx = ActiveDocument.Shapes(iobj).Left ' find corners Iobj = ' find the last object number corresponding to the selection rectangle just added ' Not yet tested when added to normal.dotmĭim ShapeItems() As Variant ' must be variant with Option Base 0. ' The run this macro by shortcut key from your document. ' Insert a rectangle around the objects you want to select (as you would have with the Select Objects cursor) ' Assign this macro to a Word keyboard shortcut, via File, Options, Customize Ribbon, Keyboard shortcuts, Categories = Macros, etc

If I can do this in VBA, Microsoft can implement it in word 2010. (I am just an amateur.) My solution is not the most elegant but it shows that it can be done in Word 2010.īy the way, in doing this I found that if you name an object in Word VBA (e.g., 'Rect1'), then copy it in Word, MS does not assign it a new unique name!! Stated in the code, I wrote the macro, assigned it to a shortcut key, then insert a new rectangle to surround the objects I want to select and run the macro via the shortcut. I had to change activesheet to activedocument but nothing else. I wrote a macro in Excel 2010 and copied it to Word 2010. It seems to me that it is nothing to do with the object model. Interesting conversation which I am new to.

Microsoft word select multiple pictures