MSWord VBA Копировать текст из автофигуры и удалить их

Question

Документ Word 2016 и 2003 в формате. У меня есть книга, да, я ее написал, которую нужно преобразовать в простой текст. Это выложено с автофигурами, содержащими текст, и мне нужно скопировать текст и удалить автофигуру. Прикрепленный макрос будет работать несколько, но не затрагивая автофигуры SS. Я также включил ссылку на общий каталог, содержащий скриншот (Capture.png). Есть идеи для этого? ! [Word Screenshot]: https://drive.google.com/drive/folders/152P6DPQ0LzxtvLunddNeKdYASY2fFhQ2?usp=sharing

For oShape = ActiveDocument.Shapes.Count To 1 Step -1
    If ActiveDocument.Shapes(oShape).TextFrame.HasText = True Then
        ActiveDocument.Shapes(oShape).Select

        strText = ActiveDocument.Shapes(oShape).TextFrame.TextRange.Text
        'oShape.ConvertToInlineShape
        ActiveDocument.Shapes(oShape).Delete
        Selection.TypeText strText
    End If
Next