Administrator

Thursday, 21 October 2010 13:51

Word merge event handler in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to handle merge event.

public partial class Form1 : Form
{
    private int lastIndex = 0;
    public Form1()
    {
        InitializeComponent();
    }

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

        List<CustomerRecord> customerRecords = new List<CustomerRecord>();
        CustomerRecord c1 = new CustomerRecord();
        c1.ContactName = "Lucy";
        c1.Fax = "786-324-10";
        c1.Date = DateTime.Now;
        customerRecords.Add(c1);

        CustomerRecord c2 = new CustomerRecord();
        c2.ContactName = "Lily";
        c2.Fax = "779-138-13";
        c2.Date = DateTime.Now;
        customerRecords.Add(c2);

        CustomerRecord c3 = new CustomerRecord();
        c3.ContactName = "James";
        c3.Fax = "363-287-02";
        c3.Date = DateTime.Now;
        customerRecords.Add(c3);

        //Execute mailmerge
        document.MailMerge.MergeField += new MergeFieldEventHandler(MailMerge_MergeField);
        document.MailMerge.ExecuteGroup(new MailMergeDataTable("Customer", customerRecords));

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

    void MailMerge_MergeField(object sender, MergeFieldEventArgs args)
    {
        //Next row
        if (args.RowIndex > lastIndex)
        {
            lastIndex = args.RowIndex;
            AddPageBreakForMergeField(args.CurrentMergeField);
        }
    }

    void AddPageBreakForMergeField(IMergeField mergeField)
    {
        //Find position of needing to add page break
        bool foundGroupStart = false;
        Paragraph paramgraph = mergeField.PreviousSibling.Owner as Paragraph;
        MergeField merageField = null;
        while (!foundGroupStart)
        {
            paramgraph = paramgraph.PreviousSibling as Paragraph;
            for (int i = 0; i < paramgraph.Items.Count; i++)
            {
                merageField = paramgraph.Items[i] as MergeField;
                if ((merageField != null) && (merageField.Prefix == "GroupStart"))
                {
                    foundGroupStart = true;
                    break;
                }
            }
        }

        paramgraph.AppendBreak(BreakType.PageBreak);
    }
}

public class CustomerRecord
{
    private string m_contactName;
    public string ContactName
    {
        get
        {
            return m_contactName;
        }
        set
        {
            m_contactName = value;
        }
    }

    private string m_fax;
    public string Fax
    {
        get
        {
            return m_fax;
        }
        set
        {
            m_fax = value;
        }
    }

    private DateTime m_date;
    public DateTime Date
    {
        get
        {
            return m_date;
        }
        set
        {
            m_date = value;
        }
    }
}

	Public Partial Class Form1
		Inherits Form
		Private lastIndex As Integer = 0
		Public Sub New()
			InitializeComponent()
		End Sub

		Private Sub button1_Click(sender As Object, e As EventArgs)
			'Create word document
			Dim document As New Document()
			document.LoadFromFile("..\..\..\..\..\Data\Fax2.doc")
			lastIndex = 0

			Dim customerRecords As New List(Of CustomerRecord)()

			Dim c1 As New CustomerRecord()
			c1.ContactName = "Lucy"
			c1.Fax = "786-324-10"
			c1.[Date] = DateTime.Now
			customerRecords.Add(c1)

			Dim c2 As New CustomerRecord()
			c2.ContactName = "Lily"
			c2.Fax = "779-138-13"
			c2.[Date] = DateTime.Now
			customerRecords.Add(c2)

			Dim c3 As New CustomerRecord()
			c3.ContactName = "James"
			c3.Fax = "363-287-02"
			c3.[Date] = DateTime.Now
			customerRecords.Add(c3)

			'Execute mailmerge
			document.MailMerge.MergeField += New MergeFieldEventHandler(AddressOf MailMerge_MergeField)
			document.MailMerge.ExecuteGroup(New MailMergeDataTable("Customer", customerRecords))

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

		Private Sub MailMerge_MergeField(sender As Object, args As MergeFieldEventArgs)
			'Next row
			If args.RowIndex > lastIndex Then
				lastIndex = args.RowIndex
				AddPageBreakForMergeField(args.CurrentMergeField)
			End If
		End Sub

		Private Sub AddPageBreakForMergeField(mergeField As IMergeField)
			'Find position of needing to add page break
			Dim foundGroupStart As Boolean = False
			Dim paramgraph As Paragraph = TryCast(mergeField.PreviousSibling.Owner, Paragraph)
			Dim merageField As MergeField = Nothing
			While Not foundGroupStart
				paramgraph = TryCast(paramgraph.PreviousSibling, Paragraph)
				For i As Integer = 0 To paramgraph.Items.Count - 1
					merageField = TryCast(paramgraph.Items(i), MergeField)
					If (merageField IsNot Nothing) AndAlso (merageField.Prefix = "GroupStart") Then
						foundGroupStart = True
						Exit For
					End If
				Next
			End While

			paramgraph.AppendBreak(BreakType.PageBreak)
		End Sub
	End Class

	Public Class CustomerRecord
		Private m_contactName As String
		Public Property ContactName() As String
			Get
				Return m_contactName
			End Get
			Set
				m_contactName = value
			End Set
		End Property

		Private m_fax As String
		Public Property Fax() As String
			Get
				Return m_fax
			End Get
			Set
				m_fax = value
			End Set
		End Property

		Private m_date As DateTime
		Public Property [Date]() As DateTime
			Get
				Return m_date
			End Get
			Set
				m_date = value
			End Set
		End Property
	End Class
