VBA判断word文档中有否存在嵌入式图片

Sub ExitsPic()
    Dim doc As Document  '当前打开的文档对象Document
    Dim MyApp As Word.Application  'Word应用程序对象
    Dim strFileName As String '当前打开的文件名
    strFileName = "D:\1.docx" '此处可以改成你的文件名字
    Set MyApp = CreateObject("Word.Application")
    Set doc = MyApp.Documents.Open(strFileName)
    Debug.Print doc.InlineShapes.Count
    If doc.InlineShapes.Count <> 0 Then
        MsgBox "有嵌入式图片存在!"
    End If
    
End Sub

在“D:\1.docx”文档文件中，含有一个嵌入式图片

运行代码后，判断有嵌入式图片存在。