The sample demonstrates how to insert header and footer into a Word document.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();

    InsertHeaderFooter(document);

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

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


}

private void InsertHeaderFooter(Document document)
{
    Section section = document.AddSection();
    Paragraph paragraph = section.AddParagraph();
    paragraph.AppendText("The sample demonstrates how to insert a header and footer into a document.");
    paragraph.ApplyStyle(BuiltinStyle.Heading2); 
    
    paragraph = section.AddParagraph();
    paragraph.AppendText("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).");

    section.PageSetup.DifferentFirstPageHeaderFooter = true;

    paragraph = new Paragraph(document);
    paragraph.AppendText("Spire.Doc for .NET").CharacterFormat.FontSize = 15;
    paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center;
    section.HeadersFooters.FirstPageHeader.Paragraphs.Add(paragraph);

    paragraph = new Paragraph(document);
    paragraph.AppendText("e-iceblue company Ltd. 2002-2010 All rights reserverd").CharacterFormat.FontSize = 15;
    paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center;
    section.HeadersFooters.FirstPageFooter.Paragraphs.Add(paragraph);
}

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()

	InsertHeaderFooter(document_Renamed)

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

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


End Sub

Private Sub InsertHeaderFooter(ByVal document_Renamed As Document)
	Dim section_Renamed As Section = document_Renamed.AddSection()
	Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("The sample demonstrates how to insert a header and footer into a document.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading2)

	section_Renamed.PageSetup.DifferentFirstPageHeaderFooter = True

	paragraph_Renamed = New Paragraph(document_Renamed)
	paragraph_Renamed.AppendText("Spire.Doc for .NET").CharacterFormat.FontSize = 15
	paragraph_Renamed.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center
	section_Renamed.HeadersFooters.FirstPageHeader.Paragraphs.Add(paragraph_Renamed)

	paragraph_Renamed = New Paragraph(document_Renamed)
	paragraph_Renamed.AppendText("e-iceblue company Ltd. 2002-2010 All rights reserverd").CharacterFormat.FontSize = 15
	paragraph_Renamed.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center
	section_Renamed.HeadersFooters.FirstPageFooter.Paragraphs.Add(paragraph_Renamed)
End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to insert comments into a Word document.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();

    InsertComments(document.AddSection());

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

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


}

private void InsertComments(Section section)
{
    Paragraph paragraph = section.AddParagraph();
    paragraph.AppendText("The sample demonstrates how to insert a comment into a document.");
    paragraph.ApplyStyle(BuiltinStyle.Heading2);

    paragraph = section.AddParagraph();
    paragraph.AppendText("Spire.Doc can generate, modify, convert, render and print documents without utilizing Microsoft Word.");
    paragraph.AppendComment("This is a comment");


    paragraph = section.AddParagraph();
    paragraph.AppendText("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).");

}

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()

	InsertComments(document_Renamed.AddSection())

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

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


End Sub

Private Sub InsertComments(ByVal section_Renamed As Section)
	Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("The sample demonstrates how to insert a comment into a document.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading2)

	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("comment demonstration")
	paragraph_Renamed.AppendComment("This is a comment")
End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to Set bookmark in Word document.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();

    Bookmark(document.AddSection());

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

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


}

