VB判断Word文档是否已打开

可用VB检测Word文档是否处于打开状态，本文介绍具体实现方法与操作技巧。

1、 启动VB6开发环境，在左侧工具箱中选取CommandButton控件。

2、 在工程中添加一个名为判断的按钮。

3、 接着，在工具箱中点击TextBox按钮，所示。

4、 在设计区域添加一个文本框，并将其文本内容设为空。

5、 双击判断按钮，即可打开代码编辑窗口。

6、 程序出错时，仍继续执行后续代码。

7、 随后，将错误信息清空。

8、 使用If语句检测D盘是否存在file.docx文件，若该Word文档存在，则执行If语句块中的代码。

9、 若Word文件存在，则尝试重命名该文件。

10、 使用If语句检查Err值是否为0，以确定能否成功修改Word文档的名称。

11、 若Word文档名称不可更改，则在文本框中显示提示：文件file.docx已打开。

12、 若可修改Word文档名称，则在文本框中显示文件file.docx已关闭。

13、 将修改后的文件名恢复为原始名称。

14、 运行程序后，打开Word文档file.docx，点击判断按钮，文本框将显示文件file.docx已打开；若此时关闭该文档，再次点击判断按钮，文本框则显示文件file.docx已关闭。