Как выделить все объекты на всех страницах текстового документа

Question

Я пытаюсь выбрать все встроенные файлы (inlineshapes) в текстовом документе, используя VBA Macro.

Однако мне удалось выбрать только все документы на активной странице / документе, используя исходный кодниже;

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
End If
    Next num
End Sub

Я думаю об изменении кода строки: установите AD = activedocument, но я не очень уверен, что его заменить.

Я очень ценю любую помощь /идеи по разрешению этого дела.