private void Bookmark(Section section)
{
    Paragraph paragraph = section.AddParagraph();
    paragraph.AppendText("The sample demonstrates how to using bookmark.");
    paragraph.ApplyStyle(BuiltinStyle.Heading2);

    section.AddParagraph();
    paragraph = section.AddParagraph();
    paragraph.AppendText("Simple bookmark.");
    paragraph.ApplyStyle(BuiltinStyle.Heading4);
    
    // Writing simple bookmarks
    section.AddParagraph();
    paragraph = section.AddParagraph();
    paragraph.AppendBookmarkStart("SimpleBookMark");
    paragraph.AppendText("This is a simple book mark.");
    paragraph.AppendBookmarkEnd("SimpleBookMark");

    section.AddParagraph();
    paragraph = section.AddParagraph();
    paragraph.AppendText("Nested bookmark.");
    paragraph.ApplyStyle(BuiltinStyle.Heading4);

    // Writing nested bookmarks
    section.AddParagraph();
    paragraph = section.AddParagraph();
    paragraph.AppendBookmarkStart("Root");
    paragraph.AppendText(" Root data ");
    paragraph.AppendBookmarkStart("NestedLevel1");
    paragraph.AppendText(" Nested Level1 ");
    paragraph.AppendBookmarkStart("NestedLevel2");
    paragraph.AppendText(" Nested Level2 ");
    paragraph.AppendBookmarkEnd("NestedLevel2");
    paragraph.AppendText(" Data Level1 ");
    paragraph.AppendBookmarkEnd("NestedLevel1");
    paragraph.AppendText(" Data Root ");
    paragraph.AppendBookmarkEnd("Root");

}

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()

	Bookmark(document_Renamed.AddSection())

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

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


End Sub

Private Sub Bookmark(ByVal section_Renamed As Section)
	Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("The sample demonstrates how to using bookmark.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading2)

	section_Renamed.AddParagraph()
	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("Simple bookmark.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4)

	' Writing simple bookmarks
	section_Renamed.AddParagraph()
	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendBookmarkStart("SimpleBookMark")
	paragraph_Renamed.AppendText("This is a simple book mark.")
	paragraph_Renamed.AppendBookmarkEnd("SimpleBookMark")

	section_Renamed.AddParagraph()
	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("Nested bookmark.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4)

	' Writing nested bookmarks
	section_Renamed.AddParagraph()
	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendBookmarkStart("Root")
	paragraph_Renamed.AppendText(" Root data ")
	paragraph_Renamed.AppendBookmarkStart("NestedLevel1")
	paragraph_Renamed.AppendText(" Nested Level1 ")
	paragraph_Renamed.AppendBookmarkStart("NestedLevel2")
	paragraph_Renamed.AppendText(" Nested Level2 ")
	paragraph_Renamed.AppendBookmarkEnd("NestedLevel2")
	paragraph_Renamed.AppendText(" Data Level1 ")
	paragraph_Renamed.AppendBookmarkEnd("NestedLevel1")
	paragraph_Renamed.AppendText(" Data Root ")
	paragraph_Renamed.AppendBookmarkEnd("Root")

End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to set text style in Word document.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();

    //Create a new secition
    Section section = document.AddSection();

    //Create a new paragraph
    Paragraph paragraph = section.AddParagraph();

    //Append Text
    paragraph.AppendText("The various ways to format paragraph text in Microsoft Word:");

    paragraph.ApplyStyle(BuiltinStyle.Heading1);

    //Append alignment text
    AppendAligmentText(section);

    //Append indentation text
    AppendIndentationText(section);

    AppendBulletedList(section);

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

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


}

private void AppendAligmentText(Section section)
{
    Paragraph paragraph = null;

    paragraph = section.AddParagraph();

    //Append Text
    paragraph.AppendText("Horizontal Aligenment");

    paragraph.ApplyStyle(BuiltinStyle.Heading3);

    foreach (Spire.Doc.Documents.HorizontalAlignment align in Enum.GetValues(typeof(Spire.Doc.Documents.HorizontalAlignment)))
    {
        Paragraph paramgraph = section.AddParagraph();
        paramgraph.AppendText("This text is " + align.ToString());
        paramgraph.Format.HorizontalAlignment = align;
    }
}

private void AppendIndentationText(Section section)
{
    Paragraph paragraph = null;

    paragraph = section.AddParagraph();

    //Append Text
    paragraph.AppendText("Indentation");

    paragraph.ApplyStyle(BuiltinStyle.Heading3);

    paragraph = section.AddParagraph();
    paragraph.AppendText("Indentation is the spacing between text and margins. Word allows you to set left and right margins, as well as indentations for the first line of a paragraph and hanging indents");
    paragraph.Format.FirstLineIndent = 15;
}

private void AppendBulletedList(Section section)
{
    Paragraph paragraph = null;

    paragraph = section.AddParagraph();
    

    //Append Text
    paragraph.AppendText("Bulleted List");

    paragraph.ApplyStyle(BuiltinStyle.Heading3);

    paragraph = section.AddParagraph();
    for (int i = 0; i < 5; i++)
    {
        paragraph = section.AddParagraph();
        paragraph.AppendText("Item" + i.ToString());

        if (i == 0)
        {
            paragraph.ListFormat.ApplyBulletStyle();
        }
        else
        {
            paragraph.ListFormat.ContinueListNumbering();
        }

        paragraph.ListFormat.ListLevelNumber = 1;
    }
}





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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()

	'Create a new secition
	Dim section_Renamed As Section = document_Renamed.AddSection()

	'Create a new paragraph
	Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph()

	'Append Text
	paragraph_Renamed.AppendText("The various ways to format paragraph text in Microsoft Word:")

	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading1)

	'Append alignment text
	AppendAligmentText(section_Renamed)

	'Append indentation text
	AppendIndentationText(section_Renamed)

	AppendBulletedList(section_Renamed)

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

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


End Sub

Private Sub AppendAligmentText(ByVal section_Renamed As Section)
	Dim paragraph_Renamed As Paragraph = Nothing

	paragraph_Renamed = section_Renamed.AddParagraph()

	'Append Text
	paragraph_Renamed.AppendText("Horizontal Aligenment")

	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading3)

	For Each align As Spire.Doc.Documents.HorizontalAlignment In System.Enum.GetValues(GetType(Spire.Doc.Documents.HorizontalAlignment))
		Dim paramgraph As Paragraph = section_Renamed.AddParagraph()
		paramgraph.AppendText("This text is " & align.ToString())
		paramgraph.Format.HorizontalAlignment = align
	Next align
