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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


05:19.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru