Word控件Spire.Doc 【段落处理】教程(十九)：在 C#/VB.NET 中将 ASCII 字符设置为 Word 中的项目符号

本文向您展示了如何使用 Spire.Doc 与 C# 和 VB.NET 将 ASCII 字符（特殊符号）设置为 Word 文档中的项目符号。

Spire.Doc for.NET 最新下载（qun;767755948）https://www.evget.com/product/3368/download

[C＃]

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

namespace SetBulletCharacter
{
class Program
{
static void Main(string[] args)
{
//Create a Document object and add a section
Document doc = new Document();
Section section = doc.AddSection();

//Create four list styles based on different ASCII characters
ListStyle listStyle1 = new ListStyle(doc, ListType.Bulleted);
listStyle1.Name = "liststyle";
listStyle1.Levels[0].BulletCharacter = "\x006e";
listStyle1.Levels[0].CharacterFormat.FontName = "Wingdings";
doc.ListStyles.Add(listStyle1);
ListStyle listStyle2 = new ListStyle(doc, ListType.Bulleted);
listStyle2.Name = "liststyle2";
listStyle2.Levels[0].BulletCharacter = "\x0075";
listStyle2.Levels[0].CharacterFormat.FontName = "Wingdings";
doc.ListStyles.Add(listStyle2);
ListStyle listStyle3 = new ListStyle(doc, ListType.Bulleted);
listStyle3.Name = "liststyle3";
listStyle3.Levels[0].BulletCharacter = "\x00b2";
listStyle3.Levels[0].CharacterFormat.FontName = "Wingdings";
doc.ListStyles.Add(listStyle3);
ListStyle listStyle4 = new ListStyle(doc, ListType.Bulleted);
listStyle4.Name = "liststyle4";
listStyle4.Levels[0].BulletCharacter = "\x00d8";
listStyle4.Levels[0].CharacterFormat.FontName = "Wingdings";
doc.ListStyles.Add(listStyle4);

//Add four paragraphs and apply list style separately
Paragraph p1 = section.Body.AddParagraph();
p1.AppendText("Spire.Doc for .NET");
p1.ListFormat.ApplyStyle(listStyle1.Name);
Paragraph p2 = section.Body.AddParagraph();
p2.AppendText("Spire.PDF for .NET");
p2.ListFormat.ApplyStyle(listStyle2.Name);
Paragraph p3 = section.Body.AddParagraph();
p3.AppendText("Spire.XLS for .NET");
p3.ListFormat.ApplyStyle(listStyle3.Name);
Paragraph p4 = section.Body.AddParagraph();
p4.AppendText("Spire.Presentation for .NET");
p4.ListFormat.ApplyStyle(listStyle4.Name);

//Save to file
doc.SaveToFile("output.docx", FileFormat.Docx2013);
}
}
}

[VB.NET]

Imports Spire.Doc
Imports Spire.Doc.Documents

Namespace SetBulletCharacter
Class Program
Shared Sub Main(ByVal args() As String)
'Create a Document object and add a section
Document doc = New Document()
Dim section As Section = doc.AddSection()

'Create four list styles based on different ASCII characters
Dim listStyle1 As ListStyle = New ListStyle(doc, ListType.Bulleted)
listStyle1.Name = "liststyle"
listStyle1.Levels(0).BulletCharacter = "\x006e"
listStyle1.Levels(0).CharacterFormat.FontName = "Wingdings"
doc.ListStyles.Add(listStyle1)
Dim listStyle2 As ListStyle = New ListStyle(doc, ListType.Bulleted)
listStyle2.Name = "liststyle2"
listStyle2.Levels(0).BulletCharacter = "\x0075"
listStyle2.Levels(0).CharacterFormat.FontName = "Wingdings"
doc.ListStyles.Add(listStyle2)
Dim listStyle3 As ListStyle = New ListStyle(doc, ListType.Bulleted)
listStyle3.Name = "liststyle3"
listStyle3.Levels(0).BulletCharacter = "\x00b2"
listStyle3.Levels(0).CharacterFormat.FontName = "Wingdings"
doc.ListStyles.Add(listStyle3)
Dim listStyle4 As ListStyle = New ListStyle(doc, ListType.Bulleted)
listStyle4.Name = "liststyle4"
listStyle4.Levels(0).BulletCharacter = "\x00d8"
listStyle4.Levels(0).CharacterFormat.FontName = "Wingdings"
doc.ListStyles.Add(listStyle4)

'Add four paragraphs and apply list style separately
Dim p1 As Paragraph = section.Body.AddParagraph()
p1.AppendText("Spire.Doc for .NET")
p1.ListFormat.ApplyStyle(listStyle1.Name)
Dim p2 As Paragraph = section.Body.AddParagraph()
p2.AppendText("Spire.PDF for .NET")
p2.ListFormat.ApplyStyle(listStyle2.Name)
Dim p3 As Paragraph = section.Body.AddParagraph()
p3.AppendText("Spire.XLS for .NET")
p3.ListFormat.ApplyStyle(listStyle3.Name)
Dim p4 As Paragraph = section.Body.AddParagraph()
p4.AppendText("Spire.Presentation for .NET")
p4.ListFormat.ApplyStyle(listStyle4.Name)

'Save to file
doc.SaveToFile("output.docx", FileFormat.Docx2013)
End Sub
End Class
End Namespace