[求助]目录中如何采用两种字体？

风之助

在Word中利用其自动生成的目录可以省掉输入和检查改动后检查页码的工作，但其中有一个问题向各位高手请教：

由于有格式要求，目录中的章与节采用不同的字体，而我想把页码的字体设成一样大小的，但j 目录中的章节标题与页码好像是一体的，不能单独设字体与大小。

请问能不能解决这个问题：将自动生成的目录中的标题与页码设成不同大小与格式的字体？

cxffxc

采取自动提取目录的方法，只要将相应的标题设置成不同的字体即可。

风之助

我是说在同一行目录中的标题的字体与页码的字体设成不同的大小！

在Word自动生成的目录是标题与页码好像是一体的，标题与页码不能单独设！

再次请教！

luo_3085

我也想知道，帮忙顶！！！

办公之星

　 　　可以直接改掉其中任一页码，双击激活格式刷刷下去。有没有更好的办法，不得而知。 hGPHmZzc.rar (3.07 KB, 下载次数: 19)

2004-8-5 17:04 上传

点击文件名下载附件
[求助]目录中如何采用两种字体？

七叶一枝梅

“样式”中对标题进行“自定义”，然后对页码进行“自定义”。

[此贴子已经被作者于2004-8-5 20:25:48编辑过]

youyou300

還是不明白。

风之助

解决了，在确定目录及页码不再改动以后，用以下VBA代码（如需改动，重新插入目录）：

'更改论文目录格式 Public Sub ChangCatalogueFormat() Dim aField As Field

Application.ScreenUpdating = False

'循环查找目录域（Type值为wdFieldTOC） For Each aField In ActiveDocument.Sections(1).Range.Fields If aField.Type = wdFieldTOC Then Exit For End If Next aField.Select '选择该域 '去除目录链接，文档中用快捷键Ctrl+Shift+F9 Selection.Fields.Unlink '去除字符的下划线，颜色设为自动 With Selection.Font .Underline = wdUnderlineNone .UnderlineColor = wdColorAutomatic .Color = wdColorAutomatic End With '替换制表符为"Times New Roman"五号 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^t" .Replacement.Text = "" With .Replacement.Font '.NameFarEast = "宋体" .NameAscii = "Times New Roman" .NameOther = "Times New Roman" .Name = "Times New Roman" .Size = 10.5 .Bold = False '不加粗 .Italic = False '不是斜体 .Underline = wdUnderlineNone '没有下划线 .UnderlineColor = wdColorAutomatic '下划线颜色 .StrikeThrough = False '无着重号 .DoubleStrikeThrough = False ' .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = wdColorAutomatic .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Animation = wdAnimationNone .EmphasisMark = wdEmphasisMarkNone End With .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll '替换页码为五号宋体 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find With .Font .Name = "宋体" .Size = 14 End With .Text = "^#" .Replacement.Text = "" With .Replacement.Font .Name = "宋体" .Size = 10.5 .Bold = False End With .Forward = True .Wrap = wdFindStop .Format = True .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False .Execute Replace:=wdReplaceAll End With

Application.ScreenUpdating = True End Sub

konggs

如果是9楼的方法，用得着VBA吗？

“在确定目录及页码不再改动以后，用以下VBA代码（如需改动，重新插入目录）”

不能选中目录部分，把目录域变为普通文字，在定义样式？

大家想知道的是：不要重新插入目录的前提下的方法。