Word VBA教程:SelectAll方法

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

expression.SelectAll

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

说明

本方法不能选择InlineShape对象。

VBA示例

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


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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号