Shape/anchor issues

Aspose.Words Product Family
1

Do you have a way to duplicate the code below?

Dim myShape as Word.Shape
Dim myTextFrame as TextFrame
For Each myShape In Wrd.ActiveDocument.Shapes
If myShape.Anchor.Bookmarks.Exists(startBookmark) Then
myTextFrame = myShape.TextFrame
Exit For
End If
Next myShape
2

Hi
Thanks for your request. I think you can try using the following code:

'Open document
Dim doc As Document = New Document("C:\Temp\in.doc")
'Get collection of Shapes
Dim shapes As NodeCollection = doc.GetChildNodes(NodeType.Shape, True)
'Loop through shapes
For Each shp As Shape In shapes
If (Not shp.ParentNode.Range.Bookmarks("mybk") Is Nothing) Then
'Do something
End If
Next

Hope this helps.
Best regards.