在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文本文件，且文件名自动生成，非常方便。如对此宏加以修改，还可将文档同时保存为其他不同的格式。 |
|
| |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 ) 