Как выделить жирным шрифтом первую строку абзаца в word с VBA

Sub Test()
Dim p As Paragraph
Dim idx As Integer
Dim i As Integer
For Each p In ActiveDocument.Paragraphs
 
With p.Range
    idx = InStr(1, .Text, ".", vbTextCompare)
    If idx > 0 Then
        For i = 1 To idx
            .Characters(i).Bold = True
        Next i
    End If
End With
 
Next p
End Sub

Dim idx1 As Integer, idx2 As Integer, idx3 As Integer, idx4 As Integer
idx1 = InStr(1, .Text, ":", vbTextCompare)
idx2 = InStr(1, .Text, "?", vbTextCompare)
idx3 = InStr(1, .Text, ":", vbTextCompare)
idx4 = InStr(1, .Text, ".", vbTextCompare)
idx = IIf(idx1 <= idx2, idx1, idx2)
idx = IIf(idx3 <= idx, idx3, idx)
idx = IIf(idx4 <= idx, idx4, idx)
' и далее по тексту

Sub Макрос1()
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  Selection.Find.Replacement.Font.Bold = True
  With Selection.Find
    .Text = "^13^13*^13"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Bold = False
    .Italic = False
  End With
  With Selection.Find
    .Text = "^13^13"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = True
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub