kvvic

Помогите, пожалуйста, написать макрос для Word.
Мне нужно, чтобы макрос выполнял следующие действия:
если после курсора стоит знак абзаца - опуститься на одну строку вниз
если после курсора стоит любой другой символ жирным шрифтом - перейти в конец строки, сделать абзац, опуститься
на одну строку вниз
если после курсора стоит любой другой символ обычным шрифтом - перейти в начало строки, вставить два пробела,
перейти в конец строки, удалить символ перед курсором, сделать абзац.
Необходимо, чтобы макрос обработал таким образом весь документ.
Вот, что я написал:

Set myRange = ActiveDocument.Range(Start:=Selection.Start, _
End:=ActiveDocument.Content.End)
Do
Set char = Selection.Characters(1)
If char.Text = Chr$(13) Then
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove
ElseIf char.Bold = True Then
Selection.EndKey Unit:=wdLine, Extend:=wdMove
Selection.TypeParagraph
Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdMove
ElseIf char.Bold = False Then
Selection.HomeKey Unit:=wdLine, Extend:=wdMove
Selection.TypeText Text:=" "
Selection.EndKey Unit:=wdLine, Extend:=wdMove
Selection.TypeBackspace
Selection.TypeParagraph
End If
Loop Until myRange.EndOf = True
End Sub

У меня не получается сделать цикл, чтобы макрос повторял эти действия до конца документа.