Пожалуйста помогите бедному студенту с макросом! - Microsoft Office Word

Akunin · 21.12.2009, 16:31

Задача: Необходимо каждый нечетный абзац кратный трем окрашивать в красный цвет...
Заранее спасибо!

viter.alex · 21.12.2009, 20:42

Почему бы бедному студенту немного не напрячь мозги и не написать четыре строчки кода?

Код:

Sub HighlightEveryThirdParagraph()
  Dim i As Long, n As Long
  n = ActiveDocument.Paragraphs.Count
  For i = 3 To (n \ 3) * 3 Step 3
    If i Mod 2 <> 0 Then ActiveDocument.Paragraphs(i).Range.HighlightColorIndex = wdDarkRed
  Next i
End Sub

EducatedFool · 22.12.2009, 19:14

Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться.

В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой.

Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно)
Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается.

Ну а если наработок нет, а Вам все же нужен совет профессионалов, - сразу указывайте цену, которую Вы готовы заплатить за решение.

21.12.2009, 16:31	#1
Akunin Новичок Джуниор Регистрация: 21.12.2009 Сообщений: 3	Пожалуйста помогите бедному студенту с макросом! Задача: Необходимо каждый нечетный абзац кратный трем окрашивать в красный цвет... Заранее спасибо!

21.12.2009, 20:42	#2
viter.alex Балуюсь кодами Участник клуба Регистрация: 09.01.2009 Сообщений: 1,837	Почему бы бедному студенту немного не напрячь мозги и не написать четыре строчки кода? Код: `Sub HighlightEveryThirdParagraph() Dim i As Long, n As Long n = ActiveDocument.Paragraphs.Count For i = 3 To (n \ 3) * 3 Step 3 If i Mod 2 <> 0 Then ActiveDocument.Paragraphs(i).Range.HighlightColorIndex = wdDarkRed Next i End Sub` Лучше день потерять — потом за пять минут долететь!© Последний раз редактировалось viter.alex; 22.12.2009 в 08:22.

22.12.2009, 19:14	#3
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Ввиду резко возросшей активности студентов-бездельников темы, не содержащие своих наработок, будут закрываться. В этом разделе форума помогают разобраться* в Вашем решении, а не штампуют лабы одну за другой. Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно) Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. Ну а если наработок нет, а Вам все же нужен совет профессионалов, - сразу указывайте цену, которую Вы готовы заплатить за решение. __Полезные надстройки для Excel. Парсинг сайтов и файлов.* Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Пожалуйста помогите бедному студенту с лабой по "Массивам"!	sherbat	Общие вопросы C/C++	1	18.12.2009 09:16
помогите пожалуйста бедному студенту	egistr	Помощь студентам	1	14.10.2009 21:40