//Create word document.
            Document document = new Document();
            
            //Add a section in the document.
            Section section = document.AddSection();
 
            //Create a table.
            Spire.Doc.Table table = section.AddTable();
          

        'Create word document.
        Dim document As New Document()

        'Add a section in the document.
        Dim section As Section = document.AddSection()


        'Create a table.
        Dim table As Spire.Doc.Table = section.AddTable()
          

            //Set table size.
            table.ResetCells(data.Length + 1, header.Length);

            //***************** First Row *************************
            TableRow row = table.Rows[0];
            row.IsHeader = true;

            //Set the Height of the header.
            row.Height = 20; //unit: point, 1point = 0.3528 mm

            //Set the Height Type of the header.
            row.HeightType = TableRowHeightType.Exactly;
          

        'Set the Rows and Columns.
        table.ResetCells(data.Length + 1, header.Length)

        '***************** First Row *************************
        Dim row As TableRow = table.Rows(0)
        row.IsHeader = True

        'Set the Height of the header.
        row.Height = 20 'unit: point, 1point = 0.3528 mm

        'Set the Height Type of the header.
        row.HeightType = TableRowHeightType.Exactly
          

            //Fill the table with header.
            String[] header = { "Name", "Capital", "Continent", "Area", "Population" };

                //Set the Back Color of the data.
                dataRow.RowFormat.BackColor = Color.Empty;
                
                //"c" is the Column of the data.
                for (int c = 0; c < data[r].Length; c++)
                {
                    
                    //Set the Cell Format of the data.
                    dataRow.Cells[c].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
                    
                    //Fill the Cell Format with the data.
                    dataRow.Cells[c].AddParagraph().AppendText(data[r][c]);
                }
          

        'Fill the table with header.
        Dim header As String() = {"Name", "Capital", "Continent", "Area", "Population"}

            'Set the Back Color of the data.
            dataRow.RowFormat.BackColor = Color.Empty

            '"c" is the Column of the data.
            For c As Integer = 0 To data(r).Length - 1

                'Set the Cell Format of the data.
                dataRow.Cells(c).CellFormat.VerticalAlignment = VerticalAlignment.Middle

                'Fill the Cell Format with the data.
                dataRow.Cells(c).AddParagraph().AppendText(data(r)(c))
            Next
          

            String[][] data =
    {
        new String[]{"Argentina", "Buenos Aires", "South America", "2777815", "32300003"},
        new String[]{"Bolivia", "La Paz", "South America", "1098575", "7300000"},
        new String[]{"Brazil", "Brasilia", "South America", "8511196", "150400000"},
        new String[]{"Canada", "Ottawa", "North America", "9976147", "26500000"},
        new String[]{"Chile", "Santiago", "South America", "756943", "13200000"},
        new String[]{"Colombia", "Bagota", "South America", "1138907", "33000000"},
        new String[]{"Cuba", "Havana", "North America", "114524", "10600000"},
        new String[]{"Ecuador", "Quito", "South America", "455502", "10600000"},
        new String[]{"El Salvador", "San Salvador", "North America", "20865", "5300000"},
        new String[]{"Guyana", "Georgetown", "South America", "214969", "800000"},
        new String[]{"Jamaica", "Kingston", "North America", "11424", "2500000"},
        new String[]{"Mexico", "Mexico City", "North America", "1967180", "88600000"},
        new String[]{"Nicaragua", "Managua", "North America", "139000", "3900000"},
        new String[]{"Paraguay", "Asuncion", "South America", "406576", "4660000"},
        new String[]{"Peru", "Lima", "South America", "1285215", "21600000"},
        new String[]{"United States of America", "Washington", "North America", "9363130",
                        "249200000"},
        new String[]{"Uruguay", "Montevideo", "South America", "176140", "3002000"},
        new String[]{"Venezuela", "Caracas", "South America", "912047", "19700000"}
    };
          

        Dim data As String()() = { _
            New String() {"Argentina", "Buenos Aires", "South America", "2777815", "32300003"}, _
            New String() {"Bolivia", "La Paz", "South America", "1098575", "7300000"}, _
            New String() {"Brazil", "Brasilia", "South America", "8511196", "150400000"}, _
            New String() {"Canada", "Ottawa", "North America", "9976147", "26500000"}, _
            New String() {"Chile", "Santiago", "South America", "756943", "13200000"}, _
            New String() {"Colombia", "Bagota", "South America", "1138907", "33000000"}, _
            New String() {"Cuba", "Havana", "North America", "114524", "10600000"}, _
            New String() {"Ecuador", "Quito", "South America", "455502", "10600000"}, _
            New String() {"El Salvador", "San Salvador", "North America", "20865", "5300000"}, _
            New String() {"Guyana", "Georgetown", "South America", "214969", "800000"}, _
            New String() {"Jamaica", "Kingston", "North America", "11424", "2500000"}, _
            New String() {"Mexico", "Mexico City", "North America", "1967180", "88600000"}, _
            New String() {"Nicaragua", "Managua", "North America", "139000", "3900000"}, _
            New String() {"Paraguay", "Asuncion", "South America", "406576", "4660000"}, _
            New String() {"Peru", "Lima", "South America", "1285215", "21600000"}, _
            New String() {"United States of America", "Washington", "North America", "9363130", _
                            "249200000"}, _
            New String() {"Uruguay", "Montevideo", "South America", "176140", "3002000"}, _
            New String() {"Venezuela", "Caracas", "South America", "912047", "19700000"} _
            }
          

