admin 管理员组文章数量: 1184232
2024年1月9日发(作者：kill函数)
竭诚为您提供优质文档/双击可除
vba设置word表格单元格行宽
篇一：用Vba操作word表格word的表格功能是非常重要的一个功能
用Vba操作word表格word的表格功能是非常重要的一个功能，
也是用户经常使用的一项功能，在word20xx中，增加了不少
新的功能。如果利用Vba自动处理表格将使用户的效率有极大
的提高。
1.向表格单元格插入文字
下面的代码向活动文档的第一个表格的第一个单元格插入
文字。cell方法返回单个的cell对象。Range属性返回一个
Range对象。delete方法用来删除现有的文字，而
1 13
insertafter方
法用来插入"cell1,1"文字。
>=1then
(1).cell（Row:=1,column:=1）.Range
.delete
.insertaftertext:="cell1,1"
endwith
endif
2在表格中插入文字
下面的代码在文档的开头插入一张3行4列的表格。For
结构用来循环遍历表格中的每个单元格。在For
结构中，insertafter方法用来向表格单元格（cell1、
cell2等等）添加文字。
setodoc=activedocument
setotable=(Range:=(start:=0,end:=0),
numRows:=3,numcolumns:=4)
icount=1
2 13
after"cell"非常重要,目的
是去掉换行符
否则内容后面会有个小圆点
nextacell
4将文本转换为表格
下面的代码在活动文档的开头插入以制表符分隔的文本，
然后将这些文本转换为一张表格。
setoRange1=（start:=0,end:=0）
before"one"关闭屏幕刷新
dqm=带路径的woRd文件名称setwdwoRd=createobject("ation")定义一个word对象变量setdkdoc=(dqm)创建文档对象bgs=当前文档中的表格总数关闭文档setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间msgboxchr(10)关闭屏幕刷新
endsub
提示：
嵌入式表格如woRd文档中插入的excel表格、表格中
3 13
插入的表格。计算表格个数的代码格式——文档对象.
上述方法不能计算woRd文档中的嵌入式表格个数。
2．计算woRd文档中各个表格的行/列数
【要求】
在excel中，遍历woRd文档“成绩表.doc”中的表格，计算表格的行数和列数。【代码】
sub计算指定woRd文档中表格行列数()
updating=False关闭屏幕刷新
dqm=带路径的woRd文件名称setwdwoRd=createobject("ation")定义一个word对象变量
setdkdoc=(dqm)创建文档对象
bgs=当前文档中的表格总数
Forg=1tobgs循环表格
(g)逐个表格计算
hs=.行数
ls=.列数
msgboxchr(10)计算信息提示关闭文档setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间updating=False关闭屏幕刷新endsub
4 13
提示：
计算行数代码格式——文档对象.表格对象.
计算列数代码格式——文档对象.表格对象.上述方法不能计算嵌入式表格的行/列数。3．选定woRd表格的指定区域⑴选定整个表格【代码】
sub选择woRd文档的指定表格整体()
updating=False关闭屏幕刷新
dqm=带路径的woRd文件名称setwdwoRd=createobject("ation")定义一个word对象变量setdkdoc=(dqm)创建文档对象e=true窗口可见(1).select选择整个表格(1).选择整个表格关闭新建文档窗口setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间updating=False关闭屏幕刷新endsub⑵选定一个单元格【代码】
sub选择woRd表格的第一个单元格()
updating=False关闭屏幕刷新
dqm=带路径的woRd文件名称setwdwoRd=createobject("ation")定义一个
5 13
word对象变量
setdkdoc=(dqm)创建文档对象
e=true窗口可见setwdbg=(1)创建表格对象(1,1).select选择第一个单元格(1,1).选择第一个单元格
关闭新建文档窗口setwdbg=nothing释放存储空间setdkdoc=nothing释放存储空间setwdwoRd=nothing释放存储空间updating=False关闭屏幕刷新endsub
⑶选定表格最后一个单元格
【代码】
sub选择woRd表格的最后一个单元格()
updating=False关闭屏幕刷新
dqm=带路径的woRd文件名称setwdwoRd=createobject("ation")定义一个word对象变量
setdkdoc=(dqm)创建文档对象
hs=(1).行数
ls=(1).列
6 13
数
e=true窗口可见
setwdbg=(1)创建表格对象
(hs,ls).选择最后一个单元格
关闭新建文档窗口
setwdbg=nothing释放存储空间
setdkdoc=nothing释放存储空间
setwdwoRd=nothing释放存储空间
updating=False关闭屏幕刷新endsub注意：一个表格的最后一个单元格由表格的最后一行hs和最后一列ls围成的一个方格。所以表格最后一个单元格的代码格式是.cell(hs,ls)。⑷选定指定行/列【代码】
sub选择woRd表格指定行()
updating=False关闭屏幕刷新
dqm=带路径的woRd文件名称setwdwoRd=createobject("ation")定义一个word对象变量
setdkdoc=(dqm)创建文档对象e=true窗口可见(1).Rows(3).select选择第3行
7 13
版权声明：本文标题：vba设置word表格单元格行宽 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1704788874a462280.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论