一、 创坐项目标号列表

VB.NET

1. Imports Spire.Doc
   

2. Imports Spire.Doc.Documents
   

3. 
   

4. Namespace WordBullets
   

5. 
   

6.     Class Program
   

7. 
   

8.         Private Shared Sub Main(ByVal args As String())
   

9.             Dim doc As Document = New Document()
   

10.             Dim section As Section = doc.AddSection()
    

11.             Dim para1 As Paragraph = section.AddParagraph()
    

12.             para1.AppendText("国际政治类组织")
    

13.             Dim para2 As Paragraph = section.AddParagraph()
    

14.             para2.AppendText("欧洲联盟（欧盟）")
    

15.             Dim para3 As Paragraph = section.AddParagraph()
    

16.             para3.AppendText("自力国家疏散体（独联体）")
    

17.             Dim para4 As Paragraph = section.AddParagraph()
    

18.             para4.AppendText("上海开做组织")
    

19.             Dim para5 As Paragraph = section.AddParagraph()
    

20.             para5.AppendText("阿推伯聚会会议联盟")
    

21.             Dim para6 As Paragraph = section.AddParagraph()
    

22.             para6.AppendText("国际死态战仄开做组织")
    

23.             Dim para7 As Paragraph = section.AddParagraph()
    

24.             para7.AppendText("阿推伯国家联盟")
    

25.             Dim style As ParagraphStyle = New ParagraphStyle(doc)
    

26.             style.Name = "fontStyle"
    

27.             style.CharacterFormat.FontName = "宋体"
    

28.             style.CharacterFormat.FontSize = 12F
    

29.             doc.Styles.Add(style)
    

30.             For i As Integer = 0 To section.Paragraphs.Count - 1
    

31.                 If i <> 0 Then
    

32.                     section.Paragraphs(i).ApplyStyle(BuiltinStyle.ListBullet2)
    

33.                 End If
    

34. 
    

35.                 section.Paragraphs(i).ApplyStyle("fontStyle")
    

36.             Next
    

37. 
    

38.             doc.SaveToFile("项目列表.docx", FileFormat.Docx2013)
    

39.             System.Diagnostics.Process.Start("项目列表.docx")
    

40.         End Sub
    

41.     End Class
    

42. End Namespace

C#

1. using Spire.Doc;
   

2. using Spire.Doc.Documents;
   

3. using Spire.Doc.Fields;
   

4. 
   

5. namespace Multi_levelList_Doc
   

6. {
   

7.     class Program
   

8.     {
   

9.         static void Main(string[] args)
   

10.         {
    

11.             //新建Word文档
    

12.             Document doc = new Document();
    

13.             Section section = doc.AddSection();
    

14. 
    

15.             //初初化ListStyle工具，指定List类型为数字列表并命名
    

16.             ListStyle listStyle = new ListStyle(doc, ListType.Numbered);
    

17.             listStyle.Name = "levelstyle";
    

18. 
    

19.             //设定一级列表形式为阿推伯数字
    

20.             listStyle.Levels[0].PatternType = ListPatternType.Arabic;
    

21. 
    

22.             //设置两级列表数字前缀及形式
    

23.             listStyle.Levels[1].NumberPrefix = ".";
    

24.             listStyle.Levels[1].PatternType = ListPatternType.Arabic;
    

25. 
    

26.             //设置三级列表数字前缀及形式
    

27.             listStyle.Levels[2].NumberPrefix = ".
    .";
    

28.             listStyle.Levels[2].PatternType = ListPatternType.Arabic;
    

29. 
    

30.             //正在ListStyles汇开中增减新建的list style
    

31.             doc.ListStyles.Add(listStyle);
    

32. 
    

33.             //创坐字体格式
    

34.             Spire.Doc.Formatting.CharacterFormat format = new Spire.Doc.Formatting.CharacterFormat(doc);
    

35.             format.FontName = "宋体";
    

36. 
    

37.             //增减段降，设置一级序列
    

38.             Paragraph paragraph = section.AddParagraph();
    

39.             TextRange tr = paragraph.AppendText("次要组织机构");
    

40.             tr.ApplyCharacterFormat(format); //应用字体格式
    

41.             paragraph.ApplyStyle(BuiltinStyle.Heading1); //应用题目1花式
    

42.             paragraph.ListFormat.ApplyStyle("levelstyle"); //应用列表花式
    

43. 
    

44.             //增减段降，设置一级序列
    

45.             paragraph = section.AddParagraph();
    

46.             tr = paragraph.AppendText("次要本能性能");
    

47.             tr.ApplyCharacterFormat(format);
    

48.             paragraph.ApplyStyle(BuiltinStyle.Heading1);
    

49.             paragraph.ListFormat.ApplyStyle("levelstyle");
    

50. 
    

51.             //增减段降，设置两级序列
    

52.             paragraph = section.AddParagraph();
    

53.             tr = paragraph.AppendText("根柢本能性能");
    

54.             tr.ApplyCharacterFormat(format);
    

55.             paragraph.ApplyStyle(BuiltinStyle.Heading2);
    

56.             paragraph.ListFormat.ListLevelNumber = 1; //设置品级为第两品级
    

57.             paragraph.ListFormat.ApplyStyle("levelstyle");
    

58. 
    

59.             //增减段降，设置两级序列
    

60.             paragraph = section.AddParagraph();
    

61.             tr = paragraph.AppendText("5年夜本能性能");
    

62.             tr.ApplyCharacterFormat(format);
    

63.             paragraph.ApplyStyle(BuiltinStyle.Heading2);
    

64.             paragraph.ListFormat.ContinueListNumbering();
    

65.             paragraph.ListFormat.ApplyStyle("levelstyle");
    

66. 
    

67.             //增减段降，设置三级序列
    

68.             paragraph = section.AddParagraph();
    

69.             tr = paragraph.AppendText("办理本能性能 组织本能性能 协调本能性能 疗养本能性能 供给本能性能");
    

70.             tr.ApplyCharacterFormat(format);
    

71.             paragraph.ApplyStyle(BuiltinStyle.Heading5);
    

72.             paragraph.ListFormat.ListLevelNumber = 2; //设置品级为第三品级
    

73.             paragraph.ListFormat.ApplyStyle("levelstyle");
    

74. 
    

75.             //增减段降，设置一级序列
    

76.             paragraph = section.AddParagraph();
    

77.             tr = paragraph.AppendText("根前导收端根底则");
    

78.             tr.ApplyCharacterFormat(format);
    

79.             paragraph.ApplyStyle(BuiltinStyle.Heading1);
    

80.             paragraph.ListFormat.ApplyStyle("levelstyle");
    

81. 
    

82.             //留存并打开文档
    

83.             doc.SaveToFile("多级列表.docx", FileFormat.Docx);
    

84.             System.Diagnostics.Process.Start("多级列表.docx");
    

85.         }
    

86.     }
    

87. }

