word文稿中不同人物的台词怎样设置不同字体

Question

word文稿中不同人物的台词怎样设置不同字体
例如成文：
-=台词=-
房东：（宋体）。。。。。。
房客：（黑体）。。。。。。。。。。
房东：（宋体）。。。。。。
房客：（黑体）。。。。。。。。。。
。。。。。。

要所有的人物各自用不同的字体
谢谢！

角色可能有几个，十几个
台词可能有上百句
一句一句改？！

我是说用什么命令或工具，批量修改。

Answer 1

最简单的办法是替换，步骤如下（必须严格按照步骤）：
1、Ctrl+H打开“替换”窗口；
2、查找内容：房东：*^13 （将“房东”替换成不同的角色名字）
3、替换为：^&
4、单击“使用通配符”（可能需要单击“更多”展开完整替换窗口）
5、单击下面的“格式-字体”，设置需要的字体，确定；
6、单击“全部替换”

检查该角色的台词字体是否已正确设置。

不过，这个方法有两个缺陷：
1、“：”前面的角色名字的字体也会被替换；
2、必须针对每个角色都做一次这些步骤。

不知这两个缺陷楼主是否能够接受？如果实在不能接受的话，也可以用VBA代码来实现，估计是可以满足楼主需要的，不过也会麻烦一些。

_____
补充：
用VBA的方法也做好了，楼主可以试试看。步骤为：
1、在Word中键入Alt+F11打开VBA编辑器，选择菜单“插入-模块”；
2、在代码编辑区中粘贴如下内容：
Option Explicit

Sub BatchChangeFonts()

Dim oFontNameSets, oCharacterName, oKeys

Set oFontNameSets = CreateObject("Scripting.Dictionary")

' 在这里根据需要替换/添加角色名字和字体的对应关系
oFontNameSets.Add "房东", "黑体"
oFontNameSets.Add "房客甲", "方正舒体"
oFontNameSets.Add "房客乙", "华文彩云"
oFontNameSets.Add "房客丙", "隶书"

Selection.Find.ClearFormatting

oKeys = oFontNameSets.Keys

For Each oCharacterName In oKeys
Selection.StartOf wdStory
While Selection.Find.Execute(FindText:=oCharacterName & "：", Forward:=True, Wrap:=Word.wdFindStop)
Selection.Collapse wdCollapseEnd
Selection.EndOf wdParagraph, wdExtend
Selection.Font.Name = oFontNameSets(oCharacterName)
Selection.Collapse wdCollapseEnd
Wend
Next

MsgBox "完成！"

End Sub
3、根据需要在上面代码中替换/新增角色名和字体的对应关系；
4、键入F5运行，看到“完成！”结束；
5、切换回Word文档窗口，检查替换效果是否满足需要。