操控word里面的表格

koifish

感谢大佬分享感谢

lm88818

感谢大佬分享感谢

hbpgf123

感谢大佬分享感谢

hbpgf123

感谢大佬分享感谢

nlslang

感谢楼主的分享，同时理解楼主的代码时不知道哪里出了问题，我把学习楼主按钮里的代码贴上来，楼主给指导一下。谢谢！

  

变量名	类 型	静态	数组	备 注
Section	对象
Tables	对象
行数	整数型
列数	整数型
表格个数	整数型
表数量记次循环变量	整数型
取得的行数记次循环变量	整数型
取得的列数记次循环变量	整数型

如果真 (word对象.创建 (“Word.Application”, ) ＝ 假)
信息框 (“word对象创建失败！”, 0, , )
结束 ()
' word对象.写属性 (“visible”, 真)
Docs ＝ word对象.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “\这是一个测试表格写入的程序2.docx”)
Section ＝ Docs.读对象型属性 (“Sections”, ).对象型方法 (“Item”, 1)
Tables ＝ Section.读对象型属性 (“Range”, ).读对象型属性 (“Tables”, )
表格个数 ＝ 读文档表格个数 (Tables)
' 调试输出 (“表格个数为：” ＋ 到文本 (表格个数) ＋ “个！”)
' Tables ＝ Tables.对象型方法 (“Item”, 1)  ' 选择第2个表格
' 取得表后的行数 [1] ＝ 读表格行数 (Tables)
' 取得表后的列数 [1] ＝ 读表格列数 (Tables)
' Tables ＝ Tables.对象型方法 (“Item”, 2)  ' 选择第2个表格
' 取得表后的行数 [2] ＝ 读表格行数 (Tables)
' 取得表后的列数 [2] ＝ 读表格列数 (Tables)
' 行数 ＝ 读表格行数 (Tables)
' 列数 ＝ 读表格列数 (Tables)
' 调试输出 (“行数 列数”, 行数, 列数)
计次循环首 (表格个数, 表数量记次循环变量)  ' Word 里有两个以上表格的时候 计次循环每张表包含多少行和多少列
组合框1.插入项目 (表数量记次循环变量, “第” ＋ 到文本 (表数量记次循环变量) ＋ “个表”, )
Tables ＝ Tables.对象型方法 (“Item”, 表数量记次循环变量)  ' 问题在此！随后得到的第一张表的行和列的数量是正确的，第二张以后的表获取不到行数和列数，调试输出第二张以后的行和列为什么都等于零？
取得表后的行数 [表数量记次循环变量] ＝ 读表格行数 (Tables)
取得表后的列数 [表数量记次循环变量] ＝ 读表格列数 (Tables)
调试输出 (表数量记次循环变量, 取得表后的行数 [表数量记次循环变量], 读表格行数 (Tables), 取得表后的列数 [表数量记次循环变量], 读表格列数 (Tables))
计次循环尾 ()
' ’写单元格内容 (Tables, 2, 3, “8888”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 Section, 对象<br /> .局部变量 Tables, 对象<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表格个数, 整数型<br /> .局部变量 表数量记次循环变量, 整数型<br /> .局部变量 取得的行数记次循环变量, 整数型<br /> .局部变量 取得的列数记次循环变量, 整数型<br /> <br /> .如果真 (word对象.创建 (“Word.Application”, ) ＝ 假)<br />     信息框 (“word对象创建失败！”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> ' word对象.写属性 (“visible”, 真)<br /> Docs ＝ word对象.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “\这是一个测试表格写入的程序2.docx”)<br /> Section ＝ Docs.读对象型属性 (“Sections”, ).对象型方法 (“Item”, 1)<br /> Tables ＝ Section.读对象型属性 (“Range”, ).读对象型属性 (“Tables”, )<br /> 表格个数 ＝ 读文档表格个数 (Tables)<br /> <br /> ' 调试输出 (“表格个数为：” ＋ 到文本 (表格个数) ＋ “个！”)<br /> ' Tables ＝ Tables.对象型方法 (“Item”, 1)  ' 选择第2个表格<br /> ' 取得表后的行数 [1] ＝ 读表格行数 (Tables)<br /> ' 取得表后的列数 [1] ＝ 读表格列数 (Tables)<br /> ' Tables ＝ Tables.对象型方法 (“Item”, 2)  ' 选择第2个表格<br /> ' 取得表后的行数 [2] ＝ 读表格行数 (Tables)<br /> ' 取得表后的列数 [2] ＝ 读表格列数 (Tables)<br /> ' 行数 ＝ 读表格行数 (Tables)<br /> ' 列数 ＝ 读表格列数 (Tables)<br /> ' 调试输出 (“行数 列数”, 行数, 列数)<br /> .计次循环首 (表格个数, 表数量记次循环变量)  ' Word 里有两个以上表格的时候 计次循环每张表包含多少行和多少列<br />     组合框1.插入项目 (表数量记次循环变量, “第” ＋ 到文本 (表数量记次循环变量) ＋ “个表”, )<br />     Tables ＝ Tables.对象型方法 (“Item”, 表数量记次循环变量)  ' 问题在此！随后得到的第一张表的行和列的数量是正确的，第二张以后的表获取不到行数和列数，调试输出第二张以后的行和列为什么都等于零？<br />     取得表后的行数 [表数量记次循环变量] ＝ 读表格行数 (Tables)<br />     取得表后的列数 [表数量记次循环变量] ＝ 读表格列数 (Tables)<br />     调试输出 (表数量记次循环变量, 取得表后的行数 [表数量记次循环变量], 读表格行数 (Tables), 取得表后的列数 [表数量记次循环变量], 读表格列数 (Tables))<br /> <br /> .计次循环尾 ()<br /> ' ’写单元格内容 (Tables, 2, 3, “8888”)

