[快速整理资料格式的方法20091225wanght.docVIP

快速整理资料格式的方法 作者：王华庭 【问题描述】从网络和PDF文档等来源搜集到的资料，在格式上往往存在以下问题： 1.字体太小或太大，或字符间距太宽或太窄； 2.充斥大量空格，但又想保留英文的空格； 3.行距过大，空行过多； 4.完整的段落被从中间砍断（主要是从PDF、CAJViewer等来源复制过来的内容）。 如何解决以上问题，将资料快速格式化？ 【解决办法】使用word，利用其强大的宏功能自动完成格式化工作。见【宏代码】部分。 【操作指引】在word中录制一个空白宏，编辑该宏，将【宏代码】后面所有的内容复制到宏编辑器窗口，关闭窗口。可为该宏指定一个快捷键或将其添加到常用工具栏，需要格式化时，按快捷键或工具栏的图标即可。一般2-3秒即可完成格式化，长文章耗时可能稍长。 【已知问题】本方法只是对资料进行初步格式化；更进一步的精细格式化，仍需手工完成。另外，运行本文所提供的宏，可能导致文章出现极个别“@”符号，最保险的办法是运行宏之后，再手工替换一下“@”。第三，限于水平，宏代码可能不够简洁，如有兴趣，可自行精简或调整。 【说明】本文的方法参考了网络上一些文章，向原作者致谢。本文主要是将这些零散的方法组合成了一个宏。所有的宏代码都是在录制下来的代码基础上精简而来。如果对此文内容有任何疑问，请与王华庭联系。 【宏代码】 Sub 格式化网站文章() Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ^p .Replacement.Text = ^p .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = [一-﨩] .Replacement.Text = @^ .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = @ .Replacement.Text = .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ^p .Replacement.Text = @@@ .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = 。@@@ .Replacement.Text = 。^p .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ？@@@ .Replacement.Text = ？^p .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdReplaceAll With Selection.Find .Text = ！@@@ .Replacement.Text = ！^p .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Replace:=wdR