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

来源：用户分享时间：2025/8/21 7:59:13 本文由

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

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

搜索更多关于：教你如何以VB对word 文件进行读写操作的文档

教你如何以VB对word 文件进行读写操作.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c8o00f5rlvd1xu1x81hbg_1.html（转载请注明文章来源）