Как я могу искать вставленные файлы в документе Microsoft Word?

Question

У меня длинный документ Microsoft Word со многими вставленными файлами. Есть ли способ поиска вставленных файлов в документе? Я попытался найти расширение файла (CSV) с помощью команды «Найти», но это не привело к попаданию, поэтому вставленное имя файла не должно быть видно команде «Найти».

Answer 1

Вы можете использовать макрос для перебора всех InlineShapes

 Sub AllInlineShapes()

  For Each o In ActiveDocument.InlineShapes
      If o.Type = 1 Then
        Debug.Print o.Type,
        If Not o.OLEFormat Is Nothing Then
          Debug.Print o.OLEFormat.ClassType,
        End If
        If Not o.LinkFormat Is Nothing Then
            Debug.Print o.LinkFormat.SourceFullName,
        End If
        Debug.Print "."
      End If
  Next
End Sub

Или для файла Docx вы можете сделать копию и изменить расширение файла на .zip. С помощью файлового менеджера или zipviewer вы должны найти файлы в папке \DocMedia