using Spire.Doc.Documents;
using Spire.Doc;
using System.Drawing;
using Spire.Doc.Fields;
using System;


namespace InsertingComments
{

    class Program
    {
        static void Main(string[] args)
        {
            //Create word document.
            Document document = new Document();
            
            //Add a section in the document.
            Section section = document.AddSection();
            
            //Fill the table with header.
            String[] header = { "Name", "Capital", "Continent", "Area", "Population" };
            String[][] data =
    {
        new String[]{"Argentina", "Buenos Aires", "South America", "2777815", "32300003"},
        new String[]{"Bolivia", "La Paz", "South America", "1098575", "7300000"},
        new String[]{"Brazil", "Brasilia", "South America", "8511196", "150400000"},
        new String[]{"Canada", "Ottawa", "North America", "9976147", "26500000"},
        new String[]{"Chile", "Santiago", "South America", "756943", "13200000"},
        new String[]{"Colombia", "Bagota", "South America", "1138907", "33000000"},
        new String[]{"Cuba", "Havana", "North America", "114524", "10600000"},
        new String[]{"Ecuador", "Quito", "South America", "455502", "10600000"},
        new String[]{"El Salvador", "San Salvador", "North America", "20865", "5300000"},
        new String[]{"Guyana", "Georgetown", "South America", "214969", "800000"},
        new String[]{"Jamaica", "Kingston", "North America", "11424", "2500000"},
        new String[]{"Mexico", "Mexico City", "North America", "1967180", "88600000"},
        new String[]{"Nicaragua", "Managua", "North America", "139000", "3900000"},
        new String[]{"Paraguay", "Asuncion", "South America", "406576", "4660000"},
        new String[]{"Peru", "Lima", "South America", "1285215", "21600000"},
        new String[]{"United States of America", "Washington", "North America", "9363130",
                        "249200000"},
        new String[]{"Uruguay", "Montevideo", "South America", "176140", "3002000"},
        new String[]{"Venezuela", "Caracas", "South America", "912047", "19700000"}
    };

            //Create a table.
            Spire.Doc.Table table = section.AddTable();

            //Set table size.
            table.ResetCells(data.Length + 1, header.Length);

            //***************** First Row *************************
            TableRow row = table.Rows[0];
            row.IsHeader = true;

            //Set the Height of the header.
            row.Height = 20; //unit: point, 1point = 0.3528 mm

            //Set the Height Type of the header.
            row.HeightType = TableRowHeightType.Exactly;

            //Set the Back Color of the header.
            row.RowFormat.BackColor = Color.Gray;
            for (int i = 0; i < header.Length; i++)
            {

                //Set the Cell Format of the header.
                row.Cells[i].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
                Paragraph p = row.Cells[i].AddParagraph();
                
                //Set the Horizon of the header.
                p.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center;
                TextRange txtRange = p.AppendText(header[i]);
                
                //Set the Character Format of the header.
                txtRange.CharacterFormat.Bold = true;
            }

            //***************** Data Row *************************
            for (int r = 0; r < data.Length; r++)
            {
                TableRow dataRow = table.Rows[r + 1];
                
                //Set the Height of the data.
                dataRow.Height = 20;
                
                //Set the Height Type of the data.
                dataRow.HeightType = TableRowHeightType.Exactly;
                
                //Set the Back Color of the data.
                dataRow.RowFormat.BackColor = Color.Empty;
                
                //"c" is the Column of the data.
                for (int c = 0; c < data[r].Length; c++)
                {
                    
                    //Set the Cell Format of the data.
                    dataRow.Cells[c].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
                    
                    //Fill the Cell Format with the data.
                    dataRow.Cells[c].AddParagraph().AppendText(data[r][c]);
                }
            }

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

            //Launch the file.
            System.Diagnostics.Process.Start("Sample.doc");
        }
    }
}
          

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System.Drawing
Imports System
Imports Spire.Doc.Fields

