word文档批量选中图片宏代码

全选选中word中的所有图片的VBA代码。

Sub 全选所有图片()
    Dim i As InlineShape
    an = MsgBox("即将选择选区内所有图片，若无选区，则选择全文图片。", vbYesNo, "提醒")
    If an - 6 Then Exit Sub
    Set rg = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each i In rg.InlineShapes
        If i.Type = wdInlineShapePicture Then
            i.Range.Editors.Add wdEditorEveryone
        End If
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
End Sub