作者:乔山办公网日期:
返回目录:word文档
Imports Word
‘打开
Dim mWordapp As Word.Application ‘word 应用程序
Dim mobjDoc As Word.Document ’word 文档
Dim fullFileName as string ‘文件路径
mWordapp = CreateObject(”Word.Application”)
mobjDoc = mWordapp.Documents.Add(FullFileName)
‘关闭
Dim missing As Object = System.Reflection.Missing.Value
mWordapp.Application.Quit()
If Not mobjDoc Is Nothing Then
‘垃圾回收
System.Runtime.InteropServices.Marshal.ReleaseComObject(mobjDoc)
mobjDoc = Nothing
End If
If Not mWordapp Is Nothing Then
System.Runtime.InteropServices.Marshal.ReleaseComObject(mWordapp)
mWordapp = Nothing
End If
‘真正释放word进程
GC.Collect()
学习更多教程,请浏览7a686964616fe78988e69d83330: VB.NET入门教程 雄网
先用word建立一个“模板”,把该画的表格和格式设置好,然后调出“窗体”工具栏,在你想要接收vb传来数值的位置加入“文本型窗体域”(就是文本框),在“窗体”工具栏上把“域底纹”e79fa5e98193e59b9ee7ad94363点一下把域的底纹去掉,要不然不好看。加入域的时候记得要为每个“域”的属性里“书签”命名(其实就是相当于vb中的“名称”),保存退出(假设为c:\doc1.doc)。
在vb中新建工程并引用Microsoft Word x Object Library,在窗体中加入与word中域相对应的文本框,加一个command,加入类似以下的代码(我只用了一个文本框做例子,你自己再扩展一下吧):
Private Sub Command1_Click()
Dim doc1 As Word.Application
Set doc1 = New Word.Application
doc1.Documents.Open ("c:\doc1.doc")
doc1.ActiveDocument.FormFields("text1").Result = Text1.Text
doc1.ActiveDocument.Save
doc1.Documents.Close
Set doc1 = Nothing
End Sub
这样一来,我就把窗体中text1中的text值传入到了名为doc1.doc的word文件中。
Private Sub Command1_Click()
Dim myDoc, WordApp As Object
Set WordApp = CreateObject("Word.Application")
Set myDoc = WordApp.Documents.Add()
myDoc.SaveAs "c:\新建来自 Microsoft Word 文档百度.doc"
End Sub
Dim ap As Word.Application, doc As Document
Private Sub Form_Load() '这个过程不必做百修改,是建度立一个问新的Word文档
Set ap = CreateObject("word.application")
ap.Visible = False
Set doc = ap.Documents.Add
End Sub
Private Sub Command1_Click()
'doc.Content.InsertAfter Text:="请输入你要答输入的内容" '插入文字版,请使用这种格权式
doc.Content.InsertAfter Text1.Text
doc.SaveAs App.Path & "\a.doc"
doc.Close
End Sub