MS Word select picture or shape in bookmarked paragraph

  • Dear all

    Just can't get this working..

    I have a code which accesses defined bookmarks in a Word document and deletes tables located in the paragraph of the bookmark (see code example, don't mind that I access Word VBA via excel ).

    Now I would like to expand this code to be able to also find and delete pictures and shapes. After trying out so many different possibilities (Pictures, Shapes, InlineShapes) and failing, this forum seems like my last hope..

    1. Dim WDApp As Word.Application
    2. Dim WDDoc As Word.Document
    3. Set WDApp = GetObject(, "Word.Application")
    4. Set WDDoc = WDApp.ActiveDocument
    5. If WDDoc.Bookmarks("bookmarkname").Range.Tables.Count = 1 Then
    6. WDDoc.Bookmarks("bookmarkname").Range.Tables(1).Delete
    7. End If

    Thanks in advance for any help!