vb操作word全
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
End With
End With
newDoc.SaveAs filePath
newDoc.Close
End Function
2、
VB程序操作word表格（文字、图片）
很多人都知道，用vb操作excel的表格非常简单，但是偏偏项目中碰到了VB操作word表格的部分，google、baidu搜爆了，都没有找到我需要的东西。
到是搜索到了很多问这个问题的记录。
没办法，索性只有自己去尝试了。
下面把一些代码发上来，给需要的朋友一点提示。
打开一个已经存在的wrod文件（这个文件包含了表格）
Dim WordApp
Dim Word
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
Set Word = WordApp.Documents.Open("c:\record.dot")
知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容
Word.Tables(1).cell(1, 2)="内容"
VBA中的这些数组元素下标都是从1开始的，比如excel的第一行一列也是ExSheet.Cells(1,1),而不是ExSheet.Cells（0,0）,WORD的表格也是这样，不信自己试一下就知道了。
所以上面那句话的意思就是对整个word 文档中的第一个表格的第一行第二列的内容改变为“内容”。
很简单吧？网上有些人在问是不是
Word.Tables(1).cell(1, 2).range.text或者Word.Tables(1).cell(1, 2).text。
试一下就发现这2种都不对。