Word VBA教程:SelectCurrentTabs方法

向前扩展所选内容,直至遇到另一种制表位的段落为止。

expression.SelectCurrentTabs

expression   必需。该表达式返回一个 Selection对象。

VBA示例

本示例选定活动文档的第二段,然后将所选内容扩展到所有包含相同制表位的段落。


Set myRange = ActiveDocument.Paragraphs(2).Range
myRange.Select
Selection.SelectCurrentTabs

本示例选定具有相同制表位的段落,并检索第一个制表位的位置。本示例将所选内容移至具有相同制表位的下一个区域。然后,将第一组段落中设置的制表位添至当前所选内容中。


With Selection
    .SelectCurrentTabs
    pos = .Paragraphs.TabStops(1).Position
    .Collapse Direction:=wdCollapseEnd
    .SelectCurrentTabs
    .Paragraphs.TabStops.Add Position:=pos
End With

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号