End Sub

Private Sub AppendIndentationText(ByVal section_Renamed As Section)
	Dim paragraph_Renamed As Paragraph = Nothing

	paragraph_Renamed = section_Renamed.AddParagraph()

	'Append Text
	paragraph_Renamed.AppendText("Indentation")

	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading3)

	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("Indentation is the spacing between text and margins. Word allows you to set left and right margins, as well as indentations for the first line of a paragraph and hanging indents")
	paragraph_Renamed.Format.FirstLineIndent = 15
End Sub

Private Sub AppendBulletedList(ByVal section_Renamed As Section)
	Dim paragraph_Renamed As Paragraph = Nothing

	paragraph_Renamed = section_Renamed.AddParagraph()


	'Append Text
	paragraph_Renamed.AppendText("Bulleted List")

	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading3)

	paragraph_Renamed = section_Renamed.AddParagraph()
	For i As Integer = 0 To 4
		paragraph_Renamed = section_Renamed.AddParagraph()
		paragraph_Renamed.AppendText("Item" & i.ToString())

		If i = 0 Then
			paragraph_Renamed.ListFormat.ApplyBulletStyle()
		Else
			paragraph_Renamed.ListFormat.ContinueListNumbering()
		End If

		paragraph_Renamed.ListFormat.ListLevelNumber = 1
	Next i