Module Module1

    Sub Main()
        'Create word document.
        Dim document As New Document()

        'Add a section in the document.
        Dim section As Section = document.AddSection()

        'Fill the table with header.
        Dim header As String() = {"Name", "Capital", "Continent", "Area", "Population"}
        Dim data As String()() = { _
            New String() {"Argentina", "Buenos Aires", "South America", "2777815", "32300003"}, _
            New String() {"Bolivia", "La Paz", "South America", "1098575", "7300000"}, _
            New String() {"Brazil", "Brasilia", "South America", "8511196", "150400000"}, _
            New String() {"Canada", "Ottawa", "North America", "9976147", "26500000"}, _
            New String() {"Chile", "Santiago", "South America", "756943", "13200000"}, _
            New String() {"Colombia", "Bagota", "South America", "1138907", "33000000"}, _
            New String() {"Cuba", "Havana", "North America", "114524", "10600000"}, _
            New String() {"Ecuador", "Quito", "South America", "455502", "10600000"}, _
            New String() {"El Salvador", "San Salvador", "North America", "20865", "5300000"}, _
            New String() {"Guyana", "Georgetown", "South America", "214969", "800000"}, _
            New String() {"Jamaica", "Kingston", "North America", "11424", "2500000"}, _
            New String() {"Mexico", "Mexico City", "North America", "1967180", "88600000"}, _
            New String() {"Nicaragua", "Managua", "North America", "139000", "3900000"}, _
            New String() {"Paraguay", "Asuncion", "South America", "406576", "4660000"}, _
            New String() {"Peru", "Lima", "South America", "1285215", "21600000"}, _
            New String() {"United States of America", "Washington", "North America", "9363130", _
                            "249200000"}, _
            New String() {"Uruguay", "Montevideo", "South America", "176140", "3002000"}, _
            New String() {"Venezuela", "Caracas", "South America", "912047", "19700000"} _
            }

        'Create a table.
        Dim table As Spire.Doc.Table = section.AddTable()

        'Set the Rows and Columns.
        table.ResetCells(data.Length + 1, header.Length)

        '***************** First Row *************************
        Dim row As TableRow = table.Rows(0)
        row.IsHeader = True

        'Set the Height of the header.
        row.Height = 20 'unit: point, 1point = 0.3528 mm

        'Set the Height Type of the header.
        row.HeightType = TableRowHeightType.Exactly

        'Set the Back Color of the header.
        row.RowFormat.BackColor = Color.Gray
        For i As Integer = 0 To header.Length - 1

            'Set the Cell Format of the header.
            row.Cells(i).CellFormat.VerticalAlignment = VerticalAlignment.Middle
            Dim p As Paragraph = row.Cells(i).AddParagraph()

            'Set the Horizon of the header.
            p.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center
            Dim txtRange As TextRange = p.AppendText(header(i))

            'Set the Character Format of the header.
            txtRange.CharacterFormat.Bold = True
        Next

        '***************** Data Row *************************
        For r As Integer = 0 To data.Length - 1
            Dim dataRow As TableRow = table.Rows(r + 1)

            'Set the Height of the data.
            dataRow.Height = 20

            'Set the Height Type of the data.
            dataRow.HeightType = TableRowHeightType.Exactly

            'Set the Back Color of the data.
            dataRow.RowFormat.BackColor = Color.Empty

            '"c" is the Column of the data.
            For c As Integer = 0 To data(r).Length - 1

                'Set the Cell Format of the data.
                dataRow.Cells(c).CellFormat.VerticalAlignment = VerticalAlignment.Middle

                'Fill the Cell Format with the data.
                dataRow.Cells(c).AddParagraph().AppendText(data(r)(c))
            Next
        Next

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

        'Launch the file.
        System.Diagnostics.Process.Start("Sample.doc")
    End Sub
