Установить межстрочный интервал нижнего колонтитула в word с помощью VBA

Я хочу установить интервал между строками нижнего колонтитула документа word ровно 12 pt.

Я использовал этот код

ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter
Selection.ParagraphFormat.LineSpacing = 12

Но это не работает. Я использую word 2013.

1 ответ

  1. Я смог найти решение самостоятельно.

    Это сделает работу.

    With Selection.ParagraphFormat
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 12
    End With