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

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();

			workbook.LoadFromFile(@"..\..\..\..\..\..\Data\MarkerDesignerSample.xlsx", ExcelVersion.Version2007);
			DataTable dt = (DataTable)dataGrid1.DataSource;
 
			Worksheet sheet = workbook.Worksheets[0];

			workbook.MarkerDesigner.AddParameter("Variable1", 1234.5678);
			workbook.MarkerDesigner.AddDataTable("Country", dt);
 			workbook.MarkerDesigner.Apply();

			sheet.AllocatedRange.AutoFitRows();
			sheet.AllocatedRange.AutoFitColumns(); ;
    

			workbook.SaveToFile("Sample.xlsx");
			ExcelDocViewer(workbook.FileName);
		}

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

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

			workbook.LoadFromFile("..\..\..\..\..\..\Data\MarkerDesignerSample.xlsx",ExcelVersion.Version2007)
			Dim dt As DataTable = CType(dataGrid1.DataSource, DataTable)

			Dim sheet As Worksheet = workbook.Worksheets(0)

			workbook.MarkerDesigner.AddParameter("Variable1",1234.5678)
			workbook.MarkerDesigner.AddDataTable("Country",dt)
			workbook.MarkerDesigner.Apply()

			sheet.AllocatedRange.AutoFitRows()
			sheet.AllocatedRange.AutoFitColumns()


			workbook.SaveToFile("Sample.xlsx")
			ExcelDocViewer(workbook.FileName)
		End Sub

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

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			
			workbook.LoadFromFile(@"..\..\..\..\..\..\Data\MarkerDesignerSample.xls");
			DataTable dt = (DataTable)dataGrid1.DataSource;

			Worksheet sheet = workbook.Worksheets[0];

			workbook.MarkerDesigner.AddParameter("Variable1",1234.5678);
			workbook.MarkerDesigner.AddDataTable("Country",dt);
			workbook.MarkerDesigner.Apply();

			sheet.AllocatedRange.AutoFitRows();
			sheet.AllocatedRange.AutoFitColumns();;

			workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

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

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

			workbook.LoadFromFile("..\..\..\..\..\..\Data\MarkerDesignerSample.xls")
			Dim dt As DataTable = CType(dataGrid1.DataSource, DataTable)

			Dim sheet As Worksheet = workbook.Worksheets(0)

			workbook.MarkerDesigner.AddParameter("Variable1",1234.5678)
			workbook.MarkerDesigner.AddDataTable("Country",dt)
			workbook.MarkerDesigner.Apply()

			sheet.AllocatedRange.AutoFitRows()
			sheet.AllocatedRange.AutoFitColumns()


			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

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

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();

			Worksheet sheet = workbook.Worksheets[0];
			sheet.Range["C10"].Style.KnownColor = ExcelColors.Gray25Percent;
			sheet.Range["C11"].Style.KnownColor= ExcelColors.Blue;
			sheet.Range["C11"].Style.KnownColor = ExcelColors.Gold;

			workbook.SaveAsXml("sample.xml");

			System.Diagnostics.Process.Start(Path.Combine(Application.StartupPath,"Sample.xml"));
		}

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

			Dim sheet As Worksheet = workbook.Worksheets(0)
			sheet.Range("C10").Style.KnownColor = ExcelColors.Gray25Percent
			sheet.Range("C11").Style.KnownColor= ExcelColors.Blue
			sheet.Range("C11").Style.KnownColor = ExcelColors.Gold

			workbook.SaveAsXml("sample.xml")

			System.Diagnostics.Process.Start(Path.Combine(Application.StartupPath,"Sample.xml"))
		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];

			sheet.Range["C10"].Text = "The sample demonstrates how to save an excel workbook to stream.";

			//Save an excel workbook to stream
			FileStream fileStream = new FileStream("Sample.xls",FileMode.Create);
			workbook.SaveToStream(fileStream);

			fileStream.Close();

			ExcelDocViewer(Path.Combine(Application.StartupPath,"Sample.xls"));
		}

		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 Workbook = New Workbook()
			Dim sheet As Worksheet = workbook.Worksheets(0)

			sheet.Range("C10").Text = "The sample demonstrates how to save an excel workbook to stream."

			'Save an excel workbook to stream
			Dim fileStream As FileStream = New FileStream("Sample.xls",FileMode.Create)
			workbook.SaveToStream(fileStream)

			fileStream.Close()

			ExcelDocViewer(Path.Combine(Application.StartupPath,"Sample.xls"))
		End Sub

The sample demonstrates how to lock and unlock an excel workbook.

using System;

using Spire.Xls;

namespace CellProtection
{
    class Program
    {
        static void Main(string[] args)
        {
            Workbook workbook = new Workbook();

            //Initialize worksheet
            workbook.CreateEmptySheets(1);
            Worksheet sheet = workbook.Worksheets[0];

            //Set the password
            Console.Write("Please input password:");
            string str = Console.ReadLine();
            Console.ReadKey();

            //Protect cells
            sheet.Range["A1"].Text = "Locked";
            sheet.Range["B1"].Text = "Unlocked";

            sheet.Range["A1"].Style.Locked = true;
            sheet.Range["B1"].Style.Locked = false;

            //Protect workbook
            workbook.Protect(str);
            workbook.SaveToFile("Sample.xls");
            System.Diagnostics.Process.Start(workbook.FileName);
        }
    }
}

Imports Spire.Xls
Module Module1

    Sub Main()
    
        Dim workbook As Workbook = New Workbook()

        'Initialize worksheet
        workbook.CreateEmptySheets(1)
        Dim sheet As Worksheet = workbook.Worksheets(0)

        'Protect workshet
        Console.Write("Please input password:")
        Dim str As String = Console.ReadLine()
        Console.ReadKey()

        sheet.Protect(str)

        'Protect cells
        sheet.Range("A1").Text = "Locked"
        sheet.Range("B1").Text = "Unlocked"

        sheet.Range("A1").Style.Locked = True
        sheet.Range("B1").Style.Locked = False

        'Protect workbook
        workbook.Protect(str)

        workbook.SaveToFile("Sample.xls")
        System.Diagnostics.Process.Start(workbook.FileName)
    End Sub
End Module

		private void btnRun_Click(object sender, System.EventArgs e)
		{
			Workbook workbook = new Workbook();
			
			//Initialize worksheet
			workbook.LoadFromFile(@"..\..\..\..\..\Data\VBASample.xls");
			Worksheet sheet = workbook.Worksheets[0];

			//Writes new sheet name
			sheet.Range["A1"].Text = this.textBox1.Text;

			workbook.SaveToFile("Sample.xls");
			ExcelDocViewer(workbook.FileName);
		}

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

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

			'Initialize worksheet
			workbook.LoadFromFile("..\..\..\..\..\Data\VBASample.xls")
			Dim sheet As Worksheet = workbook.Worksheets(0)

			'Writes new sheet name
			sheet.Range("A1").Text = Me.textBox1.Text

			workbook.SaveToFile("Sample.xls")
			ExcelDocViewer(workbook.FileName)
		End Sub

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