如何批量处理word中的表格

1 . 批量设置word中的表格宽度

比如，我这有一个word文档有200多个表格（全部是3列的），现在要求第一列宽度3cm，第二列4cm，第三列5cm。一个一个改不太可能吧？？？执行如下的宏代码就搞定：

点击(此处)折叠或打开

Sub Macro1()
Dim MyTable As Table
For Each MyTable In ActiveDocument.Tables
MyTable.PreferredWidth = CentimetersToPoints(16)
MyTable.Columns(1).PreferredWidth = CentimetersToPoints(3)
MyTable.Columns(2).PreferredWidth = CentimetersToPoints(4)
MyTable.Columns(3).PreferredWidth = CentimetersToPoints(5)
Next
End Sub

2. word中批量选中所有的表格

执行如下的宏代码即可：

点击(此处)折叠或打开

Sub select_all_tables()
Dim mytable As Table
Application.ScreenUpdating = False
For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
Application.ScreenUpdating = True
End Sub

方便大家查看，这里给出 word中批量选中所有的表格例子，第一个类似：

按快捷键 ALT+F11后，

运行宏代码之后就选定了

3、让word中所有的表格按照页面宽度调整

点击(此处)折叠或打开

Private Sub Document_New()
End Sub
Private Sub Document_Open()
Application.Browser.Target = wdBrowseTable
For i = 1 To ActiveDocument.Tables.Count
' ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格
ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
Next i
End Sub

About Me

...............................................................................................................................

● 本文作者：小麦苗，只专注于数据库的技术，更注重技术的运用

● 本文在itpub（http://blog.itpub.net/26736162）、博客园（http://www.cnblogs.com/lhrbest）和个人微信公众号（xiaomaimiaolhr）上有同步更新

● 本文itpub地址：http://blog.itpub.net/26736162/abstract/1/

● 本文博客园地址：http://www.cnblogs.com/lhrbest

● 本文pdf版及小麦苗云盘地址：http://blog.itpub.net/26736162/viewspace-1624453/

● 数据库笔试面试题库及解答：http://blog.itpub.net/26736162/viewspace-2134706/

● QQ群：230161599 微信群：私聊

● 联系我请加QQ好友(646634621)，注明添加缘由

● 于 2017-04-28 09:00 ~ 2017-04-30 22:00 在魔都完成

● 文章内容来源于小麦苗的学习笔记，部分整理自网络，若有侵权或不当之处还请谅解

● 版权所有，欢迎分享本文，转载请保留出处

...............................................................................................................................

拿起手机使用微信客户端扫描下边的左边图片来关注小麦苗的微信公众号：xiaomaimiaolhr，扫描右边的二维码加入小麦苗的QQ群，学习最实用的数据库技术。

如何批量处理word中的表格相关推荐

批量替换Word中的表格为图片并保存
之前我在<将Word中的表格以图片形式复制到微信发送>分享了如何将指定word中的表格以图片形式粘贴,参考:https://xxmdmst.blog.csdn.net/article/de ...
批量修改word中的表格属性
背景: 写接口文档,程序导出的接口文档格式不符合标书的需要,要批量设置word表格及文本 -------------------------------- 方法: 我们可以通过word的宏观能,实现批 ...
word录入表单数据 java 导入系统,java导入excel | 怎么把excel中的数据批量导入到word中的表格中...
用javascript怎么实现把excel中的数据批量导入到数据库表中这个js不能直接实现吧我们程序用到先读取excel内容转换成数组然后放到页面上再提交表单储存 MySql如何批量添加数 ...
python中读取word信息_Python实现批量读取word中表格信息的方法
本文实例讲述了Python实现批量读取word中表格信息的方法.分享给大家供大家参考.具体如下: 单位收集了很多word格式的调查表,领导需要收集表单里的信息,我就把所有调查表放一个文件里,写了个py ...
Python 批量提取 Word 中表格内容，一键写入 Excel
关注公众号:[小张Python],为你准备了 50+ 本Python 精品电子书籍与 50G + 优质视频学习资料,后台回复关键字:1024 即可获取:如果对博文内容有什么疑问,后台添加作者[个人微 ...
word 解放双手，使用宏批量添加word中表格边框以及自适应
Sub 宏2() ' ' 宏2 宏 ' ' For Each aTable In ActiveDocument.TablesWith aTableaTable.SelectWith .Borders( ...
python 读取 word 表格_Python实现批量读取word中表格信息的方法
本文实例讲述了Python实现批量读取word中表格信息的方法.分享给大家供大家参考.具体如下: 单位收集了很多word格式的调查表,领导需要收集表单里的信息,我就把所有调查表放一个文件里,写了个py ...
matlab如何在word中插入多个表格,怎么把excel中的数据批量导入到word中的表格中《不同表格间的数据导入》...
如何将excel表格中大量数据导入matlab中并作图工具:MATLAB.office excel 将待导入的矩阵结构据录入Excel中,录入时注意行列原矩阵一一对应. 录入完以后保存数据,为了后续 ...
java word模板占位符_word模板导出的几种方式：第一种：占位符替换模板导出（只适用于word中含有表格形式的）...
1.占位符替换模板导出(只适用于word中含有表格形式的): /// /// 使用替换模板进行到处word文件 /// public class WordUtility { private objec ...

如何批量处理word中的表格

如何批量处理word中的表格

如何批量处理word中的表格

1 . 批量设置word中的表格宽度

2. word中批量选中所有的表格

3、让word中所有的表格按照页面宽度调整

如何批量处理word中的表格相关推荐

最新文章

热门文章

如何批量处理word中的表格

如何批量处理word中的表格

如何批量处理word中的表格

1 . 批量设置word中的表格宽度

2. word中批量选中所有的表格

3、 让word中所有的表格按照页面宽度调整

如何批量处理word中的表格相关推荐

最新文章

热门文章

3、让word中所有的表格按照页面宽度调整