1. Imports Spire.Doc
   

2. Imports Spire.Doc.Documents
   

3. Imports Spire.Doc.Fields
   

4. 
   

5. Namespace Multi_levelList_Doc
   

6. 
   

7.     Class Program
   

8. 
   

9.         Private Shared Sub Main(ByVal args As String())
   

10.             Dim doc As Document = New Document()
    

11.             Dim section As Section = doc.AddSection()
    

12.             Dim listStyle As ListStyle = New ListStyle(doc, ListType.Numbered)
    

13.             listStyle.Name = "levelstyle"
    

14.             listStyle.Levels(0).PatternType = ListPatternType.Arabic
    

15.             listStyle.Levels(1).NumberPrefix = vbNullChar & "."
    

16.             listStyle.Levels(1).PatternType = ListPatternType.Arabic
    

17.             listStyle.Levels(2).NumberPrefix = vbNullChar & "." & ChrW(1) & "."
    

18.             listStyle.Levels(2).PatternType = ListPatternType.Arabic
    

19.             doc.ListStyles.Add(listStyle)
    

20.             Dim format As Spire.Doc.Formatting.CharacterFormat = New Spire.Doc.Formatting.CharacterFormat(doc)
    

21.             format.FontName = "宋体"
    

22.             Dim paragraph As Paragraph = section.AddParagraph()
    

23.             Dim tr As TextRange = paragraph.AppendText("次要组织机构")
    

24.             tr.ApplyCharacterFormat(format)
    

25.             paragraph.ApplyStyle(BuiltinStyle.Heading1)
    

26.             paragraph.ListFormat.ApplyStyle("levelstyle")
    

27.             paragraph = section.AddParagraph()
    

28.             tr = paragraph.AppendText("次要本能性能")
    

29.             tr.ApplyCharacterFormat(format)
    

30.             paragraph.ApplyStyle(BuiltinStyle.Heading1)
    

31.             paragraph.ListFormat.ApplyStyle("levelstyle")
    

32.             paragraph = section.AddParagraph()
    

33.             tr = paragraph.AppendText("根柢本能性能")
    

34.             tr.ApplyCharacterFormat(format)
    

35.             paragraph.ApplyStyle(BuiltinStyle.Heading2)
    

36.             paragraph.ListFormat.ListLevelNumber = 1
    

37.             paragraph.ListFormat.ApplyStyle("levelstyle")
    

38.             paragraph = section.AddParagraph()
    

39.             tr = paragraph.AppendText("5年夜本能性能")
    

40.             tr.ApplyCharacterFormat(format)
    

41.             paragraph.ApplyStyle(BuiltinStyle.Heading2)
    

42.             paragraph.ListFormat.ContinueListNumbering()
    

43.             paragraph.ListFormat.ApplyStyle("levelstyle")
    

44.             paragraph = section.AddParagraph()
    

45.             tr = paragraph.AppendText("办理本能性能 " & vbLf & " 组织本能性能 " & vbLf & " 协调本能性能 " & vbLf & " 疗养本能性能 " & vbLf & " 供给本能性能")
    

46.             tr.ApplyCharacterFormat(format)
    

47.             paragraph.ApplyStyle(BuiltinStyle.Heading5)
    

48.             paragraph.ListFormat.ListLevelNumber = 2
    

49.             paragraph.ListFormat.ApplyStyle("levelstyle")
    

50.             paragraph = section.AddParagraph()
    

51.             tr = paragraph.AppendText("根前导收端根底则")
    

52.             tr.ApplyCharacterFormat(format)
    

53.             paragraph.ApplyStyle(BuiltinStyle.Heading1)
    

54.             paragraph.ListFormat.ApplyStyle("levelstyle")
    

55.             doc.SaveToFile("多级列表.docx", FileFormat.Docx)
    

56.             System.Diagnostics.Process.Start("多级列表.docx")
    

57.         End Sub
    

58.     End Class
    

59. End Namespace