The sample demonstrates how to set document properties.

//Create word document
Document document = new Document();

document.BuiltinDocumentProperties.Title = "Document Demo Document";
document.BuiltinDocumentProperties.Subject = "demo";
document.BuiltinDocumentProperties.Author = "James";
document.BuiltinDocumentProperties.Company = "e-iceblue";
document.BuiltinDocumentProperties.Manager = "Jakson";
document.BuiltinDocumentProperties.Category = "Doc Demos";
document.BuiltinDocumentProperties.Keywords = "Document, Property, Demo";
document.BuiltinDocumentProperties.Comments = "This document is just a demo.";

Section section = document.AddSection();
section.PageSetup.Margins.Top = 72f;
section.PageSetup.Margins.Bottom = 72f;
section.PageSetup.Margins.Left = 89.85f;
section.PageSetup.Margins.Right = 89.85f;

String p1
    = "Microsoft Word is a word processor designed by Microsoft. "
    + "It was first released in 1983 under the name Multi-Tool Word for Xenix systems. "
    + "Subsequent versions were later written for several other platforms including "
    + "IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), "
    + "Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989). ";
String p2
    = "Microsoft Office Word instead of merely Microsoft Word. "
    + "The 2010 version appears to be branded as Microsoft Word, "
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac.";
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14;
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14;


//Save doc file.
document.SaveToFile("Sample.doc",FileFormat.Doc);

'Create word document
Dim document As New Document()

document.BuiltinDocumentProperties.Title = "Document Demo Document"
document.BuiltinDocumentProperties.Subject = "demo"
document.BuiltinDocumentProperties.Author = "James"
document.BuiltinDocumentProperties.Company = "e-iceblue"
document.BuiltinDocumentProperties.Manager = "Jakson"
document.BuiltinDocumentProperties.Category = "Doc Demos"
document.BuiltinDocumentProperties.Keywords = "Document, Property, Demo"
document.BuiltinDocumentProperties.Comments = "This document is just a demo."

Dim section As Section = document.AddSection()
section.PageSetup.Margins.Top = 72.0F
section.PageSetup.Margins.Bottom = 72.0F
section.PageSetup.Margins.Left = 89.85F
section.PageSetup.Margins.Right = 89.85F

Dim p1 As String _
    = "Microsoft Word is a word processor designed by Microsoft. " _
    + "It was first released in 1983 under the name Multi-Tool Word for Xenix systems. " _
    + "Subsequent versions were later written for several other platforms including " _
    + "IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), " _
    + "Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989). "
Dim p2 As String _
    = "Microsoft Office Word instead of merely Microsoft Word. " _
    + "The 2010 version appears to be branded as Microsoft Word, " _
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac."
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14

'Save doc file.
document.SaveToFile("Sample.doc", FileFormat.Doc)

The sample demonstrates how to handle merge event.

public partial class Form1 : Form
{
    private int lastIndex = 0;
    public Form1()
    {
        InitializeComponent();
    }

    private void button1_Click(object sender, EventArgs e)
    {
        //Create word document
        Document document = new Document();
        document.LoadFromFile(@"..\..\..\..\..\..\Data\Fax2.doc");
        lastIndex = 0;

        List<CustomerRecord> customerRecords = new List<CustomerRecord>();
        CustomerRecord c1 = new CustomerRecord();
        c1.ContactName = "Lucy";
        c1.Fax = "786-324-10";
        c1.Date = DateTime.Now;
        customerRecords.Add(c1);

        CustomerRecord c2 = new CustomerRecord();
        c2.ContactName = "Lily";
        c2.Fax = "779-138-13";
        c2.Date = DateTime.Now;
        customerRecords.Add(c2);

        CustomerRecord c3 = new CustomerRecord();
        c3.ContactName = "James";
        c3.Fax = "363-287-02";
        c3.Date = DateTime.Now;
        customerRecords.Add(c3);

        //Execute mailmerge
        document.MailMerge.MergeField += new MergeFieldEventHandler(MailMerge_MergeField);
        document.MailMerge.ExecuteGroup(new MailMergeDataTable("Customer", customerRecords));

        //Save doc file.
        document.SaveToFile(@"Sample.doc", FileFormat.Doc);
    }

    void MailMerge_MergeField(object sender, MergeFieldEventArgs args)
    {
        //Next row
        if (args.RowIndex > lastIndex)
        {
            lastIndex = args.RowIndex;
            AddPageBreakForMergeField(args.CurrentMergeField);
        }
    }

    void AddPageBreakForMergeField(IMergeField mergeField)
    {
        //Find position of needing to add page break
        bool foundGroupStart = false;
        Paragraph paramgraph = mergeField.PreviousSibling.Owner as Paragraph;
        MergeField merageField = null;
        while (!foundGroupStart)
        {
            paramgraph = paramgraph.PreviousSibling as Paragraph;
            for (int i = 0; i < paramgraph.Items.Count; i++)
            {
                merageField = paramgraph.Items[i] as MergeField;
                if ((merageField != null) && (merageField.Prefix == "GroupStart"))
                {
                    foundGroupStart = true;
                    break;
                }
            }
        }

        paramgraph.AppendBreak(BreakType.PageBreak);
    }
}

public class CustomerRecord
{
    private string m_contactName;
    public string ContactName
    {
        get
        {
            return m_contactName;
        }
        set
        {
            m_contactName = value;
        }
    }

