作者:乔山办公网日期:
返回目录:office365
新建一个vb。工程知、引用、microsoft word 11.0 object library
如果是2007版的word就是12.0,引用道这个word就行哪个版都一样
然后拖拽一个command1
敲入如下代码
Private Sub Command1_Click()
'--------------以下是生成回word文档。
Dim Wapp2 As New Word.Application
Dim Wdoc2 As New Word.Document
Dim Opara2 As Word.Paragraph
Set Wapp2 = CreateObject("word.application")
Wapp2.Visible = True
'Set Wdoc2 = Wapp.Documents.Open("d:\试卷-模板2.doc") ’这答是打开现有的word
Set Wdoc2 = Wapp2.Documents.Add ‘这是新建
'Set Opara2 = Wdoc2.Content.Paragraphs.Add
End Sub
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 Command1_Click()
Open "c:\新建文档度.doc" For Output As #1 '打开一内WORD文档
Print #1, "这是用容VB新建的文档" '
Close
ShellExecute Me.hwnd, "open", "c:\新建文档.doc", vbNullString, vbNullString, 5
End
End Sub
首先你要在VB的“工程”->“引用”中引用“Microsoft Word 9.0 Object LibraryPrivate Sub Command1_Click()'打开指定的Word文件
Dim wdApp As Word.Application
Dim aDoc As Document
Set wdApp = New Word.Application
Set aDoc = wdApp.Documents.Open(FileName:="你要打开的Word文件路径及文件名")
wdApp.Visible = True'设置Word对象e68a84e8a2ade79fa5e98193337可见
End Sub
不过你要关闭word文件时要释放对象
aDoc.Close'关闭文件
wdApp.Quit'退出Word程序
Set aDoc = Nothing'释放对象
Set wdApp = Nothing
你可以再放一个按钮,将上面代码放进去,用这个按钮来关闭Word并释放对象。
如果你直接在Word程序中关闭文件的话,就将word对象定义在一个类模块中Public WithEvents wdApp As Word.Application,再在wdApp_Quit()事件中加入释放对象的代码。
如果关闭word文件而没有释放对象的话,你只有重新运行刚才用来打开word文件的程序才能再次打开word文件。
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 Command1_Click()
Open "c:\新建zhidao文档专.doc" For Output As #1 '打开一属WORD文档
Print #1, "这是用VB新建的文档" '
Close
ShellExecute Me.hwnd, "open", "c:\新建文档.doc", vbNullString, vbNullString, 5
End
End Sub