Управление host-приложением MS Word - VB
Формулировка задачи:
Помогите пожалуйста с задачей, не когда ранее не сталкивалась с VBA:
Разработайте скрипт, который позволяет поменять местами четные и нечетные абзацы. Четные абзацы должны иметь
красный цвет, а нечетные зеленый
Решение задачи: «Управление host-приложением MS Word»
textual
Листинг программы
Sub Lizzzka() Dim i As Long, j As Long With ActiveDocument For i = 1 To (.Paragraphs.Count \ 2) * 2 Step 2 .Paragraphs(i + 1).Range.Cut j = .Paragraphs(i).Range.Start .Range(j, j).Paste .Paragraphs(i).Range.Font.Color = vbGreen .Paragraphs(i + 1).Range.Font.Color = vbRed Next 'красим последний абзац, если в документе нечетное число абзацев If i = .Paragraphs.Count Then .Paragraphs(i).Range.Font.Color = vbGreen End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д