Question

选择文档的主要文字部分、画布、页眉和页脚中的所有图形。

expression.SelectAll

expression 必需。该表达式返回“应用于”列表中的一个对象。

说明

本方法不能选择 InlineShape 对象。

示例

本示例选定活动文档中的所有图形。

Sub SelectAllShapes()
    ActiveDocument.Shapes.SelectAll
End Sub

本示例选定活动文档的页眉和页脚中的所有图形，并给每一个图形添加红色阴影。

Sub SelectAllHeaderShapes()
    With ActiveDocument.ActiveWindow
        .View.Type = wdPrintView
        .ActivePane.View.SeekView = wdSeekCurrentPageHeader
    End With

    ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Shapes.SelectAll

    With Selection.ShapeRange.Shadow
        .Type = msoShadow10
        .ForeColor.RGB = RGB(220, 0, 0)
    End With
End Sub

本示例选定并删除活动文档的第一个画布中的所有图形。

Sub SelectCanvasShapes()
    Dim s As Shape
    Set s = ActiveDocument.Shapes.Range(1)
    s.CanvasItems.SelectAll
    Selection.Delete
End Sub