如何用vba代码取得word文档中各表格上面一行的文本内容

如何用vba代码取得word文档中各表格上面一行的文本内容

比如，把A1:A10的内容都乘以3:这样办:
我们找一个空白的单元格，输入3，选择它，复制，再选择A1:A10，在编辑里找【选择性粘贴】勾选【运算】下的“乘”，确定。OK

使用vba来选定word文档中的文字，可使用select方法选定文档中的对象。 select方法可用于多种对象，例如bookmark、field、range 和table对象。 ａ：下列示例选定活动文档中的第一个表格 sub selecttable() activedocument.tables(1).select end sub ｂ：下列示例选定活动文档中的第一个域 sub selectfield() activedocument.fields(1).select end sub ｃ：下列示例选定活动文档中的前四个段落 range方法用于创建一个引用前四个段落的 range对象，然后将 select方法应用于 range对象。 sub selectrange() dim rngparagraphs as range set rngparagraphs = activedocument.range( start:=activedocument.paragraphs(1).range.start, end:=activedocument.paragraphs(4).range.end) rngparagraphs.select end sub ｄ：下列命令选定活动文档中的第一个单词 sub selectfirstword()