Как редактировать абзацы?

Question

[BranchInCode]

Помогите выполнить 2 пункт задания, т.к. 1 пункт, вроде, выполнен(код ниже).

Задание:
Написать макрос (компьютер) форматирования текста по следующим критериям:
1. Выделить все слова в тексте, начинающиеся с заданных символов (например: «компьютер») красным курсивом.
2. Те абзацы, в которых встретились эти слова, отформатировать следующим образом: отступ – 1,6 см; межстрочный интервал – одинарный.

Sub Task()
Dim s
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Italic = True
    .Replacement.Font.Color = wdColorRed
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    For Each s In Split("компьютер")
      .Execute s, Replace:=wdReplaceAll
    Next
  End With
End Sub

Answer 1

[h8nor]

Применимо к выделенному абзацу, так:

With Selection.ParagraphFormat
  .LineSpacingRule = wdLineSpaceSingle
  .FirstLineIndent = CentimetersToPoints(1.6)
End With

Comments

[BranchInCode]

все бы хорошо, только мне надо, чтобы форматировались только те абзацы, в которых присутствует слово "компьютер", т.е. первая картинка - было, вторая - стало

[h8nor]

Чтобы найти слово внутри абзаца, нужно переназначать объект Find при перечислении абзацев (Метод Select применять не обязательно. Он указан для наглядности отладки.):

Dim p As Paragraphs, f As Find
Set p = ActiveDocument.Paragraphs

For i = 1 To p.Count
  Set f = p(i).Range.Find ' Переназначить Find
  f.Text = "компьютер"
  If f.Execute Then p(i).Range.Select
Next i

[BranchInCode]

Дѣаволъ, спасибо за подсказку, сделал как-то так:

Sub Task()
Dim s
  With ActiveDocument.Range.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Replacement.Font.Italic = True
    .Replacement.Font.Color = wdColorRed
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    For Each s In Split("компьютер")
      .Execute s, Replace:=wdReplaceAll
    Next
  End With

Dim p As Paragraphs, f As Find
Set p = ActiveDocument.Paragraphs

For i = 1 To p.Count
  Set f = p(i).Range.Find
  f.Text = "компьютер"
  If f.Execute Then p(i).Range.Select
  
    With Selection.ParagraphFormat
      .LineSpacingRule = wdLineSpaceSingle
      .FirstLineIndent = CentimetersToPoints(1.6)
    End With
    
Next i
End Sub

[h8nor]

BranchInCode, не, не так. Но работает, и ладно.