全选选中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