Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.11.2009, 17:38   #1
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию Нумерация строк: 20 видов 1 кнопкой

Вчера из одной любопытной (уже прибитой) темки вырисовался нижеследующий макрос.
Код:
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
Вложения
Тип файла: doc NumLines.doc (35.5 Кб, 17 просмотров)

Последний раз редактировалось Sasha_Smirnov; 18.11.2009 в 02:23. Причина: тема.
Sasha_Smirnov вне форума Ответить с цитированием
Старый 20.11.2009, 01:37   #2
Aent
Форумчанин
 
Аватар для Aent
 
Регистрация: 17.07.2009
Сообщений: 519
По умолчанию

Хотел бы заметить что имя переменной 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]])
Aent вне форума Ответить с цитированием
Старый 30.12.2023, 19:30   #3
Sasha_Smirnov
Особый статус
Участник клуба
 
Аватар для Sasha_Smirnov
 
Регистрация: 24.11.2008
Сообщений: 1,535
По умолчанию

Да всё хорошо, что хорошо срабатывает!
Sasha_Smirnov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
какая база данных имеет расширение .adb студентка Софт 2 02.10.2009 12:30
Когда време имеет значение Picaso18 Паскаль, Turbo Pascal, PascalABC.NET 3 22.01.2009 02:21
Строка состаяния или загрузачная строка Sergeu Мультимедиа в Delphi 8 27.08.2008 10:32
Размер имеет значение Xenofibrius Общие вопросы Delphi 3 20.04.2008 23:38
Всегда позади и всегда впереди в одном приложении Legat Win Api 4 27.10.2007 15:48