Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.03.2019, 10:38   #1
Maximich
Новичок
Джуниор
 
Регистрация: 18.02.2016
Сообщений: 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
но при объединение между объединенными файлами вставляется разрыв страницы.
Подскажите пожалуйста, как доработать макрос, чтобы между объединенными документами вставлялся Разрыв разделов (Следующая страница)?
Заранее спасибо!
Maximich вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
И снова объединение ячеек в Word Samkoff Microsoft Office Word 5 13.06.2014 19:28
Объединение строк таблицы WORD в пределах одного столбца uncontented Microsoft Office Word 3 13.05.2014 23:22
чтение txt фалов Mihanches Общие вопросы Delphi 3 17.09.2010 11:42
считывание Doc фалов KingMember PHP 10 15.05.2010 15:24
Вставка особой нумерации на нечетные страницы с разрывом страницы akokin Microsoft Office Word 13 20.10.2009 15:23