SelectCurrentTabs 方法

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

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

示例

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

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