Как вставить символ после каждой 5-ой строки (Word 2010)?

Sub bb()
Dim i&
For i = 1 To ActiveDocument.Paragraphs.Count Step 5
  ActiveDocument.Paragraphs(i).Range.InsertAfter "*"
Next
End Sub

Sub InsertAsterisksV1()
    Dim i As Long, ps As Paragraphs
    Set ps = ActiveDocument.Paragraphs
    For i = 2 To ps.Count Step 5
        ps(i).Range.InsertBefore "*"
    Next i
End Sub
Sub InsertAsterisksV2()
    Dim i As Long, ss() As String
    ss = Split(ActiveDocument.Content, Chr(11))
    For i = 1 To UBound(ss) Step 5
        ss(i) = "*" & ss(i)
    Next i
    ActiveDocument.Content = Join(ss, Chr(11))
End Sub
Sub InsertAsterisksV3()
    Dim i As Long, ps As Paragraphs
    Set ps = ActiveDocument.Paragraphs
    For i = 1 To ps.Count
        ps(i).Range.Text = Replace(ps(i).Range.Text, Chr(11), Chr(11) & "*", , 1)
    Next i
End Sub
Sub Main()
    If MsgBox("Каждый вариант теста отделен знаком абзаца и вопросы тоже разделены знаком абзаца?", vbYesNo + vbQuestion, "Обработка документа - вариант первый.") = vbYes Then
        InsertAsterisksV1
    ElseIf MsgBox("Каждый вариант теста отделен знаком мягкого переноса и вопросы тоже разделены знаком знаком мягкого переноса?", vbYesNo + vbQuestion, "Обработка документа - вариант второй.") = vbYes Then
        InsertAsterisksV2
    ElseIf MsgBox("Каждый вариант теста отделен знаком мягкого переноса, а вопросы разделены знаком абзаца?", vbYesNo + vbQuestion, "Обработка документа - вариант третий.") = vbYes Then
        InsertAsterisksV3
    Else
        MsgBox "Мы не знаем, как обрабатывать ваш документ.", vbExclamation, "Ошибка обработки документа"
        Exit Sub
    End If
    MsgBox "Документ успешно обработан!", vbInformation, "Обработка документа завершена"
End Sub