page 88

private void button1_Click(object sender, EventArgs e)
{
    System.Data.OleDb.OleDbConnection oleDbConnection1
         = new System.Data.OleDb.OleDbConnection();
    oleDbConnection1.ConnectionString
        = @"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\..\..\Database\demo.mdb";

    System.Data.OleDb.OleDbCommand oleDbCommand1
        = new System.Data.OleDb.OleDbCommand();
    oleDbCommand1.CommandText = "select * from parts";
    oleDbCommand1.Connection = oleDbConnection1;

    Spire.DataExport.HTML.HTMLExport htmlExport1
         = new Spire.DataExport.HTML.HTMLExport();

    htmlExport1.ActionAfterExport = Spire.DataExport.Common.ActionType.OpenView;
    htmlExport1.DataFormats.CultureName = "zh-CN";
    htmlExport1.DataFormats.Currency = "c";
    htmlExport1.DataFormats.DateTime = "yyyy-M-d H:mm";
    htmlExport1.DataFormats.Float = "g";
    htmlExport1.DataFormats.Integer = "g";
    htmlExport1.DataFormats.Time = "H:mm";
    htmlExport1.FileName = "test.html";
    htmlExport1.HtmlTableOptions.BackColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(122)), ((System.Byte)(236)));
    htmlExport1.HtmlTableOptions.FontColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(255)), ((System.Byte)(255)));
    htmlExport1.HtmlTableOptions.HeadersBackColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(0)), ((System.Byte)(0)));
    htmlExport1.HtmlTableOptions.HeadersFontColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(255)), ((System.Byte)(255)));
    htmlExport1.HtmlTableOptions.OddBackColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(107)), ((System.Byte)(206)));
    htmlExport1.HtmlTextOptions.BackgroundColor = System.Drawing.Color.FromArgb(((System.Byte)(51)), ((System.Byte)(51)), ((System.Byte)(153)));
    htmlExport1.HtmlTextOptions.Font = new System.Drawing.Font("Arial", 8F);
    htmlExport1.HtmlTextOptions.FontColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(255)), ((System.Byte)(255)));
    htmlExport1.HtmlTextOptions.LinkActiveColor = System.Drawing.Color.FromArgb(((System.Byte)(0)), ((System.Byte)(255)), ((System.Byte)(0)));
    htmlExport1.HtmlTextOptions.LinkColor = System.Drawing.Color.FromArgb(((System.Byte)(105)), ((System.Byte)(239)), ((System.Byte)(125)));
    htmlExport1.HtmlTextOptions.LinkVisitedColor = System.Drawing.Color.FromArgb(((System.Byte)(255)), ((System.Byte)(0)), ((System.Byte)(255)));
    htmlExport1.SQLCommand = oleDbCommand1;

    oleDbConnection1.Open();
    try
    {
        htmlExport1.HtmlStyle = Spire.DataExport.HTML.HtmlStyle.Plain;
        htmlExport1.SaveToFile();
    }
    finally
    {
        oleDbConnection1.Close();
    }
}

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim oleDbConnection1 As New System.Data.OleDb.OleDbConnection()
    oleDbConnection1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=..\..\..\..\Database\demo.mdb"

    Dim oleDbCommand1 As New System.Data.OleDb.OleDbCommand()
    oleDbCommand1.CommandText = "select * from parts"
    oleDbCommand1.Connection = oleDbConnection1

    Dim htmlExport1 As New Spire.DataExport.HTML.HTMLExport()

    htmlExport1.ActionAfterExport = Spire.DataExport.Common.ActionType.OpenView
    htmlExport1.DataFormats.CultureName = "zh-CN"
    htmlExport1.DataFormats.Currency = "c"
    htmlExport1.DataFormats.DateTime = "yyyy-M-d H:mm"
    htmlExport1.DataFormats.Float = "g"
    htmlExport1.DataFormats.[Integer] = "g"
    htmlExport1.DataFormats.Time = "H:mm"
    htmlExport1.FileName = "test.html"
    htmlExport1.HtmlTableOptions.BackColor = System.Drawing.Color.FromArgb(CByte(0), CByte(122), CByte(236))
    htmlExport1.HtmlTableOptions.FontColor = System.Drawing.Color.FromArgb(CByte(255), CByte(255), CByte(255))
    htmlExport1.HtmlTableOptions.HeadersBackColor = System.Drawing.Color.FromArgb(CByte(255), CByte(0), CByte(0))
    htmlExport1.HtmlTableOptions.HeadersFontColor = System.Drawing.Color.FromArgb(CByte(255), CByte(255), CByte(255))
    htmlExport1.HtmlTableOptions.OddBackColor = System.Drawing.Color.FromArgb(CByte(0), CByte(107), CByte(206))
    htmlExport1.HtmlTextOptions.BackgroundColor = System.Drawing.Color.FromArgb(CByte(51), CByte(51), CByte(153))
    htmlExport1.HtmlTextOptions.Font = New System.Drawing.Font("Arial", 8.0F)
    htmlExport1.HtmlTextOptions.FontColor = System.Drawing.Color.FromArgb(CByte(255), CByte(255), CByte(255))
    htmlExport1.HtmlTextOptions.LinkActiveColor = System.Drawing.Color.FromArgb(CByte(0), CByte(255), CByte(0))
    htmlExport1.HtmlTextOptions.LinkColor = System.Drawing.Color.FromArgb(CByte(105), CByte(239), CByte(125))
    htmlExport1.HtmlTextOptions.LinkVisitedColor = System.Drawing.Color.FromArgb(CByte(255), CByte(0), CByte(255))
    htmlExport1.SQLCommand = oleDbCommand1

    oleDbConnection1.Open()
    Try
        htmlExport1.HtmlStyle = Spire.DataExport.HTML.HtmlStyle.Plain
        htmlExport1.SaveToFile()
    Finally
        oleDbConnection1.Close()
    End Try
