1、打开VB6，选择左侧工具箱中的CommandButton按钮。
2、工程中插入一个按钮，取名为判断。
3、接着，选择工具箱中的TextBox按钮，如下图所示。
4、在设计区域，绘制一个文本框，将Text的值设置为空。
5、双击判断按钮，打开代码编辑窗口。
6、首先，输入代码当程序出错时，继续执行代码操作。
7、接着，清空Err中的值。
8、用If语句判断，D盘中的Word文档file.docx是否存在，如果存在则执行If的语句体。
9、如果Word文件存在，试着修改它的名字。
10、用If语句判断Err的值是否为0，即判断Word文档的名字是否能够修改。
11、如果Word文档的名字不能修改，则在文本框中输出提示文件file.docx已打开。
12、如果Word文档的名字能够修改，则在文本框中输出提示文件file.docx已关闭。
13、最后，将修改的文件名改回原文件名。
14、运行程序，当打开Word文档时，按下判断按钮，在文本框中显示文件file.docx已打开；当关闭Word文档时，按下判断按钮，在文本框中显示文件file.docx已关闭主。
