教你如何以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'ActiveDocument.Words(1).Text = "Hello" With myword.Tables(1) .Cell(7, 2).Range.Text = "22"End 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 & "\样板.doc") '当模板用add,否则用open doc.Bookmarks("标记").Range.Text = "这里写你要输入的文字"

doc.SaveAs "样板1.doc"

doc.Close

wd.Quit