Word 2007: найти текст и изменить регистр и порядок слов - VBA

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

Здравствуйте. Помогите с макросом поиска определенного слова в тексте и смене его регистра (в нижний регистр) Ну например: "ОСНОВНОЙ ТЕКСТ" НУЖНЫЙ, а затем, или как-то сразу, поменять порядок: нужный "ОСНОВНОЙ ТЕКСТ".

Решение задачи: «Word 2007: найти текст и изменить регистр и порядок слов»

textual
                            Листинг программы 
                        
 
                        
                          
                    
    Dim orng As Range 'объявляем переменную
    Set orng = Selection.Range 'запоминаем положение текущего выделения
    Selection.HomeKey Unit:=wdStory 'перемещаем курсор в начало документа
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.Font
        .SmallCaps = False
        .AllCaps = True
    End With
    With Selection.Find
        .Text = "(^34*^13)"
        .Replacement.Text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    orng.Select 'восстанавливаем положение выделения