1

Тема: Объединение фалов word с разрывом разделов

Уважаемые форумчане, доброго времени суток.
Для объединения файлов word использую макрос следующего вида:

Sub Объединение_файлов()
    Dim avFiles, lr As Long
    Dim docAct As Document, docNow As Document

    With Application.FileDialog(msoFileDialogFilePicker)
        .InitialFileName = "*.doc*"
        .AllowMultiSelect = True
        If .Show = False Then Exit Sub
        Set docAct = ActiveDocument
        For lr = 1 To .SelectedItems.Count
            Set docNow = Documents.Open(.SelectedItems(lr))
            docNow.Range.Copy
            docAct.Range(docAct.Range.End - 1).Paste
            docAct.Range(docAct.Range.End - 1).InsertBreak Type:=0
            docNow.Close 0
        Next lr
    End With
End Sub

но при объединение между объединенными файлами  вставляется разрыв страницы.
Подскажите пожалуйста, как доработать макрос, чтобы между объединенными документами вставлялся Разрыв разделов (Следующая страница)?
Заранее спасибо!

2

Re: Объединение фалов word с разрывом разделов

Maximich пишет:

. . .
            docAct.Range(docAct.Range.End - 1).InsertBreak Type:=0
. . .
Подскажите пожалуйста, как доработать макрос, чтобы между объединенными документами вставлялся Разрыв разделов (Следующая страница)?
. . .

Попробуйте

docAct.Range(docAct.Range.End - 1).InsertBreak Type:=wdSectionBreakNextPage

3

Re: Объединение фалов word с разрывом разделов

yshindin спасибо!