Макрос поиск фразы и копирование абзаца в другую книгу

Автор Antykiller, 15 мая 2024, 14:47

Antykiller

Имеется очень большой документ Ворд на 3 т страниц.
Нужно из него посредством макроса вытянуть отдельные абзацы содержащие фразы основной отпуск или дополнительный отпуск в другой файл. Как то находил примерно то что мне подходит в просторах интернета, и не сохранил. А щас опять понадобилось и не могу найти.

Администратор

Написал вам письмо на почту. Написал именно на почту, а не на форум.

Antykiller

Sub tester()
    Dim st As Paragraph
    Dim nD As Object
    For Each st In ActiveDocument.Paragraphs
    Set nD = Documents("test.docx").Content
        If LCase(st.range.Text) Like "*текст1*" Or LCase(st.range.Text) Like "*текст2*" Then
            st.range.Copy
            nD.Collapse Direction:=wdCollapseEnd
            nD.Paste
        End If
    Next
End Sub
написал сам вдруг кому пригодится