在word2016中使用宏（VBA）来自动设置表格行高

因为有校验文档的工作，其中有一个大几百页的文档，有三四百张表格，要求是调整他们的行高，保持美观的同时尽可能减少页数。手动来改实在是鼠标都点烂了，所以就想到了宏的方法。
使用宏的使用方法我是这样操作的：
（1）启用宏
文件–>选项–>信任中心–>信任中心设置–>启用所有宏

（2）在搜索栏中搜索“宏”，选择“查看宏”，选择编辑

（3）进入宏的代码编辑部分

接下来就是代码编辑了。我的要求是：从第五个表格开始，每个表格从第四行开给一个固定的行距。

Sub 宏1()Dim hDim iDim nOn Error Resume Next '忽略错误WidthP = 80 '设定的固定行高For n = 5 To ActiveDocument.Tables.CountFor i = 4 To ActiveDocument.Tables(n).Rows.CountActiveDocument.Tables(n).Rows(i).Height = WidthP '设置行号NextNext
End Sub

我在网上找关于行高的设置发现资料比较少，最后我找到了官方帮助，还是官方帮助给力，附上链接。
官方帮助

在word2016中使用宏（VBA）来自动设置表格行高相关推荐

html设置表格行高和列宽,怎么在腾讯文档中设置表格的行高和列宽
摘要腾兴网为您分享:怎么在腾讯文档中设置表格的行高和列宽,云集,虚拟机,我的世界,卫星云图等软件知识,以及cad2009,kmp,mt4,usb转串口驱动,wifi吸粉,csgo动态组名,亿方云,单 ...
使用word中的宏实现选中指定类型表格，并且批量修改样式结构
使用word中的宏实现选中指定类型表格,并且批量修改样式结构 Sub SelectAllTables() ' ' SelectAllTables 宏选中所有表格 ' 'Dim tempTable A ...
word自动设置表格格式
在处理word时,经常会需要调整表格样式,工作比较繁琐,收集整理了自动设置表格格式的宏,代码如下: Sub 设置表格格式()'功能:光标在表格中处理当前表格:否则处理所有表格!Application. ...
php中表格第一行不动,word表格行高拉不动怎么办
解决方法:1.打开word表格,选定需要调整行高的单元格:2.选择"开始"菜单,点击"段落"区域的三角形图标,打开段落对话框:3.在"间距" ...
实习总结第七谈-----------vue中element-ui的表格行高怎么控制
依旧在我负责的当前项目中举例子: 我的表格要求是一页只显示10条数据,且纵向不能产生滚动条,这样就意味着不能设置表格的整体高度来控制,那样会会产生滚动条,要么在表格纵向产生滚动条,要么在屏幕纵向产生滚 ...
大学综合测评中，使用VBA代码自动完成EXCEL成绩表
更新:2014-04-18 下午 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ...
python可以做表格文档吗_生活中的python-利用python-docx自动生成表格简化工作流程...
因为工作原因,需要经常往两个word模板里填写内容并生成新的word文件,模板大致如下图: 老的工作流程: 打开两个表,在表中对应位置填写个人信息,保存.这样一来,当需要填写的信息比较多的时候,工作就 ...
HTML中设置行高的属性是,line-height属性(行高标签用法)
line-height属性 1.line-height特点设置行间的距离(行高),而行距离的尺寸分配是line-height与font-size的计算值之差(在CSS中成为"行距离" ...
Excel中的宏--VBA的简单例子
第一步:点击录制宏第二步:填写宏的方法名第三步:进行一系列的操作之后,关闭宏第四步:根据自己的需要查看,修改宏第六步:保存,一般是另存为,后缀名为.xlsm,否则宏语言不能保存. 到此为止恭喜 ...

在word2016中使用宏（VBA）来自动设置表格行高

在word2016中使用宏（VBA）来自动设置表格行高相关推荐

最新文章

热门文章