End Namespace

Published in Mail Merge

Tagged under

Thursday, 21 October 2010 13:47

Word to pdf in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to export doc document to PDF file.

//Create word document
Document document = new Document();

Section section = document.AddSection();
section.PageSetup.PageSize = PageSize.A4;
section.PageSetup.Margins.Top = 72f;
section.PageSetup.Margins.Bottom = 72f;
section.PageSetup.Margins.Left = 89.85f;
section.PageSetup.Margins.Right = 89.85f;

Paragraph paragraph = section.AddParagraph();
paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Left;
paragraph.AppendPicture(Image.FromFile("Word.png"));

String p1
    = "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). ";
String p2
    = "Microsoft Office Word instead of merely Microsoft Word. "
    + "The 2010 version appears to be branded as Microsoft Word, "
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac.";
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14;
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14;

//Save doc file to pdf.
document.SaveToFile("Sample.pdf", FileFormat.PDF);

'Create word document
Dim document As New Document()

Dim section As Section = document.AddSection()
section.PageSetup.PageSize = PageSize.A4
section.PageSetup.Margins.Top = 72.0F
section.PageSetup.Margins.Bottom = 72.0F
section.PageSetup.Margins.Left = 89.85F
section.PageSetup.Margins.Right = 89.85F

Dim paragraph As Paragraph = section.AddParagraph()
paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Left
paragraph.AppendPicture(Image.FromFile("Word.png"))

Dim p1 As String _
    = "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). "
Dim p2 As String _
    = "Microsoft Office Word instead of merely Microsoft Word. " _
    + "The 2010 version appears to be branded as Microsoft Word, " _
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac."
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14

'Save doc file to pdf.
document.SaveToFile("Sample.pdf", FileFormat.PDF)

Published in Convertors

Tagged under

Doc
c#

Thursday, 21 October 2010 13:44

The sample demonstrates how to export doc document to XML file.

//Create word document
Document document = new Document();

Section section = document.AddSection();            

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

// ***************** First Row *************************
TableRow row = table.Rows[0];
row.IsHeader = true;
row.Height = 20;    //unit: point, 1point = 0.3528 mm
row.HeightType = TableRowHeightType.Exactly;
row.RowFormat.BackColor = Color.Gray;
for (int i = 0; i < header.Length; i++)
{
    row.Cells[i].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
    Paragraph p = row.Cells[i].AddParagraph();
    p.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center;
    TextRange txtRange = p.AppendText(header[i]);
    txtRange.CharacterFormat.Bold = true;
}

for (int r = 0; r < data.Length; r++)
{
    TableRow dataRow = table.Rows[r + 1];
    dataRow.Height = 20;
    dataRow.HeightType = TableRowHeightType.Exactly;
    dataRow.RowFormat.BackColor = Color.Empty;
    for (int c = 0; c < data[r].Length; c++)
    {
        dataRow.Cells[c].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
        dataRow.Cells[c].AddParagraph().AppendText(data[r][c]);
    }
}

