Помни: строка всегда имеет номер, посмотри!

[Sasha_Smirnov]

Вчера из одной любопытной (уже прибитой) темки вырисовался нижеследующий макрос.

Sub NumModes(): Static switch As Boolean, n As Long
'Программа возникла из функции вкл./откл. нумерации строк в меню Разметка страницы Word 2007'
'Запуск в документе по Alt-n (держим клавишу Alt, стучим по N)'
        If n Mod 10 = 0 Then switch = Not switch
        
        WordBasic.PageSetupLayout linenum:=Abs(switch), _
            StartingNum:=1, FromText:=2, CountBy:=n Mod 10 + 1, _
            NumMode:=IIf(n \ 10 Mod 2, 0, 2)
            
        If switch Then n = n + 1
End Sub

[Aent]

Хотел бы заметить что имя переменной switch нехорошо.
Это имя стандартной функции VBA

Switch Function

Evaluates a list of expressions and returns a Variant value or an expression associated with the first expression in the list that is True.

Syntax

Switch(expr-1, value-1[, expr-2, value-2 … [, expr-n,value-n]])

[Sasha_Smirnov]

Да всё хорошо, что хорошо срабатывает!