Макрос для копирования текста

[6aHaH4uk]

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

В данном примере это текст: "07.10.11 до SSSSSкого РВ ДМУ ГУМВС України в SSSSSій області надійшло звернення від гр. SSSSSої Н.Н., яка проживає за адресою: м. SSSSS пр. SSSS, 3/53, щодо розшуку її чоловіка SSSSSа Юрія Геннадійовича., 15.08.1958 р.н., який 01.10.2011 року пішов з дому та не повернувся"

[Sasha_Smirnov]

Сообщение от 6aHaH4uk

между словами "В С Т А Н О В И В:" и "а.м.",

Это не требует программирования.

Выделите абзац (F8 четыре раза либо тройным щелчком) и перетащите в нужный документ (либо в папку).

Можно и сделать, конечно, если условия не меняются очень долго. В смысле: раз 10 в день можно и ручками пощёлкать, а вот когда 100...

[6aHaH4uk]

Беда в том что с этим связана моя ежедневная работа, поэтому хочу максимально эффективно автоматизировать процесс.. Условия не меняются никогда, всегда будут слова "В С Т А Н О В И В:" и "а.м.", поэтому необходим макрос

[Sasha_Smirnov]

Сообщение от 6aHaH4uk

открыть другой файл

Это уже существующий файл?

Есть (на http://otvety.google.ru/otvety/threa...%26start%3D160) код, сохраняющий выделяемые (вручную) фрагменты в папку "Мои документы" как отдельные файлы.
Вот нашёл пока только такой

Sub CopyfileToMyDoc() ' Макрос записан 21.01.2009'
'Сохраняет копию документа - под именем, составленным из старого с добавлением "_1"
'(в папке Мои докуметы - если в настройках Windows специально не указана другая)
    Dim intN As Integer, strName As String
      
    strName = StrReverse(Mid(StrReverse(ActiveDocument), 1 + InStrRev(StrReverse(ActiveDocument), ".")))
    'теперь strName содержит имя файла без расширения, но с постфиксом _1 (расширения doc и docx)'
    ActiveDocument.SaveAs FileName:=strName & "_1", AddToRecentFiles:=False
End Sub

Но у вас же в работе несколько другой процесс — своеобразная сводка?

[Ципихович Эндрю]

Ещё есть такая прога ПунтоСвитчер, он Вам сильно может помочь
А вообще то что Вы спрашиваете как я понял это вершина айсберга, я понял по Вашей повседневной работе и если поменять подход, то есть не с паршивой овцы хоть шерсти клок, тогда откроются чудеса
Надо изучить закладки, ссылки и т.д.

[6aHaH4uk]

Sasha_Smirnov, да это уже существующий файл...
С этой сводки(ежедневной) хочу копировать в другой документ ( месячный отчет)

[Sasha_Smirnov]

Я в подобном случае (в отчёте за неделю) ставил линки (такие поля в документе) либо поле {includetext}.

Сообщение от 6aHaH4uk

открыть другой файл и вставить в него этот текст...

Если известны (или хотя бы как-то упорядочены) имена файлов, по которым нужен отчёт, то вся работа занимает... да ничего не занимает: нужно лишь послать на печать заготовку с теми линками.

Вот код выделения нужных фрагментов, притом с установкой туда закладок.

Sub BookMarker()
Dim i As Byte 'счётчик найденных фрагментов, дающий им имена (a; b; c; d; ...)
Selection.HomeKey wdStory                   ' перемещаем курсор в начало документа
    With Selection.Find
        .Text = "В С Т А Н О В И В*а.м."    ' искомый текст
        .MatchWildcards = True              ' подстановочные знаки в окне поиска (* - любой текст)
        .Wrap = wdFindStop                  ' остановиться на найденном
        Do
            .Execute
            If .Found Then
            ActiveDocument.Bookmarks.Add Chr(97 + i) ' поставить туда закладку (a, b; и т. д.)
            End If
            Selection.Collapse wdCollapseEnd ' снимаем выделение с уже отмеченного закладкой
            i = i + 1
        Loop Until Not .Found               ' искать пока поиск (.Find) не завершил поиск
    End With
    'теперь на 1-м фрагменте закладка a, на 2-м (если есть) - b; и далее (см. по Ctrl-Shift-F5)
Selection.HomeKey wdStory
End Sub

Применив его (если удастся), считайте, что отчёт в ваших руках! Распечатанный.

Однако, как видно на рисунке, «слова-ограничители» придётся все заменить на пустоту — стереть.