| 在Word 2000中同时多格式保存文档功能的实现 在我们的日常使用Word 2000时，经常遇到要将文档同时保存为Word格式和TXT文本文件格式的情况，一般情况下用户都是采用先将文档保存为Word格式，然后使用“另存为”命令将文档保存为TXT文本文件格式，虽然用此方法可以解决问题，但操作步骤较多，比较麻烦。能不能有一种方法，只需选择一次，就可将文档同时以Word格式和TXT文本文件格式进行保存呢？回答是肯定的，“当然可以”。下面就向你介绍如何利用宏来实现这一功能： 1、打开Word 2000，新建一空白文档； 2、执行“工具——宏——宏”命令，打开“宏”窗口，在“宏名”输入框中输入自定义宏的名称“双格式保存文件”，然后点击“创建”按钮； 3、进入宏编辑程序，在命令行“ Sub 双格式保存文件()”的下一行依次输入下列命令： 1 With ActiveDocument: On Error GoTo 7 2 wjm = .BuiltInDocumentProperties(wdPropertyTitle) 3 If wjm = “”Then wjm = .Range(, Len(ActiveDocument.Sentences(1)) - 2) 4 .SaveAs wjm, FileFormat:=wdFormatDocument 5 .SaveAs wjm, FileFormat:=wdFormatText 6 End With: Exit Sub 7 MsgBox “文件名”& wjm & “无效,无法保存!” 宏命令说明： 1 引用当前使用的文件，当发生错误时(文件名无效)跳到第 7 行； 2 设置变量 “wjm”(文件名) = 文件属性的标题； 3 若当前文件沒有标题则设 wjm = 文件中的第一个句子； 4 将文件以 wjm 作为存盘文件名称, 保存为Word文件(.doc)格式； 5 将文件以 wjm 作为存盘文件名称, 保存为TXT文本文件(.txt)格式； 6 结束对当前文件的引用； 7 出错时的显示信息。 为了方便使用，我们将此“双格式保存文件”宏做成按钮添加到常用工具栏中： 执行“工具——自定义”命令，打开“自定义”窗口，点击“命令”标签卡，在“类别”窗口中选择“宏”在右边的“命令”窗口中找到刚才创建的“双格式保存文件”宏，选择它，按住鼠标左键不放将它拖至常用工具栏中(当然你还可以修改它的名称和按钮图标格式)。 以后需要时，只要点击此按钮即可将文档同时保存为Word格式和TXT文本文件，且文件名自动生成，非常方便。如对此宏加以修改，还可将文档同时保存为其他不同的格式。 | |