//Save xml file.
document.SaveToFile("Sample.xml",FileFormat.Xml);

'Create word document
Dim document_Renamed As New Document()

Dim section As Section = document_Renamed.AddSection()

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

' ***************** First Row *************************
Dim row As TableRow = table.Rows(0)
row.IsHeader = True
row.Height = 20    'unit: point, 1point = 0.3528 mm
row.HeightType = TableRowHeightType.Exactly
row.RowFormat.BackColor = Color.Gray
For i As Integer = 0 To header.Length - 1
    row.Cells(i).CellFormat.VerticalAlignment = VerticalAlignment.Middle
    Dim p As Paragraph = row.Cells(i).AddParagraph()
    p.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center
    Dim txtRange As TextRange = p.AppendText(header(i))
    txtRange.CharacterFormat.Bold = True
Next

For r As Integer = 0 To data.Length - 1
    Dim dataRow As TableRow = table.Rows(r + 1)
    dataRow.Height = 20
    dataRow.HeightType = TableRowHeightType.Exactly
    dataRow.RowFormat.BackColor = Color.Empty
    For c As Integer = 0 To data(r).Length - 1
        dataRow.Cells(c).CellFormat.VerticalAlignment = VerticalAlignment.Middle
        dataRow.Cells(c).AddParagraph().AppendText(data(r)(c))
    Next
Next

'Save xml file.
document_Renamed.SaveToFile("Sample.xml", FileFormat.Xml)

Published in Convertors

Tagged under

Thursday, 21 October 2010 13:34

Word to Tiff image in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to export doc document to TIFF image.

//Create word document
Document document = new Document();

Section section = document.AddSection();
section.PageSetup.PageSize = PageSize.A4;
section.PageSetup.Margins.Top = 72f;
section.PageSetup.Margins.Bottom = 72f;
section.PageSetup.Margins.Left = 89.85f;
section.PageSetup.Margins.Right = 89.85f;

Paragraph paragraph = section.AddParagraph();
paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Left;
paragraph.AppendPicture(Image.FromFile("Word.png"));

String p1
    = "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). ";
String p2
    = "Microsoft Office Word instead of merely Microsoft Word. "
    + "The 2010 version appears to be branded as Microsoft Word, "
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac.";
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14;
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14;

//Save image file.
Image image = document.SaveToImages(0, ImageType.Bitmap);
image.Save("Sample.tif", ImageFormat.Tiff);

'Create word document
Dim document As New Document()

Dim section As Section = document.AddSection()
section.PageSetup.PageSize = PageSize.A4
section.PageSetup.Margins.Top = 72.0F
section.PageSetup.Margins.Bottom = 72.0F
section.PageSetup.Margins.Left = 89.85F
section.PageSetup.Margins.Right = 89.85F

Dim paragraph As Paragraph = section.AddParagraph()
paragraph.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Left
paragraph.AppendPicture(Image.FromFile("Word.png"))

Dim p1 As String _
    = "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). "
Dim p2 As String _
    = "Microsoft Office Word instead of merely Microsoft Word. " _
    + "The 2010 version appears to be branded as Microsoft Word, " _
    + "once again. The current versions are Microsoft Word 2010 for Windows and 2008 for Mac."
section.AddParagraph().AppendText(p1).CharacterFormat.FontSize = 14
section.AddParagraph().AppendText(p2).CharacterFormat.FontSize = 14

'Save image file.
Dim image As Image = document.SaveToImages(0, ImageType.Bitmap)
image.Save("Sample.tif", ImageFormat.Tiff)

Published in Convertors

Tagged under

Doc
c#

Thursday, 21 October 2010 13:25

Word table in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to create table in word document.

//Create word document
Document document = new Document();

Section section = document.AddSection();            

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

// ***************** First Row *************************
TableRow row = table.Rows[0];
row.IsHeader = true;
row.Height = 20;    //unit: point, 1point = 0.3528 mm
row.HeightType = TableRowHeightType.Exactly;
row.RowFormat.BackColor = Color.Gray;
for (int i = 0; i < header.Length; i++)
{
    row.Cells[i].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
    Paragraph p = row.Cells[i].AddParagraph();
    p.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center;
    TextRange txtRange = p.AppendText(header[i]);
    txtRange.CharacterFormat.Bold = true;
}