End Sub

Published in Html

Tagged under

Data Export Cell in C#, VB.NET

2010-07-28 07:05:38 Written by Administrator

Demo
C# source
VB.Net source

Not needing to have Microsoft Excel installed on the machine, The Spire.DataExport can create Excel spreadsheet.

private void btnRun_Click(object sender, System.EventArgs e)
{
	oleDbConnection1.Open();
	try
	{
		cellExport1.SaveToFile();
	}
	finally
	{
		this.oleDbConnection1.Close();
	}
}

private void Form1_Load(object sender, System.EventArgs e)
{
	LoadData();
}

private void button2_Click(object sender, System.EventArgs e)
{
	LoadData();
}

private void btnAbout_Click(object sender, System.EventArgs e)
{
	Close();
}

private void button1_Click(object sender, System.EventArgs e)
{
	oleDbConnection1.Open();
	try
	{
		cellExport2.SaveToFile();
	}
	finally
	{
		this.oleDbConnection1.Close();
	}
}

private void button3_Click(object sender, System.EventArgs e)
{
	oleDbConnection1.Open();
	try
	{
		cellExport3.SaveToFile();
	}
	finally
	{
		this.oleDbConnection1.Close();
	}
	
}

private void button4_Click(object sender, System.EventArgs e)
{
	oleDbConnection1.Open();
	try
	{
		cellExport4.SaveToFile();
	}
	finally
	{
		this.oleDbConnection1.Close();
	}

}

