如何批量处理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群,学习最实用的数据库技术。 |
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/26736162/viewspace-1216192/,如需转载,请注明出处,否则将追究法律责任。