WORD目录如何生成标题---作者,页码　格式

如何下载电影 · 发表于 2006-10-13 09:58

通常情况下WORD生成的目录是

标题-----------------------------页码　格式，

如果我需要

标题-----------------------------作者,页码　格式，

怎么办？

ai4ni · 发表于 2006-10-13 10:10

如果可以将作者放在前面,即标题里,你可以把作者定义到标题内容里面,提取出来.作者放在页码前面,我就

没有办法了,只有期待高手了

如何下载电影 · 发表于 2006-10-13 10:14

如何定义，请说清楚一些，谢谢

161386 · 发表于 2006-10-13 12:57

每个软件功能都是有限的，但你可以在有限的功能里结合使用呀，你讲的那种排列你可以先排一次，把不要的先隐含了（就是不让他显示，你这一定懂的），再设定一个让他显示的，不就行了吗？

如何下载电影 · 发表于 2006-10-13 17:39

请四楼的朋友讲讲如何显示及如何不显示?

sylun · 发表于 2006-10-13 22:31

用插入目录项的办法可以勉强解决，只是在生成的目录中，作者列于前导符之前，而不是在其后。

如何下载电影 · 发表于 2006-10-13 22:52

标题　作者-------------页码

格式比较容易，但我只要求这种格式的，谢谢楼上各位！

守柔 · 发表于 2006-10-15 06:59

用VBA吧！

先手动更新目录，再运行以下代码：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By SHOUROU@ExcelHome 2006-10-15 6:52:18
'仅测试于System: Windows NT Word: 11.0 Language: 2052
'№ 0079^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit

Sub Example()
    Dim myTableContent As TableOfContents, oField As Field
    Dim strField As String, AuthorStyle As String, Authors As Variant
    Dim N As Integer
    On Error GoTo ErrHandle
    With ActiveDocument
        If .TablesOfContents.Count < 1 Then Exit Sub
        Application.ScreenUpdating = False    '关闭屏幕更新
        AuthorStyle = "标题 1"    '此处设置需要加入作者的段落样式,通常应为第一标题级别
        Authors = Array("赵", "钱", "孙", "李", "周", "吴")    '此处键入所有作者名,应与第一标题级别数量吻合
        Set myTableContent = .TablesOfContents(1)    '定义为活动文档的第一个目录

守柔 · 发表于 2006-10-15 07:00

        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, """", "")    '删除半角引号
                If .Bookmarks(strField).Range.Style = AuthorStyle Then    '如果对应书签(内置)所在区域的样式名称与指定样式名称一致
                    oField.Next.Result.InsertBefore Authors(N) & ","    '在页码引用域前插入相应作者名
                    N = N + 1    '累加
                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=199851&id=47023&page=1&skin=0&Star=2

sylun · 发表于 2006-10-15 16:10

试用常规方法做了个目录，勉强符合楼主规定的作者在前导符后的要求。只是制作不够简便。

vhFUPyIH.rar (15.2 KB, 下载次数: 161)

[此贴子已经被作者于2006-10-15 16:19:00编辑过]

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

[求助] WORD目录如何生成 标题---作者,页码 格式

[求助] WORD目录如何生成标题---作者,页码　格式