|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.12.2011, 11:28 | #1 |
Новичок
Джуниор
Регистрация: 12.12.2011
Сообщений: 3
|
Постраничное сохранение документа в Word 2007
Всем здравствуйте!
Есть такая задача: с помощью слияния получается многостраничный документ (счета к оплате), который необходимо постранично сохранить. Нарыл в сети следующий макрос: Dim src As Document Dim dst As Document Dim i As Integer Set src = ActiveDocument For i = 1 To src.Sections.Count - 1 src.Sections(i).Range.Copy Set dst = Documents.Add dst.Range.Paste dst.Sections(2).PageSetup.SectionSt art = wdSectionContinuous dst.SaveAs src.Path & "\" & Left(src.Name, Len(src.Name) - 4) & _ "_" & Format(i, "000") dst.Close Next В первый раз этот макрос сделал все как надо. Через некоторое время попытался воспользоваться им еще раз, в результате получилось не 70 отдельных файлов, а почти 400. В получившихся документах были увеличенные междустрочные интервалы, вследствие чего часть информации перекинулась на следующий лист и понеслось... В идеале было бы хорошо, чтобы была возможность задать количество страниц, которые должны сохраняться в один документ (на случай, если результатом должны быть доки объемом более 1 страницы). Также очень хотелось бы, чтобы при сохранении каждый документ получал название, в соответствии с каким-то внешним список Excel (например, использовавшимся для слияния). Чтобы результат был примерно таким: Счет № <номер из таблицы> Чл.взн. <название фирмы из таблицы>. Возможно ли как-то доработать представленный выше макрос? Я в этом деле полный профан, к сожалению. Всем спасибо за внимание! |
13.12.2011, 07:06 | #2 |
Форумчанин
Регистрация: 29.09.2008
Сообщений: 378
|
Ваш макрос работает с разделами, а не со страницами. Для сохранения форматирования, надо чтобы "отрезаемые" документы были созданы на основе того же шаблона, а еще лучше - делать "Сохранить как" и удалить лишние страницы. Можно подправить ваш макрос:
Set dst = Documents.Add(Template:=ActiveDocum ent.AttachedTemplate)
Макросы на заказ и готовый пакет - http://mtdmacro.ru/
|
17.10.2018, 16:04 | #3 |
Новичок
Джуниор
Регистрация: 15.10.2018
Сообщений: 2
|
Добрый день! Не стал создавать похожую тему.
Надо постранично сохранить документ. Макрос все делает отлично, но первая страница в 2 экз. получается, остальные как и надо 1 экз.. Очистку форматов делаю, потому что без нее в файлах по 2 страницы получается (разрыв страницы на первой и вторая страница с данными). Но без очистки форматов 1 станица в 1 экз. Спасибо! Код:
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ) Модератор Последний раз редактировалось Serge_Bliznykov; 17.10.2018 в 16:10. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Конвертировать формулы из [2007 Word 2007] в [2003 Word 2003] | mswmd | Microsoft Office Word | 8 | 10.07.2017 17:06 |
Печать word-документа | new player | Общие вопросы Delphi | 2 | 12.12.2011 11:24 |
Сохранение переменных в файле документа Word | a37529 | Microsoft Office Word | 3 | 01.06.2011 00:52 |
Сохранение документа Word-2007 | VistaSV30 | Microsoft Office Word | 7 | 05.01.2010 08:38 |
Сохранение документа при печати | vovk | Microsoft Office Word | 2 | 12.09.2008 10:12 |