for (int r = 0; r < data.Length; r++)
{
    TableRow dataRow = table.Rows[r + 1];
    dataRow.Height = 20;
    dataRow.HeightType = TableRowHeightType.Exactly;
    dataRow.RowFormat.BackColor = Color.Empty;
    for (int c = 0; c < data[r].Length; c++)
    {
        dataRow.Cells[c].CellFormat.VerticalAlignment = VerticalAlignment.Middle;
        dataRow.Cells[c].AddParagraph().AppendText(data[r][c]);
    }
}

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

'Create word document
Dim document_Renamed As New Document()

Dim section As Section = document_Renamed.AddSection()


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

' ***************** First Row *************************
Dim row As TableRow = table.Rows(0)
row.IsHeader = True
row.Height = 20    'unit: point, 1point = 0.3528 mm
row.HeightType = TableRowHeightType.Exactly
row.RowFormat.BackColor = Color.Gray
For i As Integer = 0 To header.Length - 1
    row.Cells(i).CellFormat.VerticalAlignment = VerticalAlignment.Middle
    Dim p As Paragraph = row.Cells(i).AddParagraph()
    p.Format.HorizontalAlignment = Spire.Doc.Documents.HorizontalAlignment.Center
    Dim txtRange As TextRange = p.AppendText(header(i))
    txtRange.CharacterFormat.Bold = True
Next


For r As Integer = 0 To data.Length - 1
    Dim dataRow As TableRow = table.Rows(r + 1)
    dataRow.Height = 20
    dataRow.HeightType = TableRowHeightType.Exactly
    dataRow.RowFormat.BackColor = Color.Empty
    For c As Integer = 0 To data(r).Length - 1
        dataRow.Cells(c).CellFormat.VerticalAlignment = VerticalAlignment.Middle
        dataRow.Cells(c).AddParagraph().AppendText(data(r)(c))
    Next
Next

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

Published in Context

Tagged under

Thursday, 21 October 2010 13:20

Word indent in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to indent paragraph.

//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("Using items list to show Indent demo.");
paragraph.ApplyStyle(BuiltinStyle.Heading3);

paragraph = section.AddParagraph();
for (int i = 0; i < 10; i++)
{
    paragraph = section.AddParagraph();
    paragraph.AppendText(String.Format("Indent Demo Node{0}", i));

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

    paragraph.ListFormat.CurrentListLevel.NumberPosition = -10;
}

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

'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("Using items list to show Indent demo.")

      paragraph_Renamed.ApplyStyle(BuiltinStyle.Heading3)

      paragraph_Renamed = section_Renamed.AddParagraph()
      For i As Integer = 0 To 9
          paragraph_Renamed = section_Renamed.AddParagraph()
          Dim text As String _
              = "Indent Demo Node" & i.ToString()
          Dim txtRange As TextRange = paragraph_Renamed.AppendText(text)


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

          End If

          paragraph_Renamed.ListFormat.CurrentListLevel.NumberPosition = -10

      Next i

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

Published in Formating

Tagged under

Thursday, 21 October 2010 12:31

Word font and color in C#, VB.NET

Demo
C# source
VB.Net source

The sample demonstrates how to set font and color.

//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
String text
    = "This paragraph is demo of text font and color. "
    + "The font name of this paragraph is Tahoma. "
    + "The font size of this paragraph is 20. "
    + "The under line style of this paragraph is DotDot. "
    + "The color of this paragraph is Blue. ";
TextRange txtRange = paragraph.AppendText(text);

//Font name
txtRange.CharacterFormat.FontName = "Tahoma";

//Font size
txtRange.CharacterFormat.FontSize = 20;

//Underline
txtRange.CharacterFormat.UnderlineStyle = UnderlineStyle.DotDot;

//Change text color
txtRange.CharacterFormat.TextColor = Color.Blue;

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

