Word Shapes

[safewithyou247]

I am writing a vba macro to do several different things. One of which is to delete a defined shape out of a word document. Therein lies the problem. I have to identify the shape by dimension which should be all well and good, but some shapes are in a group of shapes and the dimensions dont match. So I was wondering, is there a way to have vba look at an image, determine if it is a shape and the go throught each individual image in the group?

If anyone can help me on this I would be most appreciative.

Thank You in advance.

[safewithyou247]

Ok this is what I have so far. I need help in the places that I put comments.

Dim objWond As Shape
    Dim vix As Integer
    Dim vox As Integer
    Dim i As Integer
    Dim a As Integer
    vox = ActiveDocument.Shapes.Count
    i = 1
    Do Until i = vox
        'need if then statement to detemine if the shape is a group or not.
        vix = ActiveDocument.Shapes(i).GroupItems.Count
        a = 1
        Do Until a = vix
            With ActiveDocument.Shapes(i)
                If .GroupItems(a).height = 365 And .GroupItems(a).width = 404 Then
                    'Need to be able to delete the shape in the group.  I tried .GroupItems(a).delete and it didn't work
                End If
            End With
            a = a + 1
        Loop
        'End if
    i = i + 1
    Loop

[TheBionicOrange]

I have only used Wordart once, and I manipulated them by giving them names. The following is a piece of code I use to apply a dummy watermark to a document.
Couldn't you do a similar thing, i.e. name each wordart you create ?
That way you could delete/set them to blank at will.

If passForm.Name = "frmInvoice" Then
            With objWord
                ' Page 1
                .ActiveDocument.Shapes("WordArt 6").Select
                .Selection.ShapeRange.TextEffect.Text = " "
                ' Page 2
                .ActiveDocument.Shapes("WordArt 8").Select
                .Selection.ShapeRange.TextEffect.Text = " "
            End With
        Else
            If Invoiced = True Then
                ' Page 1
                .ActiveDocument.Shapes("WordArt 6").Select
                .Selection.ShapeRange.TextEffect.Text = "Reprint"
                ' Page 2
                .ActiveDocument.Shapes("WordArt 8").Select
                .Selection.ShapeRange.TextEffect.Text = "Reprint"
            Else
                ' Page 1
                .ActiveDocument.Shapes("WordArt 6").Select
                .Selection.ShapeRange.TextEffect.Text = "Not Invoiced"
                ' Page 2
                .ActiveDocument.Shapes("WordArt 8").Select
                .Selection.ShapeRange.TextEffect.Text = "Not Invoiced"
            End If
        End If

[TheBionicOrange]

oops !

Just realised I have read one thread and answered another ! ha ha !!! I need more coffee !

[lrknight]

To determine if a shape is a group test the TYPE property of the shape against the msoGroup constant (grange is a shape object):
If grange.Type = msoGroup Then
MsgBox "Group"
End If

Sorry I can't be much help on the other part. I'm having some trouble with methods related to grouped shapes. If I stumble onto a solution, I'll be happy to pass it along.

SilentKnight

[TheBionicOrange]

Did you realise this thread is 6 months old ?
I had to wonder what my input on it was when the email came through.

[lrknight]

It was late