Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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


Ответ
 
Опции темы
Старый 26.03.2019, 11: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 вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
И снова объединение ячеек в 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