We're sorry Aspose doesn't work properply without JavaScript enabled.

Free Support Forum - aspose.com

Shape/anchor issues

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

Hi<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

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


Hope this helps.

Best regards.