1

Тема: Макрос на изменение межбуквенного интервала (сброс значений до 0)

Подскажите, пожалуйста, как будет выглядеть макрос, который очистит ворд-документ от всех имеющихся в нём межбуквенных интервалов отличных от 0 (обычного)?
В документе есть как интервалы как со значением минус, так и плюс.

Спасибо!

2

Re: Макрос на изменение межбуквенного интервала (сброс значений до 0)

Sub W150429_1200()
'
Word.ActiveDocument.Select
    With Selection.Font
        
        .Spacing = 0         '' межбуквенное расстояние
        
        ''.Scaling = 100    ''масштаб букв
        ''.Position = 0 ''''''смещение
      
    End With
End Sub

3

Re: Макрос на изменение межбуквенного интервала (сброс значений до 0)

Sunbreeze пишет:

Подскажите, пожалуйста, как будет выглядеть макрос, который очистит ворд-документ от всех имеющихся в нём межбуквенных интервалов отличных от 0 (обычного)?
В документе есть как интервалы как со значением минус, так и плюс.

Спасибо!

Вот код:

Sub Font1()
'
With ActiveDocument.Content.Font
        .Spacing = 0       'межбуквенный интервал
        .Scaling = 100    'масштаб символов
        .Position = 0      'позиция по вертикали относительно базовой линии
    End With
End Sub

На всякий случай добавил: масштаб символов 100%, и вертикальная позиция 0

4

Re: Макрос на изменение межбуквенного интервала (сброс значений до 0)

Очень благодарна отозвавшимся.
А то ручками убирать из списка стилей подустала!  smile