End Sub





Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to Set Word styles.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();

    //Create a new secition
    Section section = document.AddSection();

    //Create a new paragraph
    Paragraph paragraph = section.AddParagraph();

    //Append Text
    paragraph.AppendText("Builtin Style:");

    foreach (BuiltinStyle builtinStyle in Enum.GetValues(typeof(BuiltinStyle)))
    {
        paragraph = section.AddParagraph();
        //Append Text
        paragraph.AppendText(builtinStyle.ToString());
        //Apply Style
        paragraph.ApplyStyle(builtinStyle);
    }

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

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


}

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()

	'Create a new secition
	Dim section_Renamed As Section = document_Renamed.AddSection()

	'Create a new paragraph
	Dim paragraph_Renamed As Paragraph = section_Renamed.AddParagraph()

	'Append Text
	paragraph_Renamed.AppendText("Builtin Style:")

	For Each builtinStyle_Renamed As BuiltinStyle In System.Enum.GetValues(GetType(BuiltinStyle))
		paragraph_Renamed = section_Renamed.AddParagraph()
		'Append Text
		paragraph_Renamed.AppendText(builtinStyle_Renamed.ToString())
		'Apply Style
		paragraph_Renamed.ApplyStyle(builtinStyle_Renamed)
	Next builtinStyle_Renamed

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

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


End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to replace one word to another in a Word document.

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

    //Replace text
    document.Replace(this.textBox1.Text, this.textBox2.Text,true,true);

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

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

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

 Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()
	document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\FindAndReplace.doc")

	'Replace text
	document_Renamed.Replace(Me.textBox1.Text, Me.textBox2.Text,True,True)

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

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

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to find and highlight specified text in Word document.

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

    //Find text
    TextSelection[] textSelections = document.FindAllString(this.textBox1.Text, true, true);

    //Set hightlight
    foreach(TextSelection selection in textSelections)
    {
        selection.GetAsOneRange().CharacterFormat.HighlightColor = Color.Yellow;
    }

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

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

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()
	document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\FindAndReplace.doc")

	'Find text
	Dim textSelections() As TextSelection = document_Renamed.FindAllString(Me.textBox1.Text, True, True)

	'Set hightlight
	For Each selection As TextSelection In textSelections
		selection.GetAsOneRange().CharacterFormat.HighlightColor = Color.Yellow
	Next selection

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

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

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to edit a Word document.

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

    //Get a paragraph
    Paragraph paragraph = document.Sections[0].AddParagraph();

    //Append Text
    paragraph.AppendText("Editing sample");

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

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

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

    Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()
	document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\Editing.doc")

	'Get a paragraph
	Dim paragraph_Renamed As Paragraph = document_Renamed.Sections(0).AddParagraph()

	'Append Text
	paragraph_Renamed.AppendText("Editing sample")

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

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

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

The sample demonstrates how to write a "Hello World" in a Word document.