End Module  
          

using Spire.Doc.Documents;
using Spire.Doc;
using System;

namespace ListIndent
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create word document.
            Document document = new Document();

            //Add a section in the document.
            Section section = document.AddSection();

            //Add a paragraph 
            Paragraph paragraph = section.AddParagraph();
            paragraph.AppendText("Using items list to show Indent demo.");
            paragraph.ApplyStyle(BuiltinStyle.Heading3);
            
            //Indent list
            for (int i = 0; i < 10; i++)
            {
                paragraph = section.AddParagraph();
                paragraph.AppendText(String.Format("Indent Demo Node{0}", i));
                if (i == 0)
                {
                    paragraph.ListFormat.ApplyBulletStyle();
                }
                else
                {
                    paragraph.ListFormat.ContinueListNumbering();
                }
                paragraph.ListFormat.CurrentListLevel.NumberPosition = -10;
            }

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

            //Launch the file.
            System.Diagnostics.Process.Start("Sample.doc");
        }
    }
}
          

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System
Imports Spire.Doc.Fields

Module Module1

    Sub Main()
        'Create a document
        Dim document As New Document()

        'Get the first secition
        Dim section As Section = document.AddSection()

        'Add a paragraph
        Dim paragraph As Paragraph = section.AddParagraph
        
        'Append Text
        paragraph.AppendText("Using items list to show Indent demo.")
        paragraph.ApplyStyle(BuiltinStyle.Heading3)

        'Indent list 
        For i As Integer = 0 To 9
            paragraph = section.AddParagraph()
            Dim text As String = "Indent Demo Node" & i.ToString()
            Dim txtRange As TextRange = paragraph.AppendText(text)
            If i = 0 Then
                paragraph.ListFormat.ApplyBulletStyle()
            Else
                paragraph.ListFormat.ContinueListNumbering()
            End If
            paragraph.ListFormat.CurrentListLevel.NumberPosition = -10
        Next i

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

        'Launching the MS Word file.
        System.Diagnostics.Process.Start("Sample.doc")
    End Sub
End Module
          

using Spire.Doc.Documents;
using Spire.Doc;
using System;

namespace ParagraphIndent
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create word document.
            Document document = new Document();

            //Add a section in the document.
            Section section = document.AddSection();

            //Add a paragraph 
            Paragraph paragraph = section.AddParagraph();
            paragraph.AppendText("Using items list to show Indent demo.");
            paragraph.ApplyStyle(BuiltinStyle.Heading3);
            
            //Indent paragraphs
            for (int i = 0; i < 10; i++)
            {
                paragraph = section.AddParagraph();
                paragraph.AppendText(String.Format("Indent Demo Node{0}", i));
                
                //Set the indent distance of the left
                paragraph.Format.LeftIndent = 15;
            }

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

            //Launch the file.
            System.Diagnostics.Process.Start("Sample.doc");
        }
    }
}
          

Imports Spire.Doc
Imports Spire.Doc.Documents
Imports System
Imports Spire.Doc.Fields

