Как извлечь встроенный файл .txt из слова, используя VBA

Question

Я пытаюсь написать некоторый код VBA в Word, который может извлечь встроенный файл .txt в документ Word и сохранить его в указанной папке.

Я не очень знаком с VBA, я пробовализменить этот скрипт, но безуспешно: любая помощь приветствуется!

Sub Extract ()

Dim num As Integer
Dim AD As Document
Set AD = ActiveDocument

Dim numObjects As Integer
numObjects = AD.InlineShapes.Count

'MsgBox numObjects  ' prints "11"

For num = 1 To numObjects
    If AD.InlineShapes(num).Type = 1 Then
        'it's an embedded OLE type so open it.
        AD.InlineShapes(num).OLEFormat.Open
        AD.InlineShapes(num).OLEFormat.Object.SaveAs FileName:="C:\Users\Public\test.txt", FileFormat:=42


    End If
Next num

End Sub