帮忙编辑个简单程序，用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:53076924@qq.com
　　'返回值如果是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
　　...............张志晨奉献............

呵呵那个文件就像你所说的虚拟文件，它的作用是你编辑该文件时的一个镜像。就是电脑将你的文件多复制了一份，编辑的是虚拟文件，就像是内存操作一样,文件,

Private Sub Command7_Click()
FileName = "d:\b.doc"
'调用Word文档。
OLE1.SourceDoc = FileName
OLE1.Action = 1
OLE1.Action = 7

End Sub