page 93

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

Published in Find and Replace

Tagged under

Word Editing in C#, VB.NET

2010-07-21 06:49:42 Written by Administrator

Demo
C# source
VB.Net source

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

Published in Quick Guide

Tagged under

Word Hello World in C#, VB.NET

2010-07-20 15:07:44 Written by Administrator

Demo
C# source
VB.Net source

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

Published in Quick Guide

Tagged under

Demo
C# source
VB.Net source

The sample demonstrates how to write excel 2007 workbook.

		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

Published in Excel2007

Tagged under

Demo
C# source
VB.Net source

The sample demonstrates how to load excel 2007 format file.

		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

Published in Excel2007

Tagged under

Demo
C# source
VB.Net source

The sample demonstrates how to use WorkbookDesigner.

		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

Published in Marker Designer

Tagged under

Demo
C# source
VB.Net source

The sample demonstrates how to write an excel workbook to an XML file.

		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

Published in XML

Tagged under

Demo
C# source
VB.Net source

The sample demonstrates how to save an excel workbook to stream.

		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

Published in Stream

Tagged under

stream

Demo
C# source
VB.Net source

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

Published in Protection

Tagged under

Demo
C# source
VB.Net source

The sample demonstrates How to Use VBA in an excel workbook.

		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

Published in VBA

EXCEL Pagesetup in C#, VB.NET

EXCEL DataValidation in C#, VB.NET

EXCEL Write Filters in C#, VB.NET

EXCEL Group in C#, VB.NET

Start «91 929394 95 »End

Page 93 of 95

News Category

.NET (1322)

Children categories

Spire.XLS for .NET (387)

Spire.Doc for .NET (337)

Spire.DataExport for .NET (33)

Spire.PDF for .NET (291)

Spire.PDFViewer for .NET (19)

Spire.Barcode for .NET (16)

Spire.DocViewer for .NET (8)

Spire.Presentation for .NET (204)

Spire.Spreadsheet for .NET (1)

Spire.Email for .NET (19)

Spire.OCR for .NET (5)

Spire.PDFViewer for MAUI (1)

Word Find and Highlight in C#, VB.NET

Word Editing in C#, VB.NET

Word Hello World in C#, VB.NET

EXCEL Interior in C#, VB.NET

EXCEL XLSX in C#, VB.NET

EXCEL Workbook Designer in C#, VB.NET

Excel XML in C#, VB.NET

Excel Save to Stream in C#, VB.NET

EXCEL Workbook Protection in C#, VB.NET

EXCEL VBA in C#, VB.NET

More...

EXCEL Pagesetup in C#, VB.NET

EXCEL DataValidation in C#, VB.NET

EXCEL Write Filters in C#, VB.NET

EXCEL Group in C#, VB.NET