Module Module1

    Sub Main()
        'Create a document
        Dim document As New Document()

        'Get the first secition
        Dim section As Section = document.AddSection()

        'Add a paragraph
        Dim paragraph As Paragraph = section.AddParagraph
        
        'Append Text
        paragraph.AppendText("Using items list to show Indent demo.")
        paragraph.ApplyStyle(BuiltinStyle.Heading3)

        'Indent paragraphs
        For i As Integer = 0 To 9
            paragraph = section.AddParagraph()
            Dim text As String = "Indent Demo Node" & i.ToString()
            Dim txtRange As TextRange = paragraph.AppendText(text)
            
            'Set the indent distance of the left
            paragraph.Format.LeftIndent = 15;
        Next i

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

        'Launching the MS Word file.
        System.Diagnostics.Process.Start("Sample.doc")
    End Sub
End Module
          

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using Spire.Doc;
using Spire.Doc.Documents;

namespace pagebreak
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            //Create word document
            Document document = new Document();
            document.LoadFromFile(@"D:\Sample.doc");

            InsertBreak(document);

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

            //Launching the MS Word file.
            WordDocViewer("Sample.doc");

        }
        private void InsertBreak(Document document)
        {
            Section section = document.Sections[0];
            Paragraph paragraph = section.Paragraphs[2];
            paragraph.AppendBreak(BreakType.PageBreak);
        }

        private void WordDocViewer(string fileName)
        {
            try
            {
                System.Diagnostics.Process.Start(fileName);
            }
            catch { }
        }
    }
}

Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports Spire.Doc
Imports Spire.Doc.Documents

Namespace pagebreak
	Partial Public Class Form1
		Inherits Form
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs)
			'Create word document
			Dim document As New Document()
			document.LoadFromFile("D:\Sample.doc")

			InsertBreak(document)

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

			'Launching the MS Word file.
			WordDocViewer("Sample.doc")

		End Sub
		Private Sub InsertBreak(ByVal document As Document)
			Dim section As Section = document.Sections(0)
			Dim paragraph As Paragraph = section.Paragraphs(2)
			paragraph.AppendBreak(BreakType.PageBreak)
		End Sub

		Private Sub WordDocViewer(ByVal fileName As String)
			Try
				System.Diagnostics.Process.Start(fileName)
			Catch
			End Try
		End Sub
	End Class
End Namespace

using System;
using System.Drawing;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

namespace MailMerge
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a new document 
            Document document = new Document();
            
            //Create a section
            Section section = document.AddSection();
            
            //Add a paragraph
            Paragraph paragraph = section.AddParagraph();
            
            //Style
            ParagraphStyle style = new ParagraphStyle(section.Document);
            style.Name = "style";
            style.ApplyBaseStyle(style.Name);
            style.CharacterFormat.Font = new Font("Arial", 10f);
            section.Document.Styles.Add(style);
            
            //Add a text
            String str = "Science (from the Latin scientia, meaning \"knowledge\") ";
            paragraph.AppendText(str);

            //Simple comment
            Comment comment = paragraph.AppendComment("Not given in this file.");
            comment.Format.Author = "Harry Hu";
            comment.Format.Initial = "HH";
            paragraph.ApplyStyle(style.Name);
            
            //Save doc file.
            document.SaveToFile("Sample.doc", FileFormat.Doc);

            //Launching the MS Word file.
            System.Diagnostics.Process.Start("Sample.doc");
        }
    }
}
          

Imports System;
Imports System.Drawing;
Imports Spire.Doc;
Imports Spire.Doc.Documents;
Imports Spire.Doc.Fields;

Module Module1

    Sub Main()
        'Create a new document
        Dim document As New Document()
        
        'Create a section
        Dim section As Section = document.AddSection()
            
        'Add a paragraph 
        Dim paragraph As Paragraph = section.AddParagraph()
        
        'Style
        Dim style As New ParagraphStyle = ParagraphStyle(section.Document)
        style.Name = "style"
        style.ApplyBaseStyle(style.Name)
        style.CharacterFormat.Font = new Font("Arial", 10f)
        section.Document.Styles.Add(style)
        
        'Add a text
        Dim str As String  = "Science (from the Latin scientia, meaning ""knowledge"") "
        paragraph.AppendText(str)

        'Simple comment
        Dim comment As Comment  = paragraph.AppendComment("Not given in this file.")
        comment.Format.Author = "Harry Hu"
        comment.Format.Initial = "HH"
        paragraph.ApplyStyle(style.Name)
        
        'Save the file
        workbook.SaveToFile("Sample.doc")
        
        'Launch the file
        System.Diagnostics.Process.Start("Sample.doc")
    End Sub
