vb操作word（VB operation word）.docVIP

vb操作word（VB operation word） 私有子command1_click() 昏暗的appword为对象 昏暗WordDoc 集appword = CreateObject（“字。应用”） 集WordDoc = appword。文件添加（“D: \ doc1。点”，假，0） appword可视=真。 模糊i为整数 “-----------------------”打印调试。 我= 1 我worddoc.shapes.count = 1 如果WordDoc。形状（我）。类型= 17 如果InStr（WordDoc。形状（我）。TextFrame.TextRange.Text，”$加$”） 0 WordDoc。形状（我）。textframe.textrange.text =“文本”赋给各个文本框的值。 最后如果 最后如果 下一个我 端子 多人都知道，用VB操作Excel的表格非常简单，但是偏偏项目中碰到了VB操作字表格的部分，谷歌、百度搜爆了，都没有找到我需要的东西。到是搜索到了很多问这个问题的记录。没办法，索性只有自己去尝试了下面把一些代码发上来，给需要的朋友一点提示。 打开一个已经存在的单词文件（这个文件包含了表格） 昏暗的wordapp 模糊的词 集wordapp = CreateObject（“字。应用”） wordapp可视=真。 集字= wordapp。文件。打开（“C：\记录。点”） 知道了就很简单了，下面是选定某一个表格的一个单元格，并修改其内容 字。表（1）。细胞（1, 2）=“内容” 1开始的比如Excel VBA中的这些数组元素下标都是从，的第一行一列也是exsheet。细胞（1,1），而不是exsheet。细胞（0,0），字的表格也是这样，不信自己试一下就知道了。所以上面那句话的意思就是对整个字文档中的第一个表格的第一行第二列的内容改变为”内容”。很简单吧？网上有些人在问是不是 字。表（1）。细胞（1, 2）。范围。文本或者字。表（1）。细胞（1, 2）。试一下就发现这2种都不对文本。 插入图片其实也很简单，代码如下： 说到这，肯定又有人会问怎么在一个里插入一个表格其实很简单字： 如果你的程序里涉及到合并及拆分单元格，那么你可能试一下这段代码： 昏暗的桌子 集表= wdapp。activedocument。表。添加（wdapp.application.selection.range，numrows：= 27，numcolumns _ ：= 7，defaulttablebehavior：= wdword9tablebehavior，AutoFitBehavior：= _ wdautofitfixed） 集myselection = wdapp.documents.application.selection myselection。细胞。边界（7）线型= 1。 “选中表格的第2行第3列 表（单元格）（2, 3）。 “向下移动6格，第1个参数和第3个是常数 叫博克电子图书编著环境。应用。选择向下移动（5, 6, 1）。 “合并 wdbook.application.selection.cells.merge “拆分成7行2列 叫博克电子图书编著环境。应用。选择。细胞分裂（7, 2，真的）。 如果大家碰到了更复杂的程序， Using the program to generate more trouble, then you can use templates to achieve it? You can make a template with word first, write all of the forms first, then save them as template files. You then load the template with the program and fill in the data in the template. This is less difficult. However, the specific circumstances of specific analysis. The subscript word these collections are from the beginning of 1, and then find that as long as the table set, and then select the first table is operating table (assuming you want to operate the table is the first table in the template). The c