[Redtronic]

Hi! Firstly I'd like to make it clear that I have absolutely no experience with Visual Basic in Word 2003 and therefore if anyone is able to help I would appreciate 'baby-fed instructions'

I have 3 shapes/groups in my document. I have used various macro's to manipulate the colour of all 3 groups, which therefore makes it easier for the user than having to select each group seperately and revise colour.

My problem is that: the user has to be able to have the option to delete one(or more) of the shapes and continue to colour the remaining groups onstage. Currently I'm getting a "Run-time error" which states "The items with the specified name wasn't found". I expect I'll require some sort of "IF" statement?!!

An extract of my script can be seen below:

 
Sub BlackTopLenses()
'
' BlackTopLenses Macro
' Macro recorded 28/05/2012 by New User
'
    ActiveDocument.Shapes("Group 533").Select
    ActiveDocument.Shapes.Range(Array("Group 533", "Rectangle 522")).Select
    ActiveDocument.Shapes.Range(Array("Group 533", "Rectangle 522", _
        "Group 523")).Select
    Selection.ShapeRange.Fill.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
End Sub

Any help would be greatly received...

[Rollin_Again]

Can you post a sample document?

Rollin

[panric]

Hi,I suggest you switch to VB.NET. You can use interop to operate word. That is quite simple, but note that need MS word to be installed on.