‘Move the selection to the next section in the documentĪctiveDocument.The line of Microsoft Outlook tools and appsġ4 add-ins in one bundle for the best priceįinds and removes duplicated in emails and postsįinds and removes duplicated contacts, tasks, etc ‘ ActiveDocument.SaveAs FileName:=”test_” & DocNum & “.doc” Selection.Delete Unit:=wdCharacter, Count:=1 Selection.MoveUp Unit:=wdLine, Count:=1, Extend:=wdExtend ‘Removes the break that is copied at the end of the section, if any. ‘Create a new document to paste text from clipboard. ‘Select and copy the section text to the clipboardĪctiveDocument.Bookmarks(“\Section”).Range.Copy ‘Subtracting one from the section count stop error message.įor i = 1 To (() – 1) ‘A mailmerge document ends with a section break next page.
‘Used to set criteria for moving through the document by section.Ī = wdBrowseSection MsgBox “The documents will be saved in the default document file location.” Title = “Select the folder into which the documents will be saved.” Set fd = Application.FileDialog(msoFileDialogFolderPicker) the line on which the text sits on: so if my and field sits on the 3rd line of the document. the actual merge field within the document: and Ģ. I read that I could either stipulate that using:ġ. What do I change in the macro to save the file name using fields within the form? Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _ĬreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _īitmapMissingFonts:=True, UseISO19005_1:=False WdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _ WdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _ SavePath & sFName & ".pdf", ExportFormat:= _ '' the test data source had unique FileNameĭocLetters.ExportAsFixedFormat OutputFileName:= _
#DO MAIL MERGE WORD FOR MAC PDF#
INDIVIDUAL PDF FILE MARCO: (note you must have a “FileName” Column in your Excel data source): ' Save generated document and close it after savingĭocLetters.SaveAs FileName:=savePath & sFNameĭ = wdNextRecord '' the test data source had unique surnames ''There is a problem with the recordcount property returning -1ĭ = wdLastRecord INDIVIDUAL WORD FILE MACRO (note you must have a “FileName” Column in your Excel data source): Raduner will work his magic, clean this up and make it more user friendly for everyone else as he clearly knows way more than I do. I’m loading both individual pdf creator and individual word file creator.
#DO MAIL MERGE WORD FOR MAC CODE#
Raduner macro above, Remou macro code for producing pdf’s at the following link, and a few others and combined different aspects and PRESTO!!! I clearly got very lucky but it works in MS Word 2010. Armed only with 24 year old knowledge of Basic (yes the original, not Visual Basic) and Fortran (no not the punch card Fortan but really close) I took Mr. In fact this is my first attempt at using a macro let alone modifying the code. For me this was not working because of special formatting and tables inside the tempalte document.įirst let me give credit where credit is due because I know absolutely nothing of writing macros. There is one thing to do manually, because I couldn’t solve it programmatically: you have to manually set the “Mail Merge Output” setting to “Current Record”! (default is “All”)Īn alternative approach is to split the generated mail merge document based on the section breaks that Word inserts when executing mail merging.Unfortunately this Macro does not work with Microsoft Office 2010+ on Windows! (Reason is the next point #2).To achieve this non-standard behavior, I wrote a little helper: execute the following VBA Macro on your Office Word Mail Merge template to have Word generate & save every record into a single file. But I wanted to have each form in a seperate word document. Unfortunately when you generate a document from a defined Mail Merge template in Word, you end up having all the pages inside one huge document. Recently I had to create a lot of Microsoft Office Word documents based on the same template, so I decided to use Mail Merge.
0 kommentar(er)
