7,762
社区成员
发帖
与我相关
我的任务
分享打开Word文件
怎么打开一个现有的test1.doc，我要的是内容显示在word中，就象双击 test1.doc 一样。
我用open 或FileSystemObject.OpenTextfile 好象不行
请用代码告之
我用open 或FileSystemObject.OpenTextfile 好象不行
请用代码告之
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-30
- 打赏
- 举报
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
Sub opendoc(ByVal dirpath As String)
ShellExecute hwnd, "open", dirpath, vbNullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
Call opendoc("c:\test1.doc")
End Sub
Sub opendoc(ByVal dirpath As String)
ShellExecute hwnd, "open", dirpath, vbNullString, vbNullString, 5
End Sub
Private Sub Command1_Click()
Call opendoc("c:\test1.doc")
End Sub
