选择文档的主要文字部分、画布、页眉和页脚中的所有图形。
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