请教，如何在目录的页码中自动显示章节号？

billdon · 发表于 2006-11-10 15:20

还有没有更好的办法．继续顶

守柔 · 发表于 2006-11-16 06:37

短信已收到，请上传一个附件中您期待的目录的结果，我好比对一下，谢谢。

billdon · 发表于 2006-11-16 15:14

希望得到的结果见附件

ubxbBbV7.rar (8.86 KB, 下载次数: 14)

[此贴子已经被作者于2006-11-16 15:37:32编辑过]

守柔 · 发表于 2006-11-18 05:54

QUOTE:

以下是引用billdon在2006-11-16 15:14:46的发言：

希望得到的结果见附件

请您认真检查一下，附件中有您希望得到的结果吗？

billdon · 发表于 2006-11-19 12:09

实在对不起，发错了，再发一次，请版主原谅！

OyNyNtxC.rar (8.15 KB, 下载次数: 21)

[此贴子已经被作者于2006-11-19 12:10:36编辑过]

守柔 · 发表于 2006-11-19 19:40

楼主啊楼主，您让我说什么好呢？

您实际是否是取得当前标题所在的页面的页眉中的“节号”吗？

TOC.5.1

TOC.5.2

5.1、5.2即是需要提取于“目录”中的吗？

守柔 · 发表于 2006-11-20 06:10

不等了，使用VBA吧，操作方法：

先更新文档中的目录域，再运行Example过程，或者单击格式工具栏中的第一个命令“取得章节号”即可，请在宏安全性为低的情况下运行，若非，请在工具/宏/安全性设置为低后重启WORD再打开附件文档，运行该宏。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-11-20 6:08:46
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0100^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub Example()
'运行本代码前请新更新目录域
    Dim myTableContent As TableOfContents, oField As Field
    Dim strField As String, myStyle As String, myRange As Range
    Dim N As Integer, ColId As Byte, myPage As String
    On Error GoTo ErrHandle
    With ActiveDocument
        If .TablesOfContents.Count < 1 Then Exit Sub
        Application.ScreenUpdating = False    '关闭屏幕更新
        myStyle = "标题 1"    '此处设置需要加入作者的段落样式,通常应为第一标题级别
        Set myTableContent = .TablesOfContents(1)    '定义为活动文档的第一个目录
      For Each oField In myTableContent.Range.Fields    '在目录所有区域中域中循环
            strField = VBA.UCase(oField.Code.Text)    '取得域代码的大写(统一,以便后续处理)
            If VBA.InStr(strField, " HYPERLINK \L") > 0 Then    '如果含有指定字符
                strField = VBA.Replace(strField, " HYPERLINK \L ", "")    '删除该指定文本
                strField = VBA.Replace(strField, " ", "")    '删除空格
                strField = VBA.Replace(strField, """", "")    '删除半角引号

[此贴子已经被作者于2006-11-20 6:14:25编辑过]

守柔 · 发表于 2006-11-20 06:11

                  If .Bookmarks(strField).Range.Style = myStyle Then    '如果对应书签(内置)所在区域的样式名称与指定样式名称一致
                    Set myRange = .Bookmarks(strField).Range
                    myRange.SetRange myRange.Start, myRange.Start
                    N = myRange.Information(wdActiveEndPageNumber)
                    If N Mod 2 = 0 Then ColId = 1 Else ColId = 3
                    myPage = .ActiveWindow.ActivePane.Pages(N).Rectangles(1).Range.Tables(1).Cell(1, ColId).Range.Text
                    myPage = VBA.Mid(myPage, 1, Len(myPage) - 2)    '取得章节号
                    Set myRange = oField.Result.Paragraphs(1).Range    '取得一个Range对象
                    With myRange
                        .SetRange .End - 1, .End - 1    '段落标记结束前一个字符位置
                        .InsertAfter myPage    '章节号
                        .Font.Color = wdColorBlack    '黑色
                        .Font.Underline = False    '取消下划线(默认为继续的超链接格式,此次设置为常规文本格式)
                    End With
                    oField.Next.Delete    '删除原来的页码引用域
                End If
            End If
        Next
    End With
    Application.ScreenUpdating = True    '恢复屏幕更新
    Exit Sub
ErrHandle:
    MsgBox "错误:" & Err.Number & vbLf & "可能的原因:" & Err.Description, vbExclamation
End Sub
'----------------------
相关链接：

http://club.excelhome.net/dispbbs.asp?boardid=23&replyid=553044&id=193378&page=1&skin=0&Star=1

TGt8PyGW.rar (14.06 KB, 下载次数: 19)

[此贴子已经被作者于2006-11-20 6:32:31编辑过]

billdon · 发表于 2006-11-20 08:20

多谢版主！高手就是高手！

billdon · 发表于 2006-11-20 08:58

再问一个很菜鸟的问题，如果要设置多个mystyle怎么办？

另外在某些目录中“.........”与“5.1”之间出现空格怎么办？有的目录会出现，有的不会，影响美观。

例如：“气源................ 5.1”

谢谢！

		自动登录	找回密码
密码			免费注册