个性目录的制作方法

zhanglei1371

效果如下：

按F9更新域也没有问题
做法很简单，就是结合手动目录+自动目录的做法来完成。
（1）设置各级标题；
（2）在要生成目录的地方进行交叉引用，分别引用标题文字和页码：

（3）标题文字和页码中间敲个tab：并设置制表符：

（4）汉字目录的做法：使用域{=2\* chineseNum3}即可。
若想快，还是用vba：

1. Sub 秒罗列所有的交叉引用()
   
2. On Error GoTo en
   
3. For i = 1 To 20
   
4. Selection.InsertCrossReference ReferenceType:="标题", ReferenceKind:= _
   
5.         wdContentText, ReferenceItem:=i, InsertAsHyperlink:=True, _
   
6.         IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
   
7.     Selection.InsertAfter Chr(9)
   
8.     Selection.EndKey
   
9.     Selection.InsertCrossReference ReferenceType:="标题", ReferenceKind:= _
   
10.         wdPageNumber, ReferenceItem:=i, InsertAsHyperlink:=True, _
    
11.         IncludePosition:=False, SeparateNumbers:=False, SeparatorString:=" "
    
12.         Selection.TypeParagraph
    
13.         
    
14.     Next
    
15. en:
    
16. End Sub

复制代码

附件：
个性目录.rar (25.46 KB, 下载次数: 181)

2019-1-13 18:43 上传

点击文件名下载附件