vb按格式生成word文档

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文档