Word VBA Макросы: Как форматировать табулятор?

Автор Anton, 16 января 2018, 10:49

Anton

Добрый день!

Я макросом записал действие, которое приводит к форматированию табулятора: он становится с подчеркиванием.

Вот фрагмент макроса:
Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(16.25), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderLines

Как сделать так, чтобы при выделении к выделенной табуляции применялся только параметр Leader:=wdTabLeaderLines? Вот эти два: CentimetersToPoints(16.25), Alignment:=wdAlignTabLeft относятся ведь к другой табуляции.
В примере нужно применить Leader:=wdTabLeaderLines ко всем символам табуляции сразу.

Хотелось бы так: выделил фрагмент, запустил макрос - и табуляция, что попала в выделение, заменилась бы на табуляцию с подчеркиванием.

[вложение удалено администратором]

Администратор

Макрос
Sub макрос()
   
    Dim TabStop As TabStop
   
    ' Отключение монитора (может это ускорит макрос).
    Application.ScreenUpdating = False
   
    ' Цикл по всем табулятором в выделенном фрагменте.
    For Each TabStop In Selection.ParagraphFormat.TabStops
        ' Делаем подчёркивание у табуляции.
        TabStop.Leader = wdTabLeaderLines
    Next TabStop

    ' Вкл. монитора.
    Application.ScreenUpdating = True
   
End Sub
[свернуть]

Anton

Прекрасно! Все просто и удобно!
Большое спасибо!