private void button5_Click(object sender, System.EventArgs e)
{
	ushort currentRow = 1;
	string currentFormula = string.Empty;

	Cell cell = null;

	cellExport5.Cells.Clear();
	cellExport5.SetColumnWidth(1, 32);
	cellExport5.SetColumnWidth(2, 16);
	cellExport5.SetColumnWidth(3, 16);

	cell = cellExport5.AddString(1,currentRow++,"Examples of formulas :");
	cell.Format.Font.Bold = true;
	cell.Format.FillStyle.Background = CellColor.LightGreen;
	cell.Format.FillStyle.Pattern = Pattern.Solid;
	cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium;

	cell = cellExport5.AddString(1,++currentRow,"Test data:");
	cell.Format.Font.Bold = true;
	cell.Format.FillStyle.Background = CellColor.LightGreen;
	cell.Format.FillStyle.Pattern = Pattern.Solid;
	cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium;
	
    //test data
	cellExport5.AddNumeric(2,currentRow, 7.3);
	cellExport5.AddNumeric(3,currentRow,5);
	cellExport5.AddNumeric(4,currentRow,8.2);
	cellExport5.AddNumeric(5,currentRow,  4);
	cellExport5.AddNumeric(6,currentRow, 3);
	cellExport5.AddNumeric(7,currentRow++, 11.3);

		
	cell = cellExport5.AddString(1,++currentRow, "Formulas");
	cell.Format.Font.Bold = true;
	cell.Format.FillStyle.Background = CellColor.LightGreen;
	cell.Format.FillStyle.Pattern = Pattern.Solid;
	cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium;

	cell = cellExport5.AddString(2,currentRow, "Results");
	cell.Format.Font.Bold = true;
	cell.Format.FillStyle.Background = CellColor.LightGreen;
	cell.Format.FillStyle.Pattern = Pattern.Solid;
	cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium;

	//str.
	currentFormula = "=\"hello\"";
	cellExport5.AddString(1, ++currentRow, currentFormula);
	cellExport5.AddFormula(2, currentRow, "=\"hello\"");			
	cellExport5.AddFormula(3, currentRow, "=\"" + new string(new char[]{'\u4f60', '\u597d'})+ "\"");			



	//int.
	currentFormula = "=300";
	cellExport5.AddString(1, ++currentRow,currentFormula);
	cellExport5.AddFormula(2,currentRow, currentFormula);			

	// float
	currentFormula = "=3389.639421";
	cellExport5.AddString(1, ++currentRow, currentFormula);			
	cellExport5.AddFormula(2,currentRow,currentFormula);

	//bool.
	currentFormula = "=false";
	cellExport5.AddString(1, ++currentRow, currentFormula);
	cellExport5.AddFormula(2, currentRow, currentFormula);

	currentFormula = "=1+2+3+4+5-6-7+8-9";
	cellExport5.AddString( 1, ++currentRow, currentFormula);
	cellExport5.AddFormula(2, currentRow, currentFormula);

	currentFormula = "=33*3/4-2+10";
	cellExport5.AddString( 1,++currentRow,currentFormula);			
	cellExport5.AddFormula(2, currentRow, currentFormula);			
	

	// sheet reference
	currentFormula = "=Sheet1!$B$3";
	cellExport5.AddString(1,++currentRow, currentFormula);			
	cellExport5.AddFormula(2,currentRow, currentFormula);

	// sheet area reference
	currentFormula = "=AVERAGE(Sheet1!$D$3:G$3)";
	cellExport5.AddString(1, ++currentRow, currentFormula);			
	cellExport5.AddFormula(2,currentRow, currentFormula);

	// Functions
	currentFormula = "=Count(3,5,8,10,2,34)";
	cellExport5.AddString(1,++currentRow,  currentFormula);			
	cellExport5.AddFormula(2,currentRow++, currentFormula);


	currentFormula = "=NOW()";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++,  currentFormula);

	currentFormula = "=SECOND(11)";
	cellExport5.AddString(1 ,currentRow, currentFormula);
	cellExport5.AddFormula(2, currentRow++, currentFormula);

	currentFormula = "=MINUTE(12)";
	cellExport5.AddString(1, currentRow,currentFormula);
	cellExport5.AddFormula(2, currentRow++, currentFormula);

	currentFormula = "=MONTH(9)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=DAY(10)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=TIME(4,5,7)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=DATE(6,4,2)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=RAND()";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=HOUR(12)";
	cellExport5.AddString(1, currentRow,currentFormula);
	cellExport5.AddFormula(2, currentRow++,  currentFormula);

	currentFormula = "=TEXT(\"world\", \"$d\")";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=MOD(5,3)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=WEEKDAY(3)";
	cellExport5.AddString(1, currentRow, currentFormula);
	cellExport5.AddFormula(2, currentRow++, currentFormula);

	currentFormula = "=YEAR(23)";
	cellExport5.AddString(1, currentRow, currentFormula);
	cellExport5.AddFormula(2, currentRow++, currentFormula);

	currentFormula = "=NOT(true)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=OR(true)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=AND(TRUE)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=VALUE(30)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=LEN(\"world\")";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=MID(\"world\",4,2)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=ROUND(7,3)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=SIGN(4)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=INT(200)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=ABS(-1.21)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=LN(15)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=EXP(20)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=SQRT(40)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=PI()";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=COS(9)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=SIN(45)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=MAX(10,30)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=MIN(5,7)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=AVERAGE(12,45)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=SUM(18,29)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=IF(4,2,2)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	currentFormula = "=SUBTOTAL(3,Sheet1!B2:E3)";
	cellExport5.AddString( 1, currentRow, currentFormula);
	cellExport5.AddFormula( 2, currentRow++, currentFormula);

	this.cellExport5.SaveToFile();
}

