Вставка слов в Word VBA

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

Уважаемые программисты. Подскажите пожалуйста. Как сделать так чтобы, в документе Word, в выделенном фрагменте текста, после каждого 4-го слова вставляет, указанный предлог, например (да), пример кода с которым не могу разобраться

Sub Format()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
Set myrange = ActiveDocument.Range(Selection.Start, Selection.End)
With Selection.Find
.Text = "  "
.Replacement.Text = " да "
.Replacement.Font.Size = 1
.Replacement.Font.Color = wdColorWhite
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Решение задачи: «Вставка слов в Word VBA»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
    With Selection.Find
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWildcards = True
        .Text = "^0013^0013"
        .Replacement.Text = " +=++=+"
        .Execute Replace:=wdReplaceAll
        .Text = "^0013"
        .Replacement.Text = " +==+"
        .Execute Replace:=wdReplaceAll
        .Text = " @-@ @"
        .Replacement.Text = " +=---=+"
        .Execute Replace:=wdReplaceAll
        .Text = "<(*[^0013 ]@*[^0013 ]@*[^0013 ]@*)([^0013 ]@)"
        .Replacement.Text = "\1 да "
        .Execute Replace:=wdReplaceAll
        .Text = " +=---=+"
        .Replacement.Text = " - "
        .Execute Replace:=wdReplaceAll
        .Text = " +==+"
        .Replacement.Text = "^0013"
        .Execute Replace:=wdReplaceAll
        .Text = " +=++=+"
        .Replacement.Text = "^0013^0013"
        .Execute Replace:=wdReplaceAll
    End With
End Sub
                        