'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
      Dim text As String _
          = "This paragraph is demo of text font and color. " _
          & "The font name of this paragraph is Tahoma. " _
          & "The font size of this paragraph is 20. " _
          & "The under line style of this paragraph is DotDot. " _
          & "The color of this paragraph is Blue. "
      Dim txtRange As TextRange = paragraph_Renamed.AppendText(text)

      'Font name
      txtRange.CharacterFormat.FontName = "Tahoma"

      'Font size
      txtRange.CharacterFormat.FontSize = 20

      'Underline
      txtRange.CharacterFormat.UnderlineStyle = UnderlineStyle.DotDot

      'Change text color
      txtRange.CharacterFormat.TextColor = Color.Blue

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

Published in Formating

Tagged under

Monday, 13 September 2010 15:09

Spire.DataExport for .NET Quick Start

In this document, we will quickly help you finish a simple demo about Spire.DataExport using Visual Studio. Before you get started, please make sure the Spire.DataExport and Visual Studio (2008 or later) are installed on your computer.

1. In Visual Studio, click File, New, and then Project, If you want to create a C# project, select Visual C#, Windows and choose Windows Forms Application and name the project SimpleCellExport. Click OK. If you want to create a Visual Basic project, select Visual Basic, Windows Forms Application and name the project SimpleCellExport. Click OK.

2. In Solution Explorer, right-click the project SimpleCellExport and click Properties. In the Application tab, check the Target framework, the target framework can must be a full version not a client profile version.

3. In Solution Explorer, right-click the project SimpleCellExport and click Add Reference. In the Browse tab, find the folder which you installed the Spire.DataExport in, default is "C:\Program Files\e-iceblue\Spire.DataExport", double-click the folder Bin. If the target framework of the project SimpleCellExport

is .NET 2.0, double-click folder NET2.0
is .NET 3.5, double-click folder NET3.5
is .NET 4.0, double-click folder NET4.0

select these two assemblies: Spire.DataExport.dll and Spire.DataExport.ResourceMgr.dll, and click OK to add it to the project.

4. In Solution Explorer, double-click the file Form1.cs/Form1.vb to open the form design view, add a button into the form, and change its name to 'btnRun', change its text to 'Run'.

5. Open the ToolBox window, select the control 'CellExport' in the 'Spire.DataExport' tab and drag it into the form.

6. Select the new control object under the form in the design window, open the Properties window, change the name of the control 'CellExport' to 'cellExport', set the property ActionAfterExport to OpenView, set the property FileName to any file path you wanted, for example: D:\temp\sample.xls.

7. Double-click the button 'Run', you will see the code view and the following method has been added automatically

