表格创建完了,发现高度宽度都不一样,crtl+shift+c不能设置成一直的大小,怎么设置
1条回答 默认 最新
- VBA-守候 2022-07-06 11:06关注
Word VBA:批量设置表格
一、说明
1.对激活的Word文档操作
2.具体生效范围的规则
如果选择了范围,则对选择范围内的表格有效;
否则,对整篇文档内的表格有效二、示例代码
Sub 批量设置表格宽高() Dim rng As Range Dim ta As Table Set rng = Selection.Range If rng.Start = rng.End Then Set rng = ActiveDocument.Range For Each ta In rng.Tables With ta With .Rows .Alignment = wdAlignRowCenter '设置表格整体对齐方式为【居中】 .HeightRule = wdRowHeightAtLeast '行高规则为【最小值】 .Height = CentimetersToPoints(1) '行高为最小值【1厘米】 End With .PreferredWidthType = wdPreferredWidthPercent '表格宽度按百分比算 .PreferredWidth = 100 '表格宽度百分比为【100】,即与表格所在栏宽相等 End With Next Set rng = Nothing End Sub
解决 1无用
悬赏问题
- ¥60 求一个简单的网页(标签-安全|关键词-上传)
- ¥35 lstm时间序列共享单车预测,loss值优化,参数优化算法
- ¥15 基于卷积神经网络的声纹识别
- ¥15 Python中的request,如何使用ssr节点,通过代理requests网页。本人在泰国,需要用大陆ip才能玩网页游戏,合法合规。
- ¥100 为什么这个恒流源电路不能恒流?
- ¥15 有偿求跨组件数据流路径图
- ¥15 写一个方法checkPerson,入参实体类Person,出参布尔值
- ¥15 我想咨询一下路面纹理三维点云数据处理的一些问题,上传的坐标文件里是怎么对无序点进行编号的,以及xy坐标在处理的时候是进行整体模型分片处理的吗
- ¥15 CSAPPattacklab
- ¥15 一直显示正在等待HID—ISP