private void cellExport1_GetDataParams(object sender, Spire.DataExport.EventArgs.DataParamsEventArgs e)
{
	if 	((e.Sheet == 0) && (e.Col == 6))
	{
		e.FormatText = cellExport1.DataFormats.Currency;
	}
}

Private Sub btnRun_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRun.Click
    oleDbConnection1.Open()
    Try
        cellExport1.SaveToFile()
    Finally
        Me.oleDbConnection1.Close()
    End Try
End Sub

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
    LoadData()
End Sub

Private Sub button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button2.Click
    LoadData()
End Sub

Private Sub btnAbout_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAbout.Click
    Close()
End Sub

Private Sub button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button1.Click
    oleDbConnection1.Open()
    Try
        cellExport2.SaveToFile()
    Finally
        Me.oleDbConnection1.Close()
    End Try
End Sub

Private Sub button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button3.Click
    oleDbConnection1.Open()
    Try
        cellExport3.SaveToFile()
    Finally
        Me.oleDbConnection1.Close()
    End Try

End Sub

Private Sub button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button4.Click
    oleDbConnection1.Open()
    Try
        cellExport4.SaveToFile()
    Finally
        Me.oleDbConnection1.Close()
    End Try

End Sub

Private Sub button5_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles button5.Click
    Dim currentRow As Integer = 1
    Dim firstCol As UInt16 = Convert.ToUInt16(1)
    Dim secondCol As UInt16 = Convert.ToUInt16(2)
    Dim currentFormula As String = String.Empty

    Dim cell As cell = Nothing

    cellExport5.Cells.Clear()
    cellExport5.SetColumnWidth(System.Convert.ToUInt16(1), System.Convert.ToUInt16(32))
    cellExport5.SetColumnWidth(System.Convert.ToUInt16(2), System.Convert.ToUInt16(16))
    cellExport5.SetColumnWidth(System.Convert.ToUInt16(3), System.Convert.ToUInt16(16))

    cell = cellExport5.AddString(System.Convert.ToUInt16(1), System.Convert.ToUInt16(currentRow), "Examples of formulas :")
    currentRow += 1
    cell.Format.Font.Bold = True
    cell.Format.FillStyle.Background = CellColor.LightGreen
    cell.Format.FillStyle.Pattern = Pattern.Solid
    cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium

    cell = cellExport5.AddString(System.Convert.ToUInt16(1), System.Convert.ToUInt16(currentRow), "Test data:")
    currentRow += 1
    cell.Format.Font.Bold = True
    cell.Format.FillStyle.Background = CellColor.LightGreen
    cell.Format.FillStyle.Pattern = Pattern.Solid
    cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium

    'test data
    cellExport5.AddNumeric(System.Convert.ToUInt16(2), System.Convert.ToUInt16(currentRow), 7.3)
    cellExport5.AddNumeric(System.Convert.ToUInt16(3), System.Convert.ToUInt16(currentRow), 5)
    cellExport5.AddNumeric(System.Convert.ToUInt16(4), System.Convert.ToUInt16(currentRow), 8.2)
    cellExport5.AddNumeric(System.Convert.ToUInt16(5), System.Convert.ToUInt16(currentRow), 4)
    cellExport5.AddNumeric(System.Convert.ToUInt16(6), System.Convert.ToUInt16(currentRow), 3)
    cellExport5.AddNumeric(System.Convert.ToUInt16(7), System.Convert.ToUInt16(currentRow), 11.3)
    currentRow += 1
    currentRow += 1


    cell = cellExport5.AddString(Convert.ToUInt16(1), Convert.ToUInt16(currentRow), "Formulas")
    cell.Format.Font.Bold = True
    cell.Format.FillStyle.Background = CellColor.LightGreen
    cell.Format.FillStyle.Pattern = Pattern.Solid
    cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium

    cell = cellExport5.AddString(secondCol, Convert.ToUInt16(currentRow), "Results")
    currentRow += 1
    cell.Format.Font.Bold = True
    cell.Format.FillStyle.Background = CellColor.LightGreen
    cell.Format.FillStyle.Pattern = Pattern.Solid
    cell.Format.Borders.Bottom.Style = CellBorderStyle.Medium

    'str.
    currentFormula = "=""hello"""
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), "=""hello""")
    cellExport5.AddFormula(Convert.ToUInt16(3), Convert.ToUInt16(currentRow), "=""" & ChrW(20320) & ChrW(22909) + """")
    currentRow += 1



    'int.
    currentFormula = "=300"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    ' float
    currentFormula = "=3389.639421"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1


    'bool.
    currentFormula = "=false"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=1+2+3+4+5-6-7+8-9"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=33*3/4-2+10"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    ' sheet reference
    currentFormula = "=Sheet1!$B$3"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    ' sheet area reference
    currentFormula = "=AVERAGE(Sheet1!$D$3:G$3)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    ' Functions
    currentFormula = "=Count(3,5,8,10,2,34)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1


    currentFormula = "=NOW()"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=SECOND(11)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=MINUTE(12)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=MONTH(9)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=DAY(10)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=TIME(4,5,7)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=DATE(6,4,2)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=RAND()"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=HOUR(12)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=TEXT(""world"", ""$d"")"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=MOD(5,3)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=WEEKDAY(3)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=YEAR(23)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=NOT(true)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=OR(true)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=AND(TRUE)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=VALUE(30)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=LEN(""world"")"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=MID(""world"",4,2)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=ROUND(7,3)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=SIGN(4)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=INT(200)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=ABS(-1.21)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=LN(15)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=EXP(20)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=SQRT(40)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=PI()"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=COS(9)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=SIN(45)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=MAX(10,30)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=MIN(5,7)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=AVERAGE(12,45)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=SUM(18,29)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=IF(4,2,2)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1

    currentFormula = "=SUBTOTAL(3,Sheet1!B2:E3)"
    cellExport5.AddString(firstCol, Convert.ToUInt16(currentRow), currentFormula)
    cellExport5.AddFormula(secondCol, Convert.ToUInt16(currentRow), currentFormula)
    currentRow += 1
    Me.cellExport5.SaveToFile()
End Sub

Private Sub cellExport1_GetDataParams(ByVal sender As Object, ByVal e As Spire.DataExport.EventArgs.DataParamsEventArgs) Handles cellExport1.GetDataParams, cellExport3.GetDataParams
    If (e.Sheet = 0) AndAlso (e.Col = 6) Then
        e.FormatText = cellExport1.DataFormats.Currency
    End If
End Sub

Published in Cell

Tagged under

Word Merge in C#, VB.NET

2010-07-22 07:42:21 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to merge two documents.

private void button1_Click(object sender, EventArgs e)
{
    string fileName = OpenFile();
    string fileMerge = OpenFile();
    if ((!string.IsNullOrEmpty(fileName)) && (!string.IsNullOrEmpty(fileMerge)))
    {
        //Create word document
        Document document = new Document();
        document.LoadFromFile(fileName,FileFormat.Doc);

        Document documentMerge = new Document();
        documentMerge.LoadFromFile(fileMerge, FileFormat.Doc);

        foreach( Section sec in documentMerge.Sections)
        {
            document.Sections.Add(sec.Clone());
        }

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

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


}

private string OpenFile()
{
    openFileDialog1.Filter = "Word Document (*.doc)|*.doc";
    openFileDialog1.Title = "Choose a document to merage";

    openFileDialog1.RestoreDirectory = true;
    if (openFileDialog1.ShowDialog() == DialogResult.OK)
    {
        return openFileDialog1.FileName;
    }

    return string.Empty;
}

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
	Dim fileName As String = OpenFile()
	Dim fileMerge As String = OpenFile()
	If ((Not String.IsNullOrEmpty(fileName))) AndAlso ((Not String.IsNullOrEmpty(fileMerge))) Then
		'Create word document
		Dim document_Renamed As New Document()
		document_Renamed.LoadFromFile(fileName,FileFormat.Doc)

		Dim documentMerge As New Document()
		documentMerge.LoadFromFile(fileMerge, FileFormat.Doc)

		For Each sec As Section In documentMerge.Sections
			document_Renamed.Sections.Add(sec.Clone())
		Next sec

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

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


End Sub

Private Function OpenFile() As String
	openFileDialog1.Filter = "Word Document (*.doc)|*.doc"
	openFileDialog1.Title = "Choose a document to merage"

	openFileDialog1.RestoreDirectory = True
	If openFileDialog1.ShowDialog() = DialogResult.OK Then
		Return openFileDialog1.FileName
	End If

	Return String.Empty
End Function

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

Published in Misc

Tagged under

Word Insert Break in C#, VB.NET

2010-07-22 07:38:38 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to insert break.

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

    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.AddSection();
    Paragraph paragraph = section.AddParagraph();
    paragraph.AppendText("The sample demonstrates how to insert break.");
    paragraph.ApplyStyle(BuiltinStyle.Heading2);

    section.AddParagraph();
    paragraph = section.AddParagraph();
    paragraph.AppendText("Insert new page.");
    paragraph.ApplyStyle(BuiltinStyle.Heading4);

    section = document.AddSection();
    section.BreakCode = SectionBreakType.NewPage;

    section.AddParagraph();
    paragraph = section.AddParagraph();
    paragraph.AppendText("Next page.");
    paragraph.ApplyStyle(BuiltinStyle.Heading4);

}

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()

	InsertBreak(document_Renamed)

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

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


End Sub

Private Sub InsertBreak(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 break.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading2)

	section_Renamed.AddParagraph()
	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("Insert new page.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4)

	section_Renamed = document_Renamed.AddSection()
	section_Renamed.BreakCode = SectionBreakType.NewPage

	section_Renamed.AddParagraph()
	paragraph_Renamed = section_Renamed.AddParagraph()
	paragraph_Renamed.AppendText("Next page.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4)

End Sub

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

Published in Misc

Tagged under

Word Nested Mail Merge in C#, VB.NET

2010-07-22 07:30:36 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to merge nestedmail into a document.

private void button1_Click(object sender, EventArgs e)
{
    List list = new List();
    DataSet dsData = new DataSet();

    dsData.ReadXml(@"..\..\..\..\..\..\Data\Orders.xml");

    //Create word document
    Document document = new Document();
    document.LoadFromFile(@"..\..\..\..\..\..\Data\Invoice.doc");

    DictionaryEntry dictionaryEntry = new DictionaryEntry("Customer", string.Empty);
    list.Add(dictionaryEntry);

    dictionaryEntry = new DictionaryEntry("Order", "Customer_Id = %Customer.Customer_Id%");
    list.Add(dictionaryEntry);

    document.MailMerge.ExecuteWidthNestedRegion(dsData, list);
  
    //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
	Dim list_Renamed As New List(Of DictionaryEntry)()
	Dim dsData As New DataSet()

	dsData.ReadXml("..\..\..\..\..\..\Data\Orders.xml")

	'Create word document
	Dim document_Renamed As New Document()
	document_Renamed.LoadFromFile("..\..\..\..\..\..\Data\Invoice.doc")

	Dim dictionaryEntry_Renamed As New DictionaryEntry("Customer", String.Empty)
	list_Renamed.Add(dictionaryEntry_Renamed)

	dictionaryEntry_Renamed = New DictionaryEntry("Order", "Customer_Id = %Customer.Customer_Id%")
	list_Renamed.Add(dictionaryEntry_Renamed)

	document_Renamed.MailMerge.ExecuteWidthNestedRegion(dsData, list_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

Published in Mail Merge

Tagged under

Word Mail Merge in C#, VB.NET

2010-07-22 07:24:42 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to merge mail into a document.

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

    string[] filedNames = new string[]{"Contact Name","Fax","Date"};

    string[] filedValues = new string[]{"John Smith","+1 (69) 123456",System.DateTime.Now.Date.ToString()};

    document.MailMerge.Execute(filedNames, filedValues);

  
    //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\Fax.doc")

	Dim filedNames() As String = {"Contact Name","Fax","Date"}

	Dim filedValues() As String = {"John Smith","+1 (69) 123456",Date.Now.Date.ToString()}

	document_Renamed.MailMerge.Execute(filedNames, filedValues)


	'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 Mail Merge

Tagged under

Word Encrypt in C#, VB.NET

2010-07-22 07:16:30 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to encrypt a 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("The sample demonstrates how to encryt a document.");
    paragraph.ApplyStyle(BuiltinStyle.Heading4);

    paragraph = document.Sections[0].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).");

    paragraph = document.Sections[0].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).");


    document.Encrypt(this.textBox1.Text);

    //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("The sample demonstrates how to encryt a document.")
	paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading4)

	document_Renamed.Encrypt(Me.textBox1.Text)

	'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 Protect

Tagged under

Word Decrypt in C#, VB.NET

2010-07-22 07:10:55 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to decrypt a document.

private void button1_Click(object sender, EventArgs e)
{
    string fileName = OpenFile();
    if (!string.IsNullOrEmpty(fileName))
    {
        //Create word document
        Document document = new Document();
        document.LoadFromFile(fileName,FileFormat.Doc,this.textBox1.Text);

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

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


}

private string OpenFile()
{
    openFileDialog1.Filter = "Word Document (*.doc)|*.doc";
    openFileDialog1.Title = "Choose a document to Decrypt";

    openFileDialog1.RestoreDirectory = true;
    if (openFileDialog1.ShowDialog() == DialogResult.OK)
    {
        return openFileDialog1.FileName;
    }

    return string.Empty;
}

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
	Dim fileName As String = OpenFile()
	If Not String.IsNullOrEmpty(fileName) Then
		'Create word document
		Dim document_Renamed As New Document()
		document_Renamed.LoadFromFile(fileName,FileFormat.Doc,Me.textBox1.Text)

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

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


End Sub

Private Function OpenFile() As String
	openFileDialog1.Filter = "Word Document (*.doc)|*.doc"
	openFileDialog1.Title = "Choose a document to Decrypt"

	openFileDialog1.RestoreDirectory = True
	If openFileDialog1.ShowDialog() = DialogResult.OK Then
		Return openFileDialog1.FileName
	End If

	Return String.Empty
End Function

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

Published in Protect

Tagged under

Word To Rtf in C#, VB.NET

2010-07-22 07:02:40 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to Convert Word to RTF.

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

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

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

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")

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

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

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

Published in Convertors

Tagged under

Word To Image in C#, VB.NET

2010-07-22 06:52:35 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to save a Word document to image with Spire.Doc.

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

    //Save doc file.
    Image img = document.SaveToImages(0, ImageType.Bitmap);
    img.Save("sample.bmp");

    //Launching the image file.
    WordDocViewer("sample.bmp");
}

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")

	'Save doc file.
	Dim img As Image = document_Renamed.SaveToImages(0, ImageType.Bitmap)
	img.Save("sample.bmp")

	'Launching the image file.
	WordDocViewer("sample.bmp")
End Sub

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

Published in Convertors

Tagged under

Word To Html in C#, VB.NET

Word Watermark in C#, VB.NET

Word Textbox in C#, VB.NET

Word Image in C#, VB.NET

Start «81 82 83 84 85 86 878889 90 »End

Page 88 of 91

News Category

.NET (1273)

Children categories

Spire.XLS for .NET (366)

Spire.Doc for .NET (328)

Spire.DataExport for .NET (33)

Spire.PDF for .NET (283)

Spire.PDFViewer for .NET (19)

Spire.Barcode for .NET (12)

Spire.DocViewer for .NET (8)

Spire.Presentation for .NET (202)

Spire.Spreadsheet for .NET (1)

Spire.Email for .NET (17)

Spire.OCR for .NET (4)

Data Export Html in C#, VB.NET

Data Export Cell in C#, VB.NET

Word Merge in C#, VB.NET

Word Insert Break in C#, VB.NET

Word Nested Mail Merge in C#, VB.NET

Word Mail Merge in C#, VB.NET

Word Encrypt in C#, VB.NET

Word Decrypt in C#, VB.NET

Word To Rtf in C#, VB.NET

Word To Image in C#, VB.NET

More...

Word To Html in C#, VB.NET

Word Watermark in C#, VB.NET

Word Textbox in C#, VB.NET

Word Image in C#, VB.NET