vb建立word文档

一、如何在VB中建立word文档,并写入文字和图片

首先说明，你这样是写TXT，不是DOC，虽然Word可以打开，但根本就不是Word文件。当然不能存储图片了。请参考我以下的代码。建一个Command1。

================

Dim ap As Word.Application, doc As Document

Private Sub Form_Load（) '这个过程不必做修改，是建立一个新的Word文档

Set ap = CreateObject("word.application")

ap.Visible = True

Set doc = ap.Documents.Add

End Sub

Private Sub Command1_Click()

doc.Content.InsertAfter Text：="请输入你要输入的内容" '插入文字，请使用这种格式

doc.Shapes.AddPicture FileName:="D:\a.jpg" '插入图片，请使用这种格式，路径自己写

End Sub

其他问题再找我。

二、VB6.0按钮自动创建WORD

控件：Command1.代码如下。

===========Option ExplicitPrivate Sub Command1_Click()Dim doc As ObjectSet doc = CreateObject("Word.Application")doc.Documents.Add.Content.InsertAfter ("a" & vbCrLf & "b")doc.Documents(1).SaveAs App.Path & "\aa.doc"doc.QuitSet doc = NothingMsgBox "OK"EndEnd Sub。

三、怎样创建一个word或txt问题

Sub CreateWordDoc(ByVal FileName As String) Dim objWordApp As Object Set objWordApp = CreateObject("Word.application") Call objWordApp.Documents.Add Call objWordApp.Documents.Item(1).SaveAs(FileName ) Call objWordApp.Quit Set objWordApp = Nothing End Sub 创建TXT参照solidco2 的答案。

四、vb.net 如何创建一个word文档

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click System.IO.Directory.CreateDirectory("C：\我的文件夹") '创建目录，路径就自己改吧，如果路径存在，就没必要创建了 System.IO.File.Create("C：\我的文件夹\我的文件.doc") '在指定目录下创建word文档 End Sub。

五、VB如何读入Word的内容

Set oApp = CreateObject("Word。

Application") oApp。Visible = False Set oDoc = oApp。

Documents。Open(strFile)'strFile为文件路径 '获得最后一段的内容 Dim length As Long '整个文档的长度 Dim i As Long length = oDoc。

Content。StoryLength Content = oDoc。

Content。Text Dim s As String For i = 1 To length If Mid$(Content, i, 1) = Chr$(13) Then s = s + vbCrLf Else s = s + Mid$(Content, i, 1) End If Next i oDoc。

Close True oApp。Quit False txtMx = s。

六、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

七、VB6.0按钮自动创建WORD

控件：Command1.代码如下。

===========

Option Explicit

Private Sub Command1_Click()

Dim doc As Object

Set doc = CreateObject("Word.Application")

doc.Documents.Add.Content.InsertAfter ("a" & vbCrLf & "b")

doc.Documents(1).SaveAs App.Path & "\aa.doc"

doc.Quit

Set doc = Nothing

MsgBox "OK"

End

End Sub

八、如何用VB调用WORD文档,请高手进,谢谢~

知道，不过不能直接读取，因为微软没有公布加密方式，所以要调用WORD来读取，然后获取它

先在工程的引用里面加上Microsoft Word 11.0 Object Library

Dim 剪切板文本

Dim Word文字处理系统界面 As Word.Application '建立一个word.application对象

Dim Word文档 As Word.Document

Dim Word文档文本 As Word.Selection '在word文字处理系统中添加一个文档

Set Word文字处理系统界面 = CreateObject("Word.Application") '选择对象

Word文字处理系统界面.Visible = False '不显示word.application，即word文字处理系统界面

Set Word文档 = Word文字处理系统界面.Documents.Open（文件路径）

Set Word文档文本 = Word文字处理系统界面.Selection

Word文档文本.WholeStory

Word文档文本.Copy

剪切板文本 = Clipboard.GetText(vbCFText) '放到text1中

Text1.Text = 剪切板文本

'Clipboard.SetData Temp

Word文档.Close '关闭文档

Word文字处理系统界面.Application.Quit

Set Word文字处理系统界面 = Nothing '清空变量

Set Word文档文本 = Nothing

'完成操作

我通过剪切板来获取文本，因为这样可以保留格式（本人独创）

如果直接获取也是可以的，不过格式全部丢失，所以我的方法会更好一点

转载请注明出处51数据库 » vb建立word文档