page 90

Subscribe to this RSS feed

.NET (1327)

Children categories

Spire.DataExport for .NET (33)

View items...

Spire.Presentation for .NET (205)

View items...

Spire.Spreadsheet for .NET (1)

View items...

Spire.Doc for .NET is a professional Word .NET library specifically designed for developers to create, read, write, convert, compare and print Word documents on any .NET platform (Target .NET Framework, .NET Core, .NET Standard, .NET 5.0, .NET 6.0, Xamarin & Mono Android) with fast and high quality performance.

As an independent Word .NET API, Spire.Doc for .NET doesn't need Microsoft Word to be installed on neither the development nor target systems. However, it can incorporate Microsoft Word document creation capabilities into any developers' .NET applications.

Request free customized demo just for you.

Solutions to Open Word in C#, VB.NET

2010-12-09 04:10:14 Written by Administrator

No matter what users want to do on Word document, they should open it. This guide demonstrates several solutions to open Word in C# and VB.NET via Spire.Doc for .NET.

Open Existing Word

Spire.Doc for .NET provides a Document(String) constructor to enable users to initialize a new instance of Document class from the specified existing document.

[C#]

  Document document = new Document(@"E:\Work\Documents\Spire.Doc for .NET.docx");

[VB.NET]

Dim document As New Document("E:\Work\Documents\Spire.Doc for .NET.docx")

Spire.Doc for .NET also provides Document.LoadFromFile(String) method of Document class to open a Word document. The Word document can be .doc(Word 97-2003), .docx(Word 2007 and 2010) and .docm(Word with macro).

[C#]

  Document document = new Document();
            document.LoadFromFile(@"E:\Work\Documents\Spire.Doc for .NET.docx");

[VB.NET]

 Dim document As New Document()
            document.LoadFromFile("E:\Work\Documents\Spire.Doc for .NET.docx")

Open Word in Read Mode

Spire.Doc for .NET provides Document.LoadFromFileInReadMode(String, FileFormat) method of Document class to load Word in Read-Only mode.

[C#]

            Document document = new Document();
            document.LoadFromFileInReadMode(@"E:\Work\Documents\Spire.Doc for .NET.docx",FileFormat.Docx);

[VB.NET]

            Dim document As New Document()
            document.LoadFromFileInReadMode("E:\Work\Documents\Spire.Doc for .NET.docx", FileFormat.Docx)

Load Word from Stream

Spire.Doc for .NET provides the constructor Document(Stream) to initialize a new instance of Document class from specified data stream and the method Document.LoadFromStream(Stream, FileFormat) to open document from Stream in XML or Microsoft Word document.

[C#]

            Stream stream = File.OpenRead(@"E:\Work\Documents\Spire.Doc for .NET.docx");
            Document document = new Document(stream);

            Stream stream = File.OpenRead(@"E:\Work\Documents\Spire.Doc for .NET.docx");
            Document document = new Document();
            document.LoadFromStream(stream, FileFormat.Docx);

[VB.NET]

            Dim stream As Stream = File.OpenRead("E:\Work\Documents\Spire.Doc for .NET.docx")
            Dim document As New Document(stream)

            Dim stream As Stream = File.OpenRead("E:\Work\Documents\Spire.Doc for .NET.docx")
            Dim document As New Document()
            document.LoadFromStream(stream, FileFormat.Docx)

Spire.Doc, an easy-to-use component to operate Word document, allows developers to fast generate, write, edit and save Word (Word 97-2003, Word 2007, Word 2010) in C# and VB.NET for .NET, Silverlight and WPF.

Published in Document Operation

Tagged under

doc net Operation

Word Page Setup in C#, VB.NET

2010-10-21 14:19:04 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to work with Word page setup.

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

Section section = document.AddSection();

//the unit of all measures below is point, 1point = 0.3528 mm
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;

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

'the unit of all measures below is point, 1point = 0.3528 mm
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 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.SaveToFile("Sample.doc", FileFormat.Doc)

Published in Setup

Tagged under

Word document setup in C#, VB.NET

2010-10-21 14:16:05 Written by Administrator

Demo
C# source
VB.Net source

The sample demonstrates how to set document properties.

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

document.BuiltinDocumentProperties.Title = "Document Demo Document";
document.BuiltinDocumentProperties.Subject = "demo";
document.BuiltinDocumentProperties.Author = "James";
document.BuiltinDocumentProperties.Company = "e-iceblue";
document.BuiltinDocumentProperties.Manager = "Jakson";
document.BuiltinDocumentProperties.Category = "Doc Demos";
document.BuiltinDocumentProperties.Keywords = "Document, Property, Demo";
document.BuiltinDocumentProperties.Comments = "This document is just a demo.";

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

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.
document.SaveToFile("Sample.doc",FileFormat.Doc);

'Create word document
Dim document As New Document()

document.BuiltinDocumentProperties.Title = "Document Demo Document"
document.BuiltinDocumentProperties.Subject = "demo"
document.BuiltinDocumentProperties.Author = "James"
document.BuiltinDocumentProperties.Company = "e-iceblue"
document.BuiltinDocumentProperties.Manager = "Jakson"
document.BuiltinDocumentProperties.Category = "Doc Demos"
document.BuiltinDocumentProperties.Keywords = "Document, Property, Demo"
document.BuiltinDocumentProperties.Comments = "This document is just a demo."

Dim section As Section = document.AddSection()
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 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.
document.SaveToFile("Sample.doc", FileFormat.Doc)

Published in Setup

Tagged under

Word merge event handler in C#, VB.NET

2010-10-21 13:51:07 Written by Administrator

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

Word to pdf in C#, VB.NET

2010-10-21 13:47:59 Written by Administrator

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

Word to xml in C#, VB.NET

2010-10-21 13:44:33 Written by Administrator

Demo
C# source
VB.Net source

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

Word to Tiff image in C#, VB.NET

2010-10-21 13:34:11 Written by Administrator

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

Word table in C#, VB.NET

2010-10-21 13:25:18 Written by Administrator

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

Word indent in C#, VB.NET

2010-10-21 13:20:45 Written by Administrator

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

News Category

.NET (1327)

Children categories

Spire.XLS for .NET (389)

Spire.Doc for .NET (338)

Spire.DataExport for .NET (33)

Spire.PDF for .NET (292)

Spire.PDFViewer for .NET (19)

Spire.Barcode for .NET (16)

Spire.DocViewer for .NET (8)

Spire.Presentation for .NET (205)

Spire.Spreadsheet for .NET (1)

Spire.Email for .NET (19)

Spire.OCR for .NET (5)

Spire.PDFViewer for MAUI (1)

Solutions to Open Word in C#, VB.NET

Open Existing Word

Open Word in Read Mode

Load Word from Stream

Word Page Setup in C#, VB.NET

Word document setup in C#, VB.NET

Word merge event handler in C#, VB.NET

Word to pdf in C#, VB.NET

Word to xml in C#, VB.NET

Word to Tiff image in C#, VB.NET

Word table in C#, VB.NET

Word indent in C#, VB.NET

More...

Word font and color in C#, VB.NET

Spire.DataExport for .NET Quick Start

How to Use Spire.Doc in a .NET Applicaiton

Data Export Text/SYLK/CSV/DIF in C#, VB.NET