End Module
          

using System;
using System.Drawing;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

namespace MailMerge
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a new document 
            Document document = new Document();
            
            //Create a section
            Section section = document.AddSection();
            
            //Add a paragraph
            Paragraph paragraph = section.AddParagraph();

            //style
            ParagraphStyle style = new ParagraphStyle(section.Document);
            style.Name = "style";
            style.CharacterFormat.FontName = "Arial";
            style.CharacterFormat.FontSize = 9;
            style.ParagraphFormat.LineSpacing = 1.5F * 12F;
            style.ParagraphFormat.LineSpacingRule = LineSpacingRule.Multiple;
            section.Document.Styles.Add(style);

            //Add a paragraph
            paragraph = section.AddParagraph();
            paragraph.AppendText("(All text and pictures are from ");
            
            //Append the text which you want to make comment for
            TextRange text = paragraph.AppendText("Wikipedia");

            //Make comment 
            Comment comment = paragraph.AppendComment("http://en.wikipedia.org/wiki/Science");
            comment.AddItem(text);
            comment.Format.Author = "Harry Hu";
            comment.Format.Initial = "HH";
            
            //Continue the paragraph
            paragraph.AppendText(", the free encyclopedia)");
            paragraph.ApplyStyle(style.Name);
      
            //Save doc file.
            document.SaveToFile("Sample.doc", FileFormat.Doc);

            //Launching the MS Word file.
            System.Diagnostics.Process.Start("Sample.doc");
        }
    }
}
          

Imports System;
Imports System.Drawing;
Imports Spire.Doc;
Imports Spire.Doc.Documents;
Imports Spire.Doc.Fields;

Module Module1

    Sub Main()
        'Create a new document
        Dim document As New Document()
        
        'Create a section
        Dim section As Section = document.AddSection()
        
        'Add a paragraph 
        Dim paragraph As Paragraph = section.AddParagraph()
        
        'Style
        Dim style As New ParagraphStyle = ParagraphStyle(section.Document)
        style.Name = "style"
        style.CharacterFormat.FontName = "Arial"
        style.CharacterFormat.FontSize = 9
        style.ParagraphFormat.LineSpacing = 1.5F * 12F
        style.ParagraphFormat.LineSpacingRule = LineSpacingRule.Multiple
        section.Document.Styles.Add(style);
        
        'Add a paragraph 
        Dim paragraph As Paragraph = section.AddParagraph()
        paragraph.AppendText("(All text and pictures are from ")
        
        'Append the text which you want to make comment for
        Dim text As TextRange = paragraph.AppendText("Wikipedia")

        'Make comment 
        Dim comment As Comment = paragraph.AppendComment("http://en.wikipedia.org/wiki/Science")
        comment.AddItem(text)
        comment.Format.Author = "Harry Hu"
        comment.Format.Initial = "HH"
            
        'Continue the paragraph
        paragraph.AppendText(", the free encyclopedia)")
        paragraph.ApplyStyle(style.Name)
        
        'Save the file
        workbook.SaveToFile("Sample.doc")
        
        'Launch the file
        System.Diagnostics.Process.Start("Sample.doc")
    End Sub
End Module
          

using System;
using System.Drawing;
using Spire.Doc;
using Spire.Doc.Documents;
using Spire.Doc.Fields;