[C#]

private void btnRun_Click(object sender, EventArgs e)

[VB.NET]

***Private Sub btnRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRun.Click

8. Add the following codes to the top of the file

[C#]

using System.Data;
using System.Data.OleDb;

[VB.NET]

Imports System.Data
Imports System.Data.OleDb

9. Add the following codes to the method btnRun_Click

[C#]

using (IDbConnection conn = new OleDbConnection())
{
//the data source demo.mdb was installed during installing Spire.DataExport,
//so the path of the data source may be different yours.
conn.ConnectionString
= @"Provider=Microsoft.Jet.OLEDB.4.0;"
+ @"Data Source=C:\Program Files\e-iceblue\Spire.DataExport\Demos\Database\demo.mdb";
conn.Open();

IDbCommand command = new OleDbCommand();
command.Connection = conn;
command.CommandText = "select * from parts";

this.cellExport.SQLCommand = command;
this.cellExport.SaveToFile();
}

[VB.NET]

Using conn = new OleDbConnection()
'the data source demo.mdb was installed during installing Spire.DataExport,
'so the path of the data source may be different yours.
conn.ConnectionString _
= "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=C:\\Program Files\\e-iceblue\\Spire.DataExport\\Demos\\Database\\demo.mdb"
conn.Open()

Dim command As New OleDbCommand()
command.Connection = conn
command.CommandText = "select * from parts"

Me.cellExport.SQLCommand = command
Me.cellExport.SaveToFile()
End Using

10. In Solution Explorer, right-click the project SimpleCellExport and click Debug, then Start new instance, you will see the opened window Form1, click the button 'Run', an Excel workbook will be generated, and opened. It looks the same as the following picture:

Published in Getting Started

Tagged under

DataExport Quick Start

Tuesday, 17 August 2010 16:33

How to Use Spire.Doc in a .NET Applicaiton

In this document, we will quickly help you finish a simple demo about Spire.Doc using Visual Studio. As usual, it's a HelloWorld demo. Before you get started, please make sure the Spire.Doc and Visual Studio (2008 or later) are installed on your computer.

1. In Visual Studio, click File, New, and then Project, If you want to create a C# project, select Visual C#, Windows and choose Windows Forms Application and name the project HelloWorld. Click OK. If you want to create a Visual Basic project, select Visual Basic, Windows Forms Application and name the project HelloWorld. Click OK.

2. In Solution Explorer, right-click the project HelloWorld and click Add Reference. In the Browse tab, find the folder which you installed the Spire.Doc in, default is "C:\Program Files\e-iceblue\Spire.Doc", double-click the folder Bin. If the target framework of the project HelloWorld

is .NET 2.0, double-click folder NET2.0
is .NET 3.5, double-click folder NET3.5
is .NET 4.0, double-click folder NET4.0

select assembly Spire.Doc.dll and click OK to add it to the project.

3. In Solution Explorer, double-click the file Form1.cs/Form1.vb to open the form design view, add a button into the form, and change its name to 'btnRun', change its text to 'Run'.

4. Double-click the button 'Run', you will see the code view and the following method has been added automatically:

[C#]

private void btnRun_Click(object sender, EventArgs e)

[VB.NET]

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

5. Add the following codes to the top of the file:

[C#]

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

[VB.NET]

Imports Spire.Doc
Imports Spire.Doc.Documents

6. Add the following codes to the method btnRun_Click

[C#]

//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.
try
{
System.Diagnostics.Process.Start("Sample.doc");
}
catch { }

[VB.NET]

'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.
Try
System.Diagnostics.Process.Start("Sample.doc")
Catch
End Try

7. In Solution Explorer, right-click the project HelloWorld and click Debug, then Start new instance, you will see the opened window Form1, click the button 'Run', a Word document will be created, edited and opened. The string "Hello, World" is filled in the first line of page 1.

Published in Quick Start for .NET

Tagged under

Doc Quick Start

Tuesday, 17 August 2010 13:51

Purchase FAQS

License FAQs
Sales FAQs

E-ICEBLUE Product License FAQs

Q: What is the difference between Developer Small Business License, Developer OEM License, Site Small Business License, Site OEM License?

One Developer Subscription authorizes One developer to utilize our product to create an unlimited number of applications which can be deployed at One geographic location in your organization (internal use only). It does not allow distribution of your custom applications to third parties, public-facing websites, or SaaS/PaaS/IaaS projects.

One Developer OEM Subscription authorizes One developer to create an unlimited of custom applications using our product, and the applications are allowed to be distributed in any form to any number of geographic locations.

One Site Enterprise Subscription authorizes up to 10 developers to create an unlimited number of applications which can be deployed at up to 10 geographic locations. It does not allow distribution of your custom applications to public-facing websites, or SaaS/PaaS/IaaS projects.

One Site Enterprise OEM Subscription authorizes up to 10 developers to create an unlimited number of custom applications using our product, and the applications are allowed to be distributed in any form to any number of geographic locations.

Note: Only OEM subscription works for public-facing websites and cloud-based applications.

Q: Do all developers should be licensed or just the one working directly using the e-iceblue components?

A: All developers who are working on the project need to be licensed

Q: Can the licensed components be used on multiple machines ?

A: Yes, the licensed version can be installed on multiple machines. If a single developer license is purchased, the licensed version can be installed on all machines owned by and exclusively used by the developer holding the license.

Q: How long can I get free updates & free support ?

A: Free updates & free priority support is provided for a full version cycle or maximum 1 years. if version 3.5 is purchased, the last free update is v4.4 or the version when available at the end of the 1 year period.

Q: Why Renew Subscription ?

A: When you buy a license you get a full year's subscription to software updates. When your subscription is near to its end, we send you an email to remind you to renew your subscription. Without a subscription you can still use the product and get support, but you do not get new features or fixes. If you have a problem that requires a hot fix but do not have a current subscription, you will have to renew before you can benefit from the fix. You can renew your subscription either when we send you a reminder, or at any other time. If your subscription expires in December and you buy a renewal early, say in September, the renewal adds twelve months to your subscription from the expiry date. Renewing an existing subscription is cheaper than renewing an expired subscription. While your subscription is still running, adding a year to the subscription costs 60% of the current product price. To re-activate an expired subscription costs 75% of the current product price.

Q: What will happen for a license beyond 1 year?

Can our existing clients continue using the solution without having to purchase a new license?

A: Yes, your clients can continue using the solution without having to purchase a new license

Can we continue deploying to new customers?

A: You can still use the license and of course including deploy to new customers. But the service of free product update and priority support is not available until you renew your license.

Will the 'Evaluation Warning' messages reappear?

A: After one year, if you download and install the latest version, the 'Evaluation Warning' messages will appear. If you keep using the old version, it won't.

Do we need to buy a new license to continue any development (i.e. do we simply lose support & access to any new versions)?

A: We offer life-time free technical support but 1 year free update service only. We recommend you renew your license because some new functions/features/hotfix can only be used in new version. And after renew your license you will have our free priority technical support.

Q: I have purchased Spire.Doc and Spire.XLS, but when I use them in the same project, it failed. How to use your Spire.XLS and Spire.Doc in the same project?

A: Please download our Spire.Office to get the dlls of Spire.Doc and Spire.Xls. Please refer to how to apply two license files to use Spire.Office normally by applying the license files you purchased.

FYI: If you want to use any other two products in Spire.Office in the same project, such as Spire.Doc and Spire.PDF, Spire.Presentation and Spire.XLS, please download our Spire.Office to use them together and there is no need for you to purchase Spire.Office.

E-ICEBLUE Product Sales FAQs

Q: What benefits are available if I purchase your products?

1 Business day Guaranty e-mail Response - Email Us
1 Business days Guaranty forum questions Reply - Ask Now
3 Business days Guaranty hotfix version publish - HotFix
30-day Free Trial
1 Year Free Update and Free Prior Technology Support
Free Customized Service for OEM users

Q: Can I evaluate prior to purchasing?

A: Yes! All e-iceblue components have a risk free, evaluation version available. We strongly encourage developers to download and try our components prior to purchasing in order to ensure that they will fill your needs 100%.

Q: Do you offer technical support when I'm evaluating a product?

A: Yes! Anything you want to consult you can contact us via email, forum and skype (iceblue-support) at any time.

Q: Can I request a special feature?

A: Yes! We are always trying to improve our products. Your request will be a huge help!

Q: Is there any possible to get a discount?

A: Yes! We offer up to 47% discount for our customers. More details about discount can be consulted here. And how to use our coupon code can be consulted here.

Q: Is it safe to purchase product via your website?

A: It is 100% secure to do business with us. The Payment platform we utilize is ShareIT, which is one of the most trusted ecommerce companies in the world. The order of your private information, such as credit card number, addresses and so on will never be disclosed without your specific permission.

Q: What payment method do you accept?

A: We recommend our users to use PayPal or credit card. And any other payment solutions supported by Avangate we also accept. Such as Bank/Wire Transfer, PO, Check/Money Order, Fax, etc.

Q: When and how can I get the software I ordered?

A: Once you complete the online order, our technical support will send you license information within 24 hours (usually it is very fast).

Q: What is your refund policy?

A: We'll hold the 14-day money back guarantee if our products cannot normally work with error or bug. But sometimes the software doesn't work well due to improper operation. We strongly suggest you contact our support team for help first with detailed problem description. In addition, we do not accept irrational and no reason refund.

Q: I didn't receive the license code for several hours after my purchase. Why?

A: The possible reasons might be:

Due to your email setting, the letter with license code went to Trash directly. Please check the folder there.
You provided invalid email address when you ordered the software.
Your email service provider rejects emails from unknown senders.

Please contact us to ask license again for reason 2/3 or other reasons.

Q: I tried to purchase your products through Paypal, but after I entered my credit card info, it just hung. I tried two different browsers, it didn't work. Will you charge me twice?

A: Please don't worry about the double charge on your account. It is secured by Paypal and it seldom happens. If it really happens, we will make the refund to you once we confirm the double charge on your account.

Published in Purchase

Tagged under

Purchase