Question

用VB打开word文档出问题了，求助！

我编的小程序是：
Private Sub Command1_Click()
Dim objApp As Object
Set objApp = CreateObject("Word.Application")
objApp.Documents.open "c:\Documents and Settings\Administrator\桌面\111.doc"
objApp.Visible = True
End Sub
运行时出来一个对话框说111.doc已被“微软用户”锁定，无法编辑。选择对话框下面三个选项之一后可以打开这个文档，但是可不可以去掉这个对话框？
可不可以直接打开至word文档的指定页？

Answer 1

据我的经验，调用API函数来打开Word文档的效果较好。它的功效是依据所需打开的文件格式，自动调用相应软件来执行。适用范围也广，含各种文档、图片、音频和视频文件。
声明：
Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _
String, ByVal lpFile As String, ByVal lpParameters As _
String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
添加语句：
ShellExecute 0&, vbNullString, App.Path & "\电脑简谱助手V7指南.doc", _
vbNullString, vbNullString, vbNormalFocus
其中，第三项参数就是文件路径。例中，Word文件在软件的安装文件夹，路径简单，所以可靠。可以任意指定文件路径，尽可能用英文字母为妥。
谢谢。

追问

高手，其中可以插入指定页码的命令吗？谢谢~

追答

切勿如此称呼，实不敢当也。
此一API函数仅能打开某些格式的文件，调用参数无关页码。
谢谢。

Answer 2

你上次结束的时候没运行objApp.quit
你按下CTRL+ALT+DELETE关闭这些进程就好了

Answer 3

中，保存时候出现了上面的提示语。 在资源管理器中找到Excel源文件，右键Shell "cmd /c c:\\1.doc", vbHide '打开C盘1.doc文档 ,dygukc

Answer 4

高手