批量设置word中表格的高度
来源:互联网 发布:悦游网络加速器下载 编辑:程序博客网 时间:2024/04/26 17:42
最近写文档的时候,遇到了一个小问题。我们的文档,大部分都是通过EA生成的,而通过EA生成的文档,好多表格格式不是很美观。不是表格的高度不合适,就是字体显示不尽人意,这些都必须去修改。当浏览了一遍文档后,发现有好几十个表格,这要是一一修改的话,那一上午就甭干别的了,光做重复工作了。记得有这么一句话:如果同一件事情,你重复做了三次,那么,肯定有简单的方法来避免这种无谓的重复。于是上网找了一下,果然,VBA完美解决了这个问题。下面就说说如何用VBA解决这个问题。
1、打开Word,点击视图——宏——查看宏
2、输入宏名,点击创建
3、输入如下代码
Sub test() Dim i As Table, N As Integer On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 For Each i In ActiveDocument.Tables '在表格中循环 With i For N = 1 To .Columns.Count '从第一列到最后一列 .Rows(N).Height = 111 .Columns(N).Select '单元格对齐方式为中部居中 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.Cells.VerticalAlignment = wdCellAlignVerticalCenter Next N End With Next i Application.ScreenUpdating = TrueEnd Sub
4、最后点击运行,你会发现文档中所有表格瞬间变成了你想要的效果。完成此项“浩大”的工程就是如此简单。
当然,对于VBA,以上功能只是冰山一角。送大家一句:只有想不到,没有做不到。
- 批量设置word中表格的高度
- 一个word文档中,多个表格的批量调整(根据窗口调整表格和添加表格水平线)
- Word中批量设置全部图片大小
- DevExpress XtraGrid 设置表格头的高度
- Excel表格内容批量添加到多个word文档中
- 将word中表格批量导入到Excel
- 前端开发中表格table单元格高度或者行高的设置
- word表格线设置
- 获取表格中单元格的高度
- 修改extjs中表格的默认高度
- word 批量设置图片大小
- [转载]Word中大表格正确跨页断行的设置
- Word中插入表格方便查看和打印的几点设置
- Word中如何设置表格的边框线样式和颜色
- WORD中表格的跨页显示
- html 表格单元格的宽度和高度的设置
- 批量删除Word中回车的方法
- 批量删除Word中回车的方法
- ruby设计模式
- SharePoint 2010 容量规划
- 什么是图形加速卡(三)
- 面向云计算的数据中心网络体系结构设计
- dom4j生成xml方法
- 批量设置word中表格的高度
- 前言
- 深入理解Oracle表(7):10种表类型的数据存储和适用场景浅析
- cPanel支持泛域名解析
- CF 272E Dima and Horses(2-SAT变形)
- 系统服务的类型
- Apache 泛域名 虚拟主机
- ZOJ 1350 The Drunk Jailer
- GRUB中硬盘和分区编号,UUID