Felicity102859946
1.VB 生成word文档
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
2.如何用vb生成word文档
工程下引用microsoft word 11.0 object library
Private Sub Command1_Click()
Dim word1 As Word.Application
If word1 Is Nothing Then
Set word1 = CreateObject("word.application")
word1.Visible = True
word1.Documents.Add
End If
End Sub
3.VB中如何生成一个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()
学习更多教程，请浏览： VB.NET入门教程 雄网
4.vb如何生成word图表
如下的方法请参考：
首先打开VB软件，在新建工程对话框中选择“标准exe”，点击打开按钮。
进入工程》》引用菜单。
在引用对话框中找到MicroSoft Word 11.0 Object Library然后勾选，当然我这里是MicroSoft Word 14.0 Object Library，都无所谓。
在窗口中添加一个按钮，将文字改为“生成word”。
双击生成“生成word”按钮，进入代码编辑区，输入下列代码。
按F8，运行程序。点击“生成word”按钮，是不是跳出word了
先关掉刚才生成的word，然后再输入以下代码，然后运行程序。
5.怎样在VB中输出word文档
Dim WordApp As Word.Application'定义word应用变量
Dim newDoc As Word.Document'定义word文档变量
Set WordApp = CreateObject("Word.Application")'创建新的word应用
WordApp.Visible = True
With WordApp
Set newDoc = .Documents.Add(App.Path &； "\报告单\食品水质报告.Doc")'在创建的word应用中新建一个新的word文档
With .Selection
.GoTo wdGoToBookmark, , , "bh" bh为word文档中的对应位置的标签名
.TypeText PrnBID'写内容
.GoTo wdGoToBookmark, , , "GoodsName" 'GoodsName为word文档中的对应位置的标签名
.TypeText PrnGName'写内容
Set MyRS = Nothing
End With
' newDoc.SaveAs FileName:=FilePath
End With
' If theError = 429 Then WordApp.Quit
Set WordApp = Nothing
在事先做好的word文档中要写内容的位置设定好标签，然后在程序中找到标签，再写入数据
转载请注明出处51数据库 » vb按格式生成word文档