    private string m_fax;
    public string Fax
    {
        get
        {
            return m_fax;
        }
        set
        {
            m_fax = value;
        }
    }

    private DateTime m_date;
    public DateTime Date
    {
        get
        {
            return m_date;
        }
        set
        {
            m_date = value;
        }
    }
}

	Public Partial Class Form1
		Inherits Form
		Private lastIndex As Integer = 0
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)
			'Create word document
			Dim document As New Document()
			document.LoadFromFile("..\..\..\..\..\Data\Fax2.doc")
			lastIndex = 0

			Dim customerRecords As New List(Of CustomerRecord)()

			Dim c1 As New CustomerRecord()
			c1.ContactName = "Lucy"
			c1.Fax = "786-324-10"
			c1.[Date] = DateTime.Now
			customerRecords.Add(c1)

			Dim c2 As New CustomerRecord()
			c2.ContactName = "Lily"
			c2.Fax = "779-138-13"
			c2.[Date] = DateTime.Now
			customerRecords.Add(c2)

			Dim c3 As New CustomerRecord()
			c3.ContactName = "James"
			c3.Fax = "363-287-02"
			c3.[Date] = DateTime.Now
			customerRecords.Add(c3)

			'Execute mailmerge
			document.MailMerge.MergeField += New MergeFieldEventHandler(AddressOf MailMerge_MergeField)
			document.MailMerge.ExecuteGroup(New MailMergeDataTable("Customer", customerRecords))

			'Save doc file.
			document.SaveToFile("Sample.doc", FileFormat.Doc)
		End Sub

		Private Sub MailMerge_MergeField(sender As Object, args As MergeFieldEventArgs)
			'Next row
			If args.RowIndex > lastIndex Then
				lastIndex = args.RowIndex
				AddPageBreakForMergeField(args.CurrentMergeField)
			End If
		End Sub

		Private Sub AddPageBreakForMergeField(mergeField As IMergeField)
			'Find position of needing to add page break
			Dim foundGroupStart As Boolean = False
			Dim paramgraph As Paragraph = TryCast(mergeField.PreviousSibling.Owner, Paragraph)
			Dim merageField As MergeField = Nothing
			While Not foundGroupStart
				paramgraph = TryCast(paramgraph.PreviousSibling, Paragraph)
				For i As Integer = 0 To paramgraph.Items.Count - 1
					merageField = TryCast(paramgraph.Items(i), MergeField)
					If (merageField IsNot Nothing) AndAlso (merageField.Prefix = "GroupStart") Then
						foundGroupStart = True
						Exit For
					End If
				Next
			End While

			paramgraph.AppendBreak(BreakType.PageBreak)
		End Sub
	End Class

	Public Class CustomerRecord
		Private m_contactName As String
		Public Property ContactName() As String
			Get
				Return m_contactName
			End Get
			Set
				m_contactName = value
			End Set
		End Property

		Private m_fax As String
		Public Property Fax() As String
			Get
				Return m_fax
			End Get
			Set
				m_fax = value
			End Set
		End Property

		Private m_date As DateTime
		Public Property [Date]() As DateTime
			Get
				Return m_date
			End Get
			Set
				m_date = value
			End Set
		End Property
	End Class
End Namespace

The sample demonstrates how to export doc document to PDF file.

//Create word document
Document document = new Document();

Section section = document.AddSection();
section.PageSetup.PageSize = PageSize.A4;
section.PageSetup.Margins.Top = 72f;
section.PageSetup.Margins.Bottom = 72f;
section.PageSetup.Margins.Left = 89.85f;
section.PageSetup.Margins.Right = 89.85f;

Paragraph paragraph = section.AddParagraph();
paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Left;
paragraph.AppendPicture(Image.FromFile("Word.png"));

String p1
    = "Microsoft Word is a word processor designed by Microsoft. "
    + "It was first released in 1983 under the name Multi-Tool Word for Xenix systems. "
    + "Subsequent versions were later written for several other platforms including "
    + "IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), "
    + "Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989). ";
String p2
    = "Microsoft Office Word instead of merely Microsoft Word. "
    + "The 2010 version appears to be branded as Microsoft Word, "
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac.";
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14;
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14;

//Save doc file to pdf.
document.SaveToFile("Sample.pdf", FileFormat.PDF);

'Create word document
Dim document As New Document()

Dim section As Section = document.AddSection()
section.PageSetup.PageSize = PageSize.A4
section.PageSetup.Margins.Top = 72.0F
section.PageSetup.Margins.Bottom = 72.0F
section.PageSetup.Margins.Left = 89.85F
section.PageSetup.Margins.Right = 89.85F

Dim paragraph As Paragraph = section.AddParagraph()
paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Left
paragraph.AppendPicture(Image.FromFile("Word.png"))

Dim p1 As String _
    = "Microsoft Word is a word processor designed by Microsoft. " _
    + "It was first released in 1983 under the name Multi-Tool Word for Xenix systems. " _
    + "Subsequent versions were later written for several other platforms including " _
    + "IBM PCs running DOS (1983), the Apple Macintosh (1984), the AT&T Unix PC (1985), " _
    + "Atari ST (1986), SCO UNIX, OS/2, and Microsoft Windows (1989). "
Dim p2 As String _
    = "Microsoft Office Word instead of merely Microsoft Word. " _
    + "The 2010 version appears to be branded as Microsoft Word, " _
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac."
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14

'Save doc file to pdf.
document.SaveToFile("Sample.pdf", FileFormat.PDF)