How to edit paragraphs?

Question

Visual Basic

Help complete the 2nd item of the assignment, because. Item 1 seems to be completed (code below).
Task:
Write a macro (computer) for formatting text according to the following criteria:
1. Select all words in the text that begin with the given characters (for example: "computer") in red italics.
2. Those paragraphs in which these words are encountered should be formatted as follows: indent - 1.6 cm; line spacing is single.

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