急，在线等待-怎样在vb里打开一个word文件

[knowledgemark]

如题

[ufcr]

哈，高呀
如果还有相关操作的话用这个就好一点点
Set wrd = CreateObject("Word.Application")

wrd.Open strDocPath

其他操作和在Word的操作时一样的

[knowledgemark]

打开写字板文件，不用 word的话该怎样啊

[knowledgemark]

谢谢，给分

[lihonggen0]

ShellExecute Me.hWnd, "open", "C:\aaa.txt", vbNullString, vbNullString, SW_SHOW

[lihonggen0]

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




Private Sub Form_Load()
ShellExecute Me.hWnd, "open", "C:\User.doc", vbNullString, vbNullString, SW_SHOW

End Sub