Description
Provides the ability to link data from Excel to Word. (Simplest way)
NOTES
- Reference to AUExpress.Cells library.
Syntax
Dim cls As New AUMailmerge
cls.OutputType = MFileType_Docx
cls.OutputFolder = "C:\Users\admin\Desktop\Export"
cls.AddTemplate ("C:\Users\admin\Desktop\Template.doc")
cls.FieldMode = MFieldMode_ByColumn
Set cls.DataRange = Worksheets("sheet1").Range("A1:B10")
SETTINGS
Settings for tables and data after Mailmerge:
With cls.Settings
.AutoFitColumns = False
.LeftMarginE = 2 'point unit
.RightMarginE = 2 'point unit
.RepeatHeader = True
.NumberFormat = True
.MergeType = MMergeType_DataRow
End With
If Not cls.Initialize Then Return
EXAMPLE 1
Run the program:
Debug.Print cls.Generate
See documentation for other examples.