请各位大神指教,谢谢了!!!

挺枪直进

第一章

我怎么才能在上面目录点第一章,自动跳到底下这个第一章,包括下面的第二章以下的章节.

章节比较多,差不多有100多章.

挺枪直进

我试过插入索引那里,但是做到标题3就不行了,标题4做不了.点击也不会去.超连接也不行.

duquancai

做自动目录。。。。。。。。。。。。。。。。。。。。

413191246se

楼主，目录我不太懂！但是如果你想在《文档结构图》中观察各《章》内容的话，请试用一下我最近几天新编的VBA宏：（可以自动把所有《章、节、条、课、题、部分、阶段》设置格式）

1. Sub 第一章()
   
2.     Dim j&, s, k&, i As Paragraph, mt, r As Range, n%, m%
   
3.     s = Array("章", "节", "条", "课", "题", "部分", "阶段")
   
4.     With Selection
   
5.         For j = 0 To UBound(s)
   
6.             .HomeKey unit:=wdStory
   
7.             With .Find
   
8.                 .ClearFormatting
   
9.                 .Execute "第[一1]" & s(j), , , 1, , , 1
   
10.                 If .Found = True Then k = k + 1: Exit For
    
11.             End With
    
12.         Next j
    
13.         .HomeKey unit:=wdStory
    
14.     End With
    
15.     If k = 0 Then Exit Sub
    
16. '    删除所有空格
    
17.     For j = 0 To UBound(s)
    
18.         With CreateObject("vbscript.regexp")
    
19.             .Pattern = "^第[一二三四五六七八九十百零千\d]+" & s(j)
    
20.             .Global = True: .IgnoreCase = False: .MultiLine = True
    
21.             For Each i In ActiveDocument.Paragraphs
    
22.                 For Each mt In .Execute(i.Range.Text)
    
23.                     m = mt.FirstIndex: n = mt.Length
    
24.                     Set r = ActiveDocument.Range(i.Range.Start + m, i.Range.Start + m + n)
    
25.                     With r
    
26.                         .InsertAfter Text:=Chr(-24159)
    
27.                         If .Paragraphs(1).Range Like "*[。：；，、！？…—.:;,!?]?" Then .Paragraphs(1).Range.Characters.Last.Previous.Delete
    
28.                         If r Like "*[章课题]*" Then
    
29.                             .Style = wdStyleHeading2
    
30.                             .Font.Color = wdColorRed
    
31.                             .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
32.                         ElseIf r Like "*节*" Then
    
33.                             .Style = wdStyleHeading3
    
34.                             With .Font
    
35.                                 .Name = "楷体"
    
36.                                 .Name = "Times New Roman"
    
37.                                 .Color = wdColorPink
    
38.                             End With
    
39.                             .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
40.                         ElseIf r Like "*条*" Then
    
41.                             With .Font
    
42.                                 .Name = "黑体"
    
43.                                 .Name = "Times New Roman"
    
44.                                 .Bold = True
    
45.                                 .Color = wdColorGreen
    
46.                             End With
    
47.                         ElseIf r Like "*部分*" Or r Like "*阶段*" Then
    
48.                             .Select
    
49.                             With Selection
    
50.                                 .Expand 4
    
51.                                 .Style = wdStyleHeading2
    
52.                                 .Font.Size = 18
    
53.                                 .Font.Color = wdColorDarkRed
    
54.                                 .ParagraphFormat.SpaceBefore = 25
    
55.                                 .ParagraphFormat.SpaceAfter = 25
    
56.                                 .ParagraphFormat.Alignment = wdAlignParagraphCenter
    
57.                             End With
    
58.                         End If
    
59.                         .ParagraphFormat.KeepWithNext = False
    
60.                         .ParagraphFormat.KeepTogether = False
    
61.                         If r Like "*条*" Then r.Paragraphs(1).Range.Characters.Last.InsertBefore Text:="。"
    
62.                     End With
    
63.                 Next
    
64.             Next
    
65.         End With
    
66.     Next j
    
67. End Sub

复制代码

挺枪直进

duquancai 发表于 2017-12-20 23:45
做自动目录。。。。。。。。。。。。。。。。。。。。

怎么自动做目录

挺枪直进

413191246se 发表于 2017-12-21 23:22
楼主，目录我不太懂！但是如果你想在《文档结构图》中观察各《章》内容的话，请试用一下我最近几天新编的VB ...

这个就像在小说网站上看小说，喜欢看那章，就点到那章。你这个代码太复杂了。怎么搞。

wdpfox

学习了，多谢老师，论坛因你再添光彩！