Привет всем!
MS office 2010. Делаю слияние для автоматизации создания документов (договор, смета, акт, накладная), куда подставляются данные из excel. Т.е. сейчас есть 4 файла ворд, связанные с бд в экселе, куда вносятся все данные по заказчику.
Слияние работает как надо, но хочу сделать макрос который будет сохранять результирующие файлы в нужном месте с нужными названиями.
Сейчас добился того, чтобы макрос сохранял текущую запись слияния (так и задумано) по адресу
C:\test\002-14\Договор_002-14.doc
где
C:\test - каталог где лежит шаблон договора, подключённый к бд в экселе
002-14 - номер договора, читается для текущей записи слияния из экселя (поле "contract")
т.е. макрос создаёт папку куда будет помещать все документы по данному договору.:
C:\test\002-12\ДОГОВОР_002-12.doc
C:\test\002-12\СМЕТА_002-12.doc
C:\test\002-12\НАКЛАДНАЯ_002-12.doc
C:\test\002-12\АКТ_002-12.doc
Повторюсь, мне нужно сохранять только одну текущую запись слияния за запуск макроса.
Что хотелось бы улучшить (в порядке значимости):
1. Чтобы макрос был общий для всех документов. Сейчас текст "Договор_" просто прописаны в коде. Тут я думаю можно заменить эту часть на закладку, которая будет для всех файлов одинаково называться, но ссылаться на нужный текст. Как это прописать в коде - не знаю.
2. Чтоб документ шаблон был 1, а не 4 как сейчас. Т.е. все содержалось бы в 1м вордовском файле, разделённом скажем разрывами разделов, но сохранялось бы в 4 разные результирующие файла. Чтоб не запускать 4 шаблона и не нажимать 4 раза "да" для подключения к источнику данных. Тогда закладки, предложенные мной в п.1. не проканают, т.к. файл у нас 1 и одну и туже закладку в два места не воткнёшь.
Наткнулся на
эту тему , где "постранично режут" документ на разные файлы, но немного не мой случай, однако вселяет надежду, что это возможно.
привожу свой текущий код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Sub m_1()
Dim fs
Dim Fol_name As String
Dim File_name As String
Dim oMergedDoc As Document
Fol_name = "C:\test\" & ActiveDocument.MailMerge.DataSource.DataFields("contract")
File_name = "C:\test\" & ActiveDocument.MailMerge.DataSource.DataFields("contract") & "\Договор_" & _
ActiveDocument.MailMerge.DataSource.DataFields("contract") & ".doc"
If ActiveDocument.MailMerge.MainDocumentType <> wdNotAMergeDocument Then
Set oMergedDoc = ActiveDocument
Else
MsgBox "Активный документ должен быть создан слиянием.", vbExclamation, "Сохранение документов после слияния"
Exit Sub
End If
'Проверка на наличие уже такой папки
Set fs = CreateObject("Scripting.FileSystemObject")
If fs.folderexists(Fol_name) = False Then
'Создание папки
fs.createfolder (Fol_name)
End If
'Проверка на наличие в нашей папке уже такого файла
If fs.fileexists(File_name) Then
MsgBox "Файл с таким именем уже есть в этой папке. Файл не будет сохранён, т.к. он заменит собой уже существующий файл", vbCritical
Exit Sub
End If
'Сохранение файла
With oMergedDoc.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
.Execute False
With Documents(1)
.SaveAs FileName:=File_name
.Close False
End With
End With
End Sub
и ещё второстепенные пожелания...
3. Поколдовать с экселевским файлом, чтоб из него запускался файл шаблона с активной последней записью слияния.
4. Поколдовать с экселевским файлом, чтоб создать форму для заполнения.
