VBA判斷word文檔中有否存在嵌入式圖片

2019-05-31 15:17:00
tmtony8
原創
84
在Word文檔中,我們希望判斷文檔中是否存在圖片
可以通過 word文檔中的inlineshape對象的數量進行判斷,如下代碼:

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


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

    分享