格式化以前是ASCII文件的最大问题之一就是对其进行修改，因此在段落末尾只有硬性返回。大多数ASCII文件在文件每一行的末尾都有硬返回，在每个段落的末尾有两个硬返回。如果您具有这样格式的ASCII文件（例如从Internet下载的文件），则以下宏将非常有用。它格式化整个文件，因此在段落的末尾只有硬性返回。

Sub ConvertASCII()

Fmt "^p^p", "{|}"

Fmt "^p", " {@}"

Fmt " {@}", " "

Fmt "{@}", " "

Fmt "{|}", "^p"

End Sub
Sub Fmt(sFromWord, sToWord)

Set myRange = ActiveDocument.Content     myRange.Find.ClearFormatting     myRange.Find.Execute FindText:=sFromWord, _       ReplaceWith:=sToWord, MatchCase:=0, _       Replace:=wdReplaceAll End Sub

您应该运行ConvertASCII宏。它多次调用Fmt宏，以替换返回字符的各种组合以达到所需的结果。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（10810）适用于Microsoft Word 2007和2010。您可以在此处找到适用于Word的较早菜单界面的本技巧的版本：

自动格式化ASCII文件。