namespace MailMerge
{
    class Program
    {
        static void Main(string[] args)
        {
            //Create a new document 
            Document document = new Document();
            
            //Create a section
            Section section = document.AddSection();
            
            //Add a paragraph
            Paragraph paragraph = section.AddParagraph();

            //style1
            ParagraphStyle style1 = new ParagraphStyle(section.Document);
            style1.Name = "style";
            style1.CharacterFormat.FontName = "Arial";
            style1.CharacterFormat.FontSize = 9;
            style1.ParagraphFormat.LineSpacing = 1.5F * 12F;
            style1.ParagraphFormat.LineSpacingRule = LineSpacingRule.Multiple;
            section.Document.Styles.Add(style1);

            //Add a paragraph
            paragraph = section.AddParagraph();
            paragraph.AppendText("(All text and pictures are from ");
            
            //Append the text which you want to make comment for
            TextRange text = paragraph.AppendText("Wikipedia");

            //Make complex comment 
            Comment comment1 = paragraph.AppendComment("http://en.wikipedia.org/wiki/Science");
            comment1.AddItem(text);
            comment1.Format.Author = "Harry Hu";
            comment1.Format.Initial = "HH";
            
            //Continue the paragraph
            paragraph.AppendText(", the free encyclopedia)");
            paragraph.ApplyStyle(style1.Name);
            
            //Style2
            ParagraphStyle style2 = new ParagraphStyle(section.Document);
            style2.Name = "style2";
            style2.ApplyBaseStyle(style1.Name);
            style2.CharacterFormat.Font = new Font("Arial", 10f);
            section.Document.Styles.Add(style2);
            
            //Add a second paragraph
            Paragraph paragraph1 = section.AddParagraph();
            
            //Add a text
            String str1 = "Science (from the Latin scientia, meaning \"knowledge\") ";
            paragraph1.AppendText(str1);

            //Simple comment
            Comment comment2 = paragraph.AppendComment("Not given in this file.");
            comment2.Format.Author = "Harry Hu";
            comment2.Format.Initial = "HH";
            paragraph.ApplyStyle(style2.Name);
            
            //Save doc file.
            document.SaveToFile("Sample.doc", FileFormat.Doc);

            //Launching the MS Word file.
            System.Diagnostics.Process.Start("Sample.doc");
      
        }
    }
}
          

Imports System
Imports System.Drawing
Imports Spire.Doc
Imports Spire.Doc.Documents
Imports Spire.Doc.Fields

Module Module1

    Sub Main()
        'Create a new document
        Dim document As New Document()

        'Create a section
        Dim section As Section = document.AddSection()

        'Add a paragraph 
        Dim paragraph As Paragraph = section.AddParagraph()

        'Style1
        Dim style1 As New ParagraphStyle(document)
        style1.Name = "style1"
        style1.CharacterFormat.FontName = "Arial"
        style1.CharacterFormat.FontSize = 9
        style1.ParagraphFormat.LineSpacing = 1.5F * 12.0F
        style1.ParagraphFormat.LineSpacingRule = LineSpacingRule.Multiple
        section.Document.Styles.Add(style1)

        'Add a paragraph 
        paragraph = section.AddParagraph()
        paragraph.AppendText("(All text and pictures are from ")

        'Append the text which you want to make comment for
        Dim text As TextRange = paragraph.AppendText("Wikipedia")

        'Make complex comment 
        Dim comment1 As Comment = paragraph.AppendComment("http://en.wikipedia.org/wiki/Science")
        comment1.AddItem(text)
        comment1.Format.Author = "Harry Hu"
        comment1.Format.Initial = "HH"

        'Continue the paragraph
        paragraph.AppendText(", the free encyclopedia)")
        paragraph.ApplyStyle(style1.Name)

        'Style2
        Dim style2 As New ParagraphStyle(document)
        style2.Name = "style"
        style2.ApplyBaseStyle(style1.Name)
        style2.CharacterFormat.Font = New Font("Arial", 10.0F)
        section.Document.Styles.Add(style2)

        'Add a second paragraph
        Dim paragraph1 As Paragraph = section.AddParagraph()

        'Add a text
        Dim str1 As String = "Science (from the Latin scientia, meaning ""knowledge"") "
        paragraph1.AppendText(str1)

        'Simple comment
        Dim comment2 As Comment = paragraph.AppendComment("Not given in this file.")
        comment2.Format.Author = "Harry Hu"
        comment2.Format.Initial = "HH"
        paragraph.ApplyStyle(style2.Name)

        'Save the file
        document.SaveToFile("Sample.doc")

        'Launch the file
        System.Diagnostics.Process.Start("Sample.doc")
    End Sub
End Module