Independentsoft
Home
Purchase
Support
Company
Contact
Word .NET
>
Tutorial
> Bullet list
The following example shows you how to create a bullet list.
C# example
using System; using Independentsoft.Office.Word; using Independentsoft.Office.Word.Numbering; namespace Sample { class Program { static void Main(string[] args) { WordDocument doc = new WordDocument(); // Create numbering definitions NumberingDefinitions numberingDefinitions = new NumberingDefinitions(); // Create abstract numbering for bullet list AbstractNumbering abstractNumbering = new AbstractNumbering(); abstractNumbering.ID = 1; NumberingLevel level0 = new NumberingLevel(); level0.Level = 0; level0.Format = NumberingFormat.Bullet; level0.Text = new NumberingLevelText("\u2022"); // bullet character level0.Start = 1; abstractNumbering.Levels.Add(level0); numberingDefinitions.AbstractNumberings.Add(abstractNumbering); // Create numbering definition instance NumberingDefinitionInstance instance = new NumberingDefinitionInstance(); instance.ID = 1; instance.AbstractNumberingID = 1; numberingDefinitions.Numberings.Add(instance); doc.NumberingDefinitions = numberingDefinitions; // Create bullet list items string[] items = {"First item", "Second item", "Third item", "Fourth item"}; foreach (string item in items) { Run run = new Run(); run.AddText(item); Paragraph paragraph = new Paragraph(); paragraph.Add(run); paragraph.NumberingReference = new NumberingReference(1, 0); doc.Body.Add(paragraph); } doc.Save("c:\\test\\output.docx", true); } } }
VB example
Imports System Imports Independentsoft.Office.Word Imports Independentsoft.Office.Word.Numbering Module Module1 Sub Main(ByVal args() As String) Dim doc As WordDocument = New WordDocument() ' Create numbering definitions Dim numberingDefinitions As NumberingDefinitions = New NumberingDefinitions() ' Create abstract numbering for bullet list Dim abstractNumbering As AbstractNumbering = New AbstractNumbering() abstractNumbering.ID = 1 Dim level0 As NumberingLevel = New NumberingLevel() level0.Level = 0 level0.Format = NumberingFormat.Bullet level0.Text = New NumberingLevelText(ChrW(8226)) ' bullet character level0.Start = 1 abstractNumbering.Levels.Add(level0) numberingDefinitions.AbstractNumberings.Add(abstractNumbering) ' Create numbering definition instance Dim instance As NumberingDefinitionInstance = New NumberingDefinitionInstance() instance.ID = 1 instance.AbstractNumberingID = 1 numberingDefinitions.Numberings.Add(instance) doc.NumberingDefinitions = numberingDefinitions ' Create bullet list items Dim items() As String = {"First item", "Second item", "Third item", "Fourth item"} For Each item As String In items Dim run As Run = New Run() run.AddText(item) Dim paragraph As Paragraph = New Paragraph() paragraph.Add(run) paragraph.NumberingReference = New NumberingReference(1, 0) doc.Body.Add(paragraph) Next doc.Save("c:\test\output.docx", True) End Sub End Module
Need help? Ask our developers:
Name*
Email*
Message*