如何用vb生成word报告.docVIP

如何用vb生成word报告 在VB中生成Word文档 Dim ap As Word.Application, doc As Document Private Sub Form_Load() #39;这个过程不必做修改，是建立一个新的Word文档 Set ap = CreateObject(word.application) ap.Visible = True Set doc = ap.Documents.Add End Sub Private Sub Command1_Click() doc.Content.InsertAfter Text:=请输入你要输入的内容 #39;插入文字，请使用这种格式 doc.Shapes.AddPicture FileName:=D:\a.jpg #39;插入图片，请使用这种格式，路径自己写 End Sub 篇二：教你如何以VB对word 文件进行读写操作 VB6.0 如何对word 文件进行读写操作 ? 对于这样的表格 我通过下面一段代码可以实现 ，但如何对图二最下面的内容进行 填充 谢谢啦 Set WordObj = CreateObject(Word.Application) WordObj.Visible = False If wordfilepath = Then MsgBox 请先打开文件！ Exit Sub End If Set myword = WordObj.Documents.Open(wordfilepath) strText = ActiveDocument.Words(1).Text#39;ActiveDocument.Words(1).Text = Hello With myword.Tables(1) .Cell(7, 2).Range.Text = 22End With myword.CloseWordObj.Quit 图一 图二 ? 百度下很多的，下面是我以前用的方法，要样板 首先在要修改的word样板中要修改的地方随便写几个字（我写的是标记）作为标志，然后选中这些字，点工具插入mark，记住你起的名字（我起的是标记），然后参考以下代码。 Dim wd As New Word.Application Dim doc As Word.Document wd.Visible = False Set doc = wd.Documents.Add(App.Path amp; \样板.doc) #39;当模板用add,否则用open doc.Bookmarks(标记).Range.Text = 这里写你要输入的文字 doc.SaveAs 样板1.doc doc.Close wd.Quit 篇三：用VB操作word方法 1. #39;先引用Microsoft Word 11.0 Object Library 2. Option Explicit 3. 4. Dim WordApp As Word.Application #39;创建Word应用程序 5. 6. Private Sub Command1_Click() 7. Dim i As Long 8. On Error GoTo Errhandler 9. CommonDialog1.Filter = Word(*.Doc)|*.Doc|AllFile(*.*)|*.* 10. CommonDialog1.FilterIndex = 1 11. CommonDialog1.ShowOpen 12. Set WordApp = New Word.Application #39;实例化 13. WordApp.Documents.Open CommonDialog1.FileName #39;打开Word文件 14. WordApp.Visible = True #39;显示 Office Word 界面 15. #39;或者Application.Visible = True 16. WordApp.DisplayAlerts = False #39;不提示保存对话框 17. 18. #39;返回段落文字，返回的段落文字在文本框控件中 19. Text1.Text = 20. For i = 1 To ActiveDocument.Paragraphs.Count 21.Text1.Text = Text1.Text amp; (ActiveDocument.Paragraphs(i).Range.Text amp; vbCrLf amp; vbCrLf) 22. Next 23. 24. #39;控制分页 25. WordApp.Selection.EndKey unit:=wdS