Detecting a Shape/InlineShape within a track changes balloon

[YanivSarig]

Hi Everyone

I need help with figuring out a way to detect if a Shape / InlineShape
in a Word document is actually residing inside a track changes balloon
?

I' m trying to iterate over the Shapes and InlineShapes collections of
a document in order to retrieve some properties but I would like to
skip Shapes / InlineShapes that have been deleted and are now appearing
only within the track changes context.

Thanks for your help !

Yaniv

 

[Helmut Weber]

Hi Yaniv,

if, as usual, any suggestion would be welcome, then:

Sub Test567()
Dim oInl As InlineShape
Dim oShp As Shape
For Each oInl In ActiveDocument.InlineShapes
If oInl.Range.Revisions.Count = 0 Then
oInl.Range.Select
'your code
End If
Next
For Each oShp In ActiveDocument.Shapes
oShp.Select
If selection.Range.Revisions.Count = 0 Then
' your code
End If
Next
End Sub

Doesn't look too elegant,
but it seems, i've waited long enough
to give anybody, who knows better, a chance to speak.

Don't know about the balloons, however.

--
Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de"

 

[YanivSarig]

Helmut,

Thank you very much for your help.

This was exactly what I needed.

Best Regards,

Yaniv