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

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

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