Слияние — массовое создание однотипных документов

Комментариев: 9

1. 

   Игорь
   10.09.2010 в 00:22 | #1

   Александр! Подскажите какой макрос можно вставить в файл слияние для сохранения каждой записи в файл PDF с уникальным названием "Исходящий номер". Исходящий номер - уникальный присваивается каждой записи в файле EXCEL.

   Спасибо.
2. 

   imaslov
   13.09.2010 в 11:27 | #2

   viter.alex Предложил слудующее решение:

   Sub SaveEachMergeToFile()
     Dim oMergedDoc As Document
     Const OUTGOING As String = "number"
     If ActiveDocument.MailMerge.MainDocumentType  wdNotAMergeDocument Then
   Set oMergedDoc = ActiveDocument
     Else
       MsgBox "Активный документ должен быть создан слиянием.", vbExclamation, "Сохранение документов после слияния"
       Exit Sub
     End If
     If Not oMergedDoc.Bookmarks.Exists(OUTGOING) Then
       MsgBox "В документе нет закладки с именем " & OUTGOING & ", которая используется в качестве имени файла." & vbNewLine & _
             "Создайте закладку с таким именем и запустите макрос ещё раз", vbExclamation, "Сохранение документов после слияния"
       Exit Sub
     End If
     
     oMergedDoc.MailMerge.DataSource.ActiveRecord = wdFirstRecord
     
     Dim i As Integer
     With oMergedDoc.MailMerge
       For i = 1 To .DataSource.RecordCount
         .Destination = wdSendToNewDocument
         .SuppressBlankLines = True
         With .DataSource
           .FirstRecord = .ActiveRecord
           .LastRecord = .ActiveRecord
         End With
         .Execute False
         With Documents(1)
           .ExportAsFixedFormat oMergedDoc.Path & Application.PathSeparator & oMergedDoc.Bookmarks(OUTGOING).Range.Text, wdExportFormatPDF
           .Close False
         End With
         .DataSource.ActiveRecord = wdNextRecord
         DoEvents
       Next
     End With
     
     MsgBox "Все документы слияния сохранены в папку """ & oMergedDoc.Path & """", vbInformation, "Сохранение документов после слияния"
   End Sub
3. 

   Олег
   07.11.2011 в 16:42 | #3

   А как сделать, чтобы поля в созданном документе автоматически обновлялись при изменении базы данных?

   Office 2010
4. 

   Комментатор 95
   26.12.2011 в 17:45 | #4

   Подскажите пожалуйста, как через слияние в word, формировать расслку эл. почтой так, чтобы включить в поле слово / фразу с гиперссылкой? Т.е. я ставил в эксель (базу данных) слова с гиперссылками, но почтой (отулук) отправлялись письма без гиперссылок, да и сам ворд теряет гиперссылки из полей?
5. 

   Шахло
   27.12.2011 в 08:40 | #5

   Здравствуйте, подскажите пожалуйста, что

   делать в такой ситуации, у меня каждое утро

   автоматически выдаются справки и у них свежие

   данные, но чтоб они обновились и открылись, надо

   нажать кнопку «обновить» и еще надо закрыть а

   перед закрытием надо нажать кнопку «сохранить» а

   если я не закрываю Excel через кнопку «х» то она не

   создает эту справку, вот по этому можно ли как то

   написать аккуратный макрос, чтоб закрыть excel

   автоматически и само собой перед закрытием

   сохранились обновленные данные, а перед

   открытием обновлялись автоматически, не нажимая

   кнопку обновить или не обновить каждый

   раз, когда выполняются автоматизация для этих

   справок
6. 

   Аноним
   29.10.2012 в 15:36 | #6

   Добрый день! Подскажите, пожалуйста, как сделать, чтобы при отправке вложений с шаблонами по электронке, еще и текст в электронном письме написать. Делаем доп.соглашения для всех компаний, нужно внести в текст письма сопроводиловку. Спасибо.
7. 

   Алексей
   31.01.2013 в 17:31 | #7

   Хорошая статья. Но я работаю в openoffice, поэтому по аналогии создал для себя и коллег памятку по writer.

   Еще в качестве источника данных можно использовать БД, тогда исчезает необходимость возни с электронной таблицей.
8. 

   Николай
   11.10.2013 в 13:37 | #8

   Привет!

   Слияние позволяет отправлять почту.

   Очень удобно, но есть только три формата:

   1. Документ (к письму прицепляется файл *.doc)

   2. HTML (к письму прицепляется файл *.html)

   3. Текст (всё вставлется в тело письма)

   А как реализовать п. 1, только, чтобы вложенным файл был в формете PDF (т.е. перед вставкой шла конвертация)?
9. 

   Пронин Анатолий Николаевич
   12.12.2017 в 11:49 | #9

   Word 2010 (лицензия СТАНДАРТНЫЙ) Что делать, если при включении функции "Редактирование разрешёнными стилями"

   САМОПРОИЗВОЛЬНО ИЗМЕНЯЕТСЯ количество стилей в присоединённом шаблоне

   (причём, в одних 7 вместо 8, в других - 4!!!)?

   Пронин Анатолий Николаевич,

   Санкт-Петербург,

   anp55@bk.ru