private void button1_Click(object sender, EventArgs e)
{
    //Create word document
    Document document = new Document();

    //Create a new paragraph
    Paragraph paragraph = document.AddSection().AddParagraph();

    //Append Text
    paragraph.AppendText("Hello World!");

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

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

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

Private Sub button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles button1.Click
	'Create word document
	Dim document_Renamed As New Document()

	'Create a new paragraph
	Dim paragraph_Renamed As Paragraph = document_Renamed.AddSection().AddParagraph()

	'Append Text
	paragraph_Renamed.AppendText("Hello World!")

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

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


End Sub

Private Sub WordDocViewer(ByVal fileName As String)
	Try
		Process.Start(fileName)
	Catch
	End Try
End Sub

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

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			Worksheet sheet = workbook.Worksheets[0];
			workbook.Version = ExcelVersion.Version2007;


			int maxColor = Enum.GetValues(typeof(ExcelColors)).Length;
			Random random = new Random((int)System.DateTime.Now.Ticks);
			for (int i = 2; i < 40; i++)
			{
                
			ExcelColors backKnownColor = (ExcelColors)(random.Next(1,maxColor / 2));

			sheet.Range["A1"].Text = "Color Name";
			sheet.Range["B1"].Text = "Red";
			sheet.Range["C1"].Text = "Green";
			sheet.Range["D1"].Text = "Blue";
			sheet.Range["E1:K1"].Merge();
			sheet.Range["E1:K1"].Text = "Gradient";
			sheet.Range["A1:K1"].Style.Font.IsBold = true;
			sheet.Range["A1:K1"].Style.Font.Size = 11;

			string colorName = backKnownColor.ToString();
			sheet.Range[string.Format("A{0}",i)].Text = colorName;
			sheet.Range[string.Format("B{0}", i)].Text = workbook.GetPaletteColor(backKnownColor).R.ToString();
			sheet.Range[string.Format("C{0}", i)].Text = workbook.GetPaletteColor(backKnownColor).G.ToString();
			sheet.Range[string.Format("D{0}", i)].Text = workbook.GetPaletteColor(backKnownColor).B.ToString();

			sheet.Range[string.Format("E{0}:K{0}",i)].Merge();
			sheet.Range[string.Format("E{0}:K{0}", i)].Text = colorName;
			sheet.Range[string.Format("E{0}:K{0}", i)].Style.Interior.FillPattern = ExcelPatternType.Gradient;
			sheet.Range[string.Format("E{0}:K{0}", i)].Style.Interior.Gradient.BackKnownColor = backKnownColor;
			sheet.Range[string.Format("E{0}:K{0}", i)].Style.Interior.Gradient.ForeKnownColor = ExcelColors.White;
			sheet.Range[string.Format("E{0}:K{0}", i)].Style.Interior.Gradient.GradientStyle = GradientStyleType.Vertical;
			sheet.Range[string.Format("E{0}:K{0}", i)].Style.Interior.Gradient.GradientVariant = GradientVariantsType.ShadingVariants1;
			}

			sheet.AutoFitColumn(1);
		
			workbook.SaveToFile("Sample.xlsx");

			ExcelDocViewer(workbook.FileName);
		}

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

		Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
			Dim workbook As New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			workbook.Version = ExcelVersion.Version2007


			Dim maxColor As Integer = System.Enum.GetValues(GetType(ExcelColors)).Length
            Dim random As New Random()
			For i As Integer = 2 To 39

				Dim backKnownColor As ExcelColors = CType(random.Next(1,maxColor \ 2), ExcelColors)

				sheet.Range("A1").Text = "Color Name"
				sheet.Range("B1").Text = "Red"
				sheet.Range("C1").Text = "Green"
				sheet.Range("D1").Text = "Blue"
				sheet.Range("E1:K1").Merge()
				sheet.Range("E1:K1").Text = "Gradient"
				sheet.Range("A1:K1").Style.Font.IsBold = True
				sheet.Range("A1:K1").Style.Font.Size = 11

				Dim colorName As String = backKnownColor.ToString()
				sheet.Range(String.Format("A{0}",i)).Text = colorName
				sheet.Range(String.Format("B{0}", i)).Text = workbook.GetPaletteColor(backKnownColor).R.ToString()
				sheet.Range(String.Format("C{0}", i)).Text = workbook.GetPaletteColor(backKnownColor).G.ToString()
				sheet.Range(String.Format("D{0}", i)).Text = workbook.GetPaletteColor(backKnownColor).B.ToString()

				sheet.Range(String.Format("E{0}:K{0}",i)).Merge()
				sheet.Range(String.Format("E{0}:K{0}", i)).Text = colorName
				sheet.Range(String.Format("E{0}:K{0}", i)).Style.Interior.FillPattern = ExcelPatternType.Gradient
				sheet.Range(String.Format("E{0}:K{0}", i)).Style.Interior.Gradient.BackKnownColor = backKnownColor
				sheet.Range(String.Format("E{0}:K{0}", i)).Style.Interior.Gradient.ForeKnownColor = ExcelColors.White
				sheet.Range(String.Format("E{0}:K{0}", i)).Style.Interior.Gradient.GradientStyle = GradientStyleType.Vertical
				sheet.Range(String.Format("E{0}:K{0}", i)).Style.Interior.Gradient.GradientVariant = GradientVariantsType.ShadingVariants1
			Next i

			sheet.AutoFitColumn(1)

			workbook.SaveToFile("Sample.xlsx")

			ExcelDocViewer(workbook.FileName)
		End Sub