[求助]替换书名号内（不含书名号）字体的两种方法

雨雪霏霏

原文为宋体字： 　　在目录学著作方面，斑固在刘歆《七略》的基础上撰成《汉书•艺文志》，其中的《诗赋略论》对诗和赋的发展有初步的描述。此后，一些目录学著作，如《隋书•经籍志》、《旧唐书•经籍志》、《新唐书•艺文志》大都继承《汉书•艺文志》的传统，在著录书目的同时考辨源流。（清）纪昀《四库全书总目提要》可算是这类书中的集大成者。在诗文评方面，（梁）刘勰《文心雕龙》中《明诗》以下20篇论及许多文体的形成过程，《时序》等篇也有关于文学发展的精彩论述。（梁）锺嵘的《诗品序》，对文学的发展作了相当详细的论述。此后，在一些诗话、词话，以及诗纪事、词纪事之类的书中，也有关于诗词发展的论述aa如（宋）严羽《沧浪诗话》、（宋）计有功《唐诗纪事》、（明）胡应麟《诗薮》、（清）叶燮《原诗》、（清）厉鹗《宋诗纪事》、（清）张宗橚《词林纪事》

　　要求：将书名号内（不含书名号）的字设置成黑体、加粗。 　　小弟碰到的两个问题： 　　1、虽然可以在“替换”里分两步完成（即在勾选“使用通配符”的情况下，第一步查找“《*》”，把书名号与书名一起替换成黑体、加粗，第二步查找“[《》]”，把书名号替换回宋体），但感觉还是较麻烦，是否有一步就可以替换完成的方法？——小弟穷搜站内相关帖子，奈何资质愚钝，还是琢磨不出来这里头的便捷法门，指大家指教。 　　2、在尝试了无法一步替换后，小弟把以上两步替换的过程录制成宏，但运行宏之后，文章里的书名号与书名一起消失了。原因应该在于录制成的宏“.Replacement.Text = ""”语句里头无法保留“替换为”里的信息。虽然看了不少相关帖子，可只是懂得录制宏的小弟还无法编写出正确的编码。虽是老问题了，这里还是再次请大家帮小弟写出完整的编码。不胜感激！

konggs

雪雨兄：如果常规操作我来做也是两步

1.我也是两次，不是目前好像只有在常规中好像只有两次的方法。

查找《*》,突出显示所有在该范围找到的项目，找到包括书名的内容。这时，点击一下标题栏，这时。“显示所有在该范围找到的项目”出现“当前选择范围”，再替换“[!《》]”，这样就找到你要的东东了。再关闭查找替换，再设置黑体、加粗。

konggs

VBA法：

Sub 找()
Dim arange As Range
Application.ScreenUpdating = False
Selection.HomeKey unit:=wdStory
With Selection.Find
Do
.ClearFormatting
.Text = "《*》"
.MatchWildcards = True
.Execute
Set arange = ActiveDocument.Range(Selection.Range.Start + 1, Selection.Range.End - 1)
With arange
.Font.Bold = True
.Font.Name = "黑体"
End With
Loop Until .Found = False
End With
Application.ScreenUpdating = True
End Sub

雨雪霏霏

感谢Konggs兄的出手，第一种方法又让小弟学会了新鲜的一招！Konggs兄果然是“查找和替换”领域里的大哥大！ 　　不怕孔兄笑话，小弟的感觉中，应该还是存在着一步替换到位的表达式，小弟暂存此疑吧。 　　应用了孔兄的宏后，果然十分爽快，一下完成了替换操作。谢谢孔兄一大早就出力帮了小弟这个大忙！ 　　 　　只是又要麻烦大家的是，小弟的文档中已经有一部分内容编辑进了文本框、流程图、组织结构图（大部分是“嵌入型”，少部分是“紧密型”）里了，小弟目前还没有找到十分简便的方法对全文书名号内字体进行替换，请大家为小弟提供一次性替换全篇文档内书名号内字体的操作方案。 　　附件有8页内容，其中附有孔兄与守柔老大对于文本框替换操作的经典方法，请大家参考之后帮帮小弟！感激不尽！ h9QSj8by.rar (31.78 KB, 下载次数: 32)

2006-5-21 15:04 上传

点击文件名下载附件
[求助]替换书名号内（不含书名号）字体的两种方法

如何下载电影

真不错，又学了一招