Word VBA: 如何删除所有图片 (嵌入式和链接)

Word VBA: 删除所有图片 (嵌入式和链接)

本指南将指导您使用 VBA 代码删除 Word 文档中的所有图片，包括嵌入式图片和链接图片。

删除所有嵌入式图片

以下代码将删除所有嵌入式图片，但不会删除链接的图片。

Sub DeleteAllPictures()
    Dim Pic As InlineShape
    For Each Pic In ActiveDocument.InlineShapes
        Pic.Delete
    Next Pic
End Sub

删除所有链接图片

如果您需要删除链接的图片，请使用以下代码：

Sub DeleteAllPictures()
    Dim Pic As InlineShape
    For Each Pic In ActiveDocument.InlineShapes
        If Pic.Type = wdInlineShapeLinkedPicture Then
            Pic.Delete
        End If
    Next Pic
End Sub

注意:

• 以上代码将删除文档中的所有图片，请谨慎使用。
• 确保您在运行代码之前已备份文档。
• 如果您需要删除特定类型的图片，请根据需要修改代码。

希望本指南对您有所帮助！