Como posso procurar por arquivos inseridos em um documento do Microsoft Word?

Question

Eu tenho um longo documento do Microsoft Word com muitos arquivos inseridos. Existe uma maneira de procurar arquivos inseridos no documento? Tentei pesquisar a extensão do arquivo (CSV) usando o Find, mas isso não resultou em ocorrências, portanto, o nome do arquivo inserido não deve estar visível para o comando Localizar.

    

Answer 1

Você pode usar uma macro para fazer uma iteração em todas as 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

Ou, para um arquivo Docx, você pode fazer uma cópia e alterar sua extensão de arquivo para .zip. Com o explorador de arquivos ou um zipviewer você deve encontrar os arquivos na pasta \DocMedia