Скопировать часть текста в другой файл - VBA

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

Помогите написать макрос для Word 2007 который бы в открытом *.doc документе копировал часть текста, который находится между словами "В С Т А Н О В И В:" и "а.м.", открывал другой файл (к примеру 123.doc) и вставлял в него этот текст... Пример файла - Приложение1.doc

Решение задачи: «Скопировать часть текста в другой файл»

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

                            Sub Процедура1()
Dim Начало As Long, Конец As Long
Dim Источник As Word.Document, Назначение As Word.Document
Const ПутьДокумента As String = "C:\Documents and Settings\Пользователь\Рабочий стол\Назначение.doc"
Set Источник = ActiveDocument
With Источник.Content.Find
    .Text = "В С Т А Н О В И В:"
    .MatchPrefix = True
    .MatchSuffix = True
    If .Execute = True Then
        Начало = .Parent.End + 1
        With Источник.Content.Find
            .Text = "а.м."
            .MatchPrefix = True
            .MatchSuffix = True
            If .Execute = True Then
                Конец = .Parent.Start - 1
            Else
                MsgBox "Слова: а.м. нет в документе.", vbCritical
                Exit Sub
            End If
        End With
    Else
        MsgBox "Слова: В С Т А Н О В И В: нет в документе.", vbCritical
        Exit Sub
    End If
End With
Set Назначение = Documents.Open(FileName:=ПутьДокумента)
Назначение.Range(Start:=0, End:=0) = Источник.Range(Start:=Начало, End:=Конец)
End Sub
                        