教你如何以VB对word 文件进行读写操作

VB6.0 如何对word 文件进行读写操作

?

对于这样的表格 我通过下面一段代码可以实现 ，但如何对图二最下面的内容进行填充 谢谢啦

Set WordObj = CreateObject(\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 = \With myword.Tables(1) .Cell(7, 2).Range.Text = \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(\标记\= \这里写你要输入的文字\doc.SaveAs \样板1.doc\doc.Close wd.Quit