nlslang

感谢楼主的分享，同时理解楼主的代码时不知道哪里出了问题，我把学习楼主按钮里的代码贴上来，楼主给指导一下。谢谢！

  

变量名	类 型	静态	数组	备 注
Section	对象
Tables	对象
行数	整数型
列数	整数型
表格个数	整数型
表数量记次循环变量	整数型
取得的行数记次循环变量	整数型
取得的列数记次循环变量	整数型

如果真 (word对象.创建 (“Word.Application”, ) ＝ 假)
信息框 (“word对象创建失败！”, 0, , )
结束 ()
' word对象.写属性 (“visible”, 真)
Docs ＝ word对象.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “\这是一个测试表格写入的程序2.docx”)
Section ＝ Docs.读对象型属性 (“Sections”, ).对象型方法 (“Item”, 1)
Tables ＝ Section.读对象型属性 (“Range”, ).读对象型属性 (“Tables”, )
表格个数 ＝ 读文档表格个数 (Tables)
' 调试输出 (“表格个数为：” ＋ 到文本 (表格个数) ＋ “个！”)
' Tables ＝ Tables.对象型方法 (“Item”, 1)  ' 选择第2个表格
' 取得表后的行数 [1] ＝ 读表格行数 (Tables)
' 取得表后的列数 [1] ＝ 读表格列数 (Tables)
' Tables ＝ Tables.对象型方法 (“Item”, 2)  ' 选择第2个表格
' 取得表后的行数 [2] ＝ 读表格行数 (Tables)
' 取得表后的列数 [2] ＝ 读表格列数 (Tables)
' 行数 ＝ 读表格行数 (Tables)
' 列数 ＝ 读表格列数 (Tables)
' 调试输出 (“行数 列数”, 行数, 列数)
计次循环首 (表格个数, 表数量记次循环变量)  ' Word 里有两个以上表格的时候 计次循环每张表包含多少行和多少列
组合框1.插入项目 (表数量记次循环变量, “第” ＋ 到文本 (表数量记次循环变量) ＋ “个表”, )
Tables ＝ Tables.对象型方法 (“Item”, 表数量记次循环变量)  ' 问题在此！随后得到的第一张表的行和列的数量是正确的，第二张以后的表获取不到行数和列数，调试输出第二张以后的行和列为什么都等于零？
取得表后的行数 [表数量记次循环变量] ＝ 读表格行数 (Tables)
取得表后的列数 [表数量记次循环变量] ＝ 读表格列数 (Tables)
调试输出 (表数量记次循环变量, 取得表后的行数 [表数量记次循环变量], 读表格行数 (Tables), 取得表后的列数 [表数量记次循环变量], 读表格列数 (Tables))
计次循环尾 ()
' ’写单元格内容 (Tables, 2, 3, “8888”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 Section, 对象<br /> .局部变量 Tables, 对象<br /> .局部变量 行数, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 表格个数, 整数型<br /> .局部变量 表数量记次循环变量, 整数型<br /> .局部变量 取得的行数记次循环变量, 整数型<br /> .局部变量 取得的列数记次循环变量, 整数型<br /> <br /> .如果真 (word对象.创建 (“Word.Application”, ) ＝ 假)<br />     信息框 (“word对象创建失败！”, 0, , )<br />     结束 ()<br /> .如果真结束<br /> ' word对象.写属性 (“visible”, 真)<br /> Docs ＝ word对象.读对象型属性 (“documents”, ).对象型方法 (“open”, 取运行目录 () ＋ “\这是一个测试表格写入的程序2.docx”)<br /> Section ＝ Docs.读对象型属性 (“Sections”, ).对象型方法 (“Item”, 1)<br /> Tables ＝ Section.读对象型属性 (“Range”, ).读对象型属性 (“Tables”, )<br /> 表格个数 ＝ 读文档表格个数 (Tables)<br /> <br /> ' 调试输出 (“表格个数为：” ＋ 到文本 (表格个数) ＋ “个！”)<br /> ' Tables ＝ Tables.对象型方法 (“Item”, 1)  ' 选择第2个表格<br /> ' 取得表后的行数 [1] ＝ 读表格行数 (Tables)<br /> ' 取得表后的列数 [1] ＝ 读表格列数 (Tables)<br /> ' Tables ＝ Tables.对象型方法 (“Item”, 2)  ' 选择第2个表格<br /> ' 取得表后的行数 [2] ＝ 读表格行数 (Tables)<br /> ' 取得表后的列数 [2] ＝ 读表格列数 (Tables)<br /> ' 行数 ＝ 读表格行数 (Tables)<br /> ' 列数 ＝ 读表格列数 (Tables)<br /> ' 调试输出 (“行数 列数”, 行数, 列数)<br /> .计次循环首 (表格个数, 表数量记次循环变量)  ' Word 里有两个以上表格的时候 计次循环每张表包含多少行和多少列<br />     组合框1.插入项目 (表数量记次循环变量, “第” ＋ 到文本 (表数量记次循环变量) ＋ “个表”, )<br />     Tables ＝ Tables.对象型方法 (“Item”, 表数量记次循环变量)  ' 问题在此！随后得到的第一张表的行和列的数量是正确的，第二张以后的表获取不到行数和列数，调试输出第二张以后的行和列为什么都等于零？<br />     取得表后的行数 [表数量记次循环变量] ＝ 读表格行数 (Tables)<br />     取得表后的列数 [表数量记次循环变量] ＝ 读表格列数 (Tables)<br />     调试输出 (表数量记次循环变量, 取得表后的行数 [表数量记次循环变量], 读表格行数 (Tables), 取得表后的列数 [表数量记次循环变量], 读表格列数 (Tables))<br /> <br /> .计次循环尾 ()<br /> ' ’写单元格内容 (Tables, 2, 3, “8888”)

5152543

感谢分享，学习了

wy1987wy119

学习学习

licya

感谢大佬分享感谢

ghost12

精彩文章希望继续努力