张志晨VB实例教程之打开word方法种种

张志晨VB实例教程之打开word方法种种
2011年08月31日
　　张志晨VB实例教程之打开word方法种种
　　方法一：
　　Dim mWordapp As Word.Application   'word 应用程序
　　Dim mobjDoc As Word.Document       'word 文档
　　Dim fullFileName As String         '文件路径
　　Private Sub Command1_Click()
　　CommonDialog1.Filter = "word文件|*.docx"
　　CommonDialog1.ShowOpen
　　fullFileName = CommonDialog1.FileName
　　　　Set mWordapp = CreateObject("Word.Application")
　　　　Set mobjDoc = mWordapp.Documents.Add(fullFileName)
　　　　mWordapp.Visible = True
　　End Sub
　　................................................
　　方法二：
　　Dim fullFileName As String         '文件路径
　　Private Sub Command1_Click()
　　CommonDialog1.Filter = "word文件|*.docx"
　　CommonDialog1.ShowOpen
　　fullFileName = CommonDialog1.FileName       
　　　Shell "cmd /c " & fullFileName, vbHide'使用shell.exe与cdm.exe
　　End Sub
　　..................................................
　　方法三：
　　Dim fullFileName As String         '文件路径
　　Private Sub Command1_Click()
　　CommonDialog1.Filter = "word文件|*.docx"
　　CommonDialog1.ShowOpen
　　fullFileName = CommonDialog1.FileName
　　Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & fullFileName  , vbNormalFocus
　　End Sub
　　........................................
　　方法四：
　　Private Declare Function GetDesktopWindow Lib "user32" () As LongPrivate 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
　　'函数：OpenFile
　　'功能：打开文件或者打开网站或者打开邮件
　　'描述：asPath――文件位置或者网站地址或者对方邮件地址;Line――命令行
　　'备注：如果是邮件地址，请在地址前加mailto: 例如：mailto:[e-mail]
　　'返回值如果是2代表文件(夹)不存在，如果是33代表打开文件夹成功,42代表打开文件或网络地址成功,31代表没有文件与之关联
　　'****************************************************************************
　　Public Function OpenFile(asPath As String, Optional Line As String = vbNullString, Optional ShowMode As Long = 1) As Long
　　Dim Scr_hDC As Long
　　Scr_hDC = GetDesktopWindow()
　　OpenFile = ShellExecute(Scr_hDC, "Open", asPath, Line, GetFileOfFolder(asPath), ShowMode)
　　End Function
　　Private Function GetFileOfFolder(FilePath As String) As String
　　Dim i As Integer
　　If FilePath = "" Then Exit Function
　　For i = Len(FilePath) To 1 Step -1
　　If Mid$(FilePath, i, 1) = "\" Then
　　GetFileOfFolder = Left$(FilePath, i - 1)
　　Exit For
　　End If
　　Next
　　End Function
　　上面的是函数的定义，下面的是第四种方法的使用(可以打开任何类型的文件、文件夹)：
　　Private Sub Command1_Click()
　　Dim fn As String
　　CommonDialog1.Filter = "word文件(*.docx)|*.docx|所有文件(*.*)|*.*"
　　CommonDialog1.ShowOpen
　　fn = CommonDialog1.FileName
　　OpenFile (fn)'只需要给函数一个file　path就可以了！！！
　　End Sub
　　...............张志晨奉献............