怎么实现，多级列表每页一个编号

test123599

比如点击按钮 自动创建 第一页叫，序号叫 附录A，再点击按钮就自动创建第二页，编号就是 附录B
第三页 的编号就是附录C

过客fppt

1. Sub CreateAppendixPage()
   
2.     Dim appendixCount As Integer
   
3.     Dim appendixLetter As String
   
4.     Dim appendixTitle As String
   
5.    
   
6.     ' 获取文档中已有的附录页数
   
7.     appendixCount = ActiveDocument.ComputeStatistics(wdStatisticPages, "附录*")
   
8.    
   
9.     ' 设置附录字母编号
   
10.     appendixLetter = Chr(65 + appendixCount)
    
11.     ' 设置附录标题
    
12.     appendixTitle = "附录" & appendixLetter
    
13.    
    
14.     ' 在新页插入附录标题
    
15.     Selection.InsertBreak Type:=wdSectionBreakNextPage
    
16.     Selection.Font.Name = "黑体"
    
17.     Selection.Font.Size = 14
    
18.     Selection.Font.Bold = True
    
19.     Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
    
20.     Selection.TypeText text:=appendixTitle
    
21.    
    
22.     ' 更新页面编号
    
23.     ActiveDocument.Fields.Update
    
24. End Sub
    

复制代码

先初步弄插入附录，楼主运行看看对不

画说

我以前会有的操作是拿一个标题样式，设置编号ABC，然后编号格式里设置设置一下在序号前面加上附录 两字