VB中直接打開Word文檔

1、使用API函數(shù) Shellexecute 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 參數(shù) 類型及說明 hwnd Long，指定一個窗口的句柄，有時候，windows程序有必要在創(chuàng)建

2、自己的主窗口前顯示一個消息框 lpOperation String，指定字串“open”來打開lpFlie文檔，或指定“Print”來打印它 lpFile String，想用關(guān)聯(lián)程序打印或打開一個程序名或文件名 lpParameters String，如lpszFlie是可執(zhí)行文件，則這個字串包含傳遞給執(zhí)行程序的參數(shù) lpDirectory String，想使用的完整路徑 nShowCmd Long，定義了如何顯示啟動程序的常數(shù)值。參考ShowWindow函數(shù)的nCmdShow參數(shù) 把hwnd=me.hwnd,lpoperation=open,lpfile=你想打開的文件，lpparamete

3、rs = vbnullstring,就可以了。 定義變量 Option Explicit Dim oWord As Object Dim sOpenfilename As String Private Sub macrodemo_Click() 創(chuàng)建oWord對象 Set oWord = CreateObject(Word.Application) oWord.Visible = True 讓W(xué)ORD 可見 調(diào)用宏 Macro End Sub 改編的宏代碼 Sub Macro() On Error GoTo errorControl With oWord 宏在 00-9-14 由錄制 .Doc

4、uments.Add Template:= _ C:Program FilesMicrosoft OfficeTemplatesNormal.dot, NewTemplate:= _ False .Selection.TypeText Text:=Word文檔插入MP3文件一法 .Selection.TypeParagraph .Selection.TypeText Text:=在Word文檔中插入聲音文件。 _ & 打開Word文檔 .Selection.TypeParagraph 打開文件 With cdlgFile 過濾，只使WORD 文檔（*.doc）能顯示出來 .Filter = m

5、p3文件|*.mp3;|*.wav .FilterIndex = 0 .ShowOpen End With sOpenfilename = cdlgFile.FileName .ActiveDocument.Shapes.AddOLEObject Anchor:=.Selection.Range, ClassType:= _ Package, FileName:=sOpenfilename, LinkToFile:=False, _ DisplayAsIcon:=False End With Exit Sub errorControl: End SubOptionExplicitPrivate

6、DeclareFunctionShellExecuteLibshell32.dllAliasShellExecuteA(ByValhwndAsLong,_ByVallpOperationAsString,ByVallpFileAsString,ByVallpParametersAsString,_ByVallpDirectoryAsString,ByValnShowCmdAsLong)AsLongPrivateSubCommand1_Click()ShellExecuteMe.hwnd,open,c:a.doc,vbNullString,vbNullString,3EndSubPrivateS

7、ubCommand2_Click()DimWordAppAsWord.ApplicationSetWordApp=NewWord.ApplicationWordApp.Documents.Add(c:a.doc)WordApp.Visible=TrueSetWordApp=NothingEndSub首先你要在VB的“工程”-“引用”中引用“Microsoft Word 9.0 Object Library”（我用的是office2000)Private Sub Command1_Click()打開指定的Word文件Dim wdApp As Word.ApplicationDim aDoc As

8、 DocumentSet wdApp = New Word.ApplicationSet aDoc = wdApp.Documents.Open(FileName:=你要打開的Word文件路徑及文件名)wdApp.Visible = True設(shè)置Word對象可見End Sub不過你要關(guān)閉word文件時要釋放對象aDoc.Close關(guān)閉文件wdApp.Quit退出Word程序Set aDoc = Nothing釋放對象Set wdApp = Nothing你可以再放一個按鈕，將上面代碼放進(jìn)去，用這個按鈕來關(guān)閉Word并釋放對象。如果你直接在Word程序中關(guān)閉文件的話，就將word對象定義在一個類模塊中Public WithEvents wdApp