Создание макроса для редактирование текста в Word - VBA

Формулировка задачи:

Создать макрос, который устанавливает двойной интервал между строками, выравнивает текст по левому краю страницы, формирует абзацный отступ 1,75 пт. Первое слово в предложении выделяет красным цветом. Столкнулся с проблемой, выделение красным цветом первого слова в предложение. Подскажите кто что может ps. код работает pss. код на изменение цвета отсутствует

                    Листинг программы
                
 
                            
                        
Selection.WholeStory
    Selection.ParagraphFormat.LineSpacing = LinesToPoints(2)
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.WholeStory
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .WidowControl = True
        .KeepWithNext = False
        .KeepTogether = False
        .PageBreakBefore = False
        .NoLineNumber = False
        .Hyphenation = True
        .FirstLineIndent = CentimetersToPoints(1.75)
        .OutlineLevel = wdOutlineLevelBodyText
        .CharacterUnitLeftIndent = 0
        .CharacterUnitRightIndent = 0
        .CharacterUnitFirstLineIndent = 0
        .LineUnitBefore = 0
        .LineUnitAfter = 0
        .MirrorIndents = False
        .TextboxTightWrap = wdTightNone
    End With

Решение задачи: «Создание макроса для редактирование текста в Word»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim i As Long
Selection.WholeStory
   
 With Selection.ParagraphFormat
   .LineSpacing = LinesToPoints(2)
   .FirstLineIndent = CentimetersToPoints(1.75)
   .Alignment = wdAlignParagraphLeft
 End With
 
 For i = 1 To ActiveDocument.Sentences.Count
    ActiveDocument.Range.Sentences(i).Words(1).Font.Color = wdColorRed
 Next i