ITPub博客

首页 > Linux操作系统 > Linux操作系统 > 如何批量处理word中的表格

如何批量处理word中的表格

原创 Linux操作系统 作者:lhrbest 时间:2014-07-11 00:37:24 0 删除 编辑

如何批量处理word中的表格




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

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



点击(此处)折叠或打开

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



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

执行如下的宏代码即可:


点击(此处)折叠或打开

  1. Sub select_all_tables()
  2.      Dim mytable As Table
  3.       Application.ScreenUpdating = False
  4.       For Each mytable In ActiveDocument.Tables
  5.          mytable.Range.Editors.Add wdEditorEveryone
  6.      Next
  7.     ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
  8.     ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
  9.      Application.ScreenUpdating = True
  10. End Sub

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




按快捷键 ALT+F11后,


运行宏代码之后就选定了



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



点击(此处)折叠或打开

  1. Private Sub Document_New()
  2. End Sub
  3. Private Sub Document_Open()
  4. Application.Browser.Target = wdBrowseTable
  5. For i = 1 To ActiveDocument.Tables.Count
  6. ' ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitContent) '根据内容自动调整表格
  7. ActiveDocument.Tables(i).AutoFitBehavior (wdAutoFitWindow) '根据窗口自动调整表格
  8. 'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter '水平居中
  9. 'ActiveDocument.Tables(i).Range.ParagraphFormat.Alignment = wdCellAlignVerticalCenter '垂直居中
  10. Next i
  11. 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群,学习最实用的数据库技术。


DBA笔试面试讲解
欢迎与我联系

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/26736162/viewspace-1216192/,如需转载,请注明出处,否则将追究法律责任。

上一篇: OCP 1Z0-053 第1~30题
请登录后发表评论 登录
全部评论
QQ:646634621| 网名:小麦苗| 微信公众号:xiaomaimiaolhr| 11g OCM| QQ群:618766405 微信群:私聊| 《数据库笔试面试宝典》作者| OCP、OCM、高可用(RAC+DG+OGG)网络班开讲啦,有需要的小伙伴可以私聊我。

注册时间:2012-09-23

  • 博文量
    1367
  • 访问量
    8348665