Добрый день!
Я макросом записал действие, которое приводит к форматированию табулятора: он становится с подчеркиванием.
Вот фрагмент макроса:
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
Прекрасно! Все просто и удобно!
Большое спасибо!