Управление 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

9   голосов , оценка 4.111 из 5
Похожие ответы