макрос для абзацев - Microsoft Office Word

Genis · 29.03.2011, 18:50

Здравствуйте, в общем нужно создать макрос который применяет различные стили оформления для четн. и нечетн. абзаца. Как прописывается свойство ч/н абзацев?
заранее спасибо)

viter.alex · 29.03.2011, 22:13

Как и в математике: если номер абзаца делится нацело на два, то чётный, иначе — нечётный:

Код:

Sub test()
  Dim i As Long
  For i = 1 To ActiveDocument.Paragraphs.Count
    If i Mod 2 = 0 Then
      ActiveDocument.Paragraphs(i).Style = "Стиль чётного абзаца"
    Else
      ActiveDocument.Paragraphs(i).Style = "Стиль нечётного абзаца"
    End If
  Next i
End Sub

fukusimovv · 03.04.2011, 00:44

При запуске Outlook выдает ошибку, скрин прикладываю. Как избавиться? В сервис-макрос-макросы - пусто. Уровень безопасности высокий, низкий ставить желания нет, вирусы залезть могут.

Заранее спасибо

Sasha_Smirnov · 03.04.2011, 01:17

Волков бояться — в лес не ходить.

Можно средний выбрать — прочтёте умное предупреждение.

Sasha_Smirnov · 13.04.2011, 13:33

Вот здесь подробности: http://www.programmersforum.ru/showthread.php?p=243217

29.03.2011, 18:50	#1
Genis Новичок Джуниор Регистрация: 29.03.2011 Сообщений: 1	макрос для абзацев Здравствуйте, в общем нужно создать макрос который применяет различные стили оформления для четн. и нечетн. абзаца. Как прописывается свойство ч/н абзацев? заранее спасибо)

29.03.2011, 22:13	#2
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Как и в математике: если номер абзаца делится нацело на два, то чётный, иначе — нечётный: Код: `Sub test() Dim i As Long For i = 1 To ActiveDocument.Paragraphs.Count If i Mod 2 = 0 Then ActiveDocument.Paragraphs(i).Style = "Стиль чётного абзаца" Else ActiveDocument.Paragraphs(i).Style = "Стиль нечётного абзаца" End If Next i End Sub` Лучше день потерять — потом за пять минут долететь!©

03.04.2011, 00:44	#3
fukusimovv Новичок Джуниор Регистрация: 29.03.2011 Сообщений: 1	макрос для абзацев При запуске Outlook выдает ошибку, скрин прикладываю. Как избавиться? В сервис-макрос-макросы - пусто. Уровень безопасности высокий, низкий ставить желания нет, вирусы залезть могут. Заранее спасибо Инъекционные филлеры: Restylan имеют безупречную репутацию, доказанную клиническую безопасность и эффективность.

03.04.2011, 01:17	#4
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Волков бояться — в лес не ходить. Можно средний выбрать — прочтёте умное предупреждение. Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

13.04.2011, 13:33	#5
Sasha_Smirnov Особый статус Участник клуба Регистрация: 24.11.2008 Сообщений: 1,535	Фобос макро! У-у-у! Вот здесь подробности: http://www.programmersforum.ru/showthread.php?p=243217 Формула 1 (календарь чемпионата-2016): 26.11.2016 15:55 — Абу-Даби: http://ru.wikipedia.org/wiki/Гран-при_Абу-Даби — (квалификация)! Эфир: http://lion-tv.com/28-match-tv.html

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
удаление абзацев	D_e_n_n	Microsoft Office Word	4	10.03.2011 18:33
для работы написать макрос для Excel и Word....	smanna	Microsoft Office Excel	2	30.11.2010 12:43
Перемещение абзацев внутри ячейки	piatka	Microsoft Office Word	6	18.05.2010 18:57
Текстовый файл. Подсчитать в нем количество слов, символов, абзацев.	Xeon332	Помощь студентам	3	24.12.2009 01:23
Надо макрос для Excel для перестановки букв	dionisprf	Microsoft Office Excel	2	10.06.2009 06:04