如何调用文本内容？

Question

我把帮助文件写在word文档中，不知道如何在程序中打开要用什么命令
代码如下：
Private Sub cmdHelp_Click()
'中间怎么写啊？
End Sub
我按下help按钮就出来文档，比如说是保存在c:\help.txt
就把文档打开

Answer 1

最好不要用word文档
我一般用*.chm
Private Sub Form_Load()
   App.HelpFile = App.Path & "\Help.chm"
End SubPrivate Sub cmdHelp_Click()
    SendKeys "{F1}"
End Sub

Answer 2

我去试试看，不过有关shell的用法大家能不能说点？

Answer 3

Shell函数的格式如下：
  Shell(pathname [,windowstyle])
pathname指明要运行的程序名及参数，在你的情况下可以是 "Notepad.exe "&"c:\help.txt"
windowstyle可为：
       VbHide             0 窗口被隐藏，且焦点会移到隐式窗口。 
       VbNormalFocus      1 窗口具有焦点，且会还原到它原来的大小和位置。 
       VbMinimizedFocus   2 窗口会以一个具有焦点的图标来显示。 
       VbMaximizedFocus   3 窗口是一个具有焦点的最大化窗口。 
       VbNormalNoFocus    4 窗口会被还原到最近使用的大小和位置，而当前活动的窗口仍然保持活动。 
       VbMinimizedNoFocus 6 窗口会以一个图标来显示。而当前活动的的窗口仍然保持活动。 如果不想别人修改，给你的帮助文档加上"只读"属性不就行了吗?

Answer 4

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 Const SW_SHOWNORMAL = 1
Private Sub Form_Load()
helppath=app.path+"\"
ShellExecute Me.hwnd, vbNullString, "help.txt", vbNullString, "helppath", SW_SHOWNORMAL
End Sub
基本上和猫猫的差不多了

Answer 5

太谢谢楼主和各位了！
我正在找这个呢！！！
thx！！！！！