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”文檔文件中，含有一箇嵌入式圖片

運行代碼後，判斷有嵌入式圖片存在。