Word批量设置表格宽度自动适应页面宽度

怎么批量修改Word表格的宽度呢。Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样。

 

当页面设置了新的页边距后,所有的表格都需要调整新的宽度。或者文档中有许多大大小小的表格,希望宽度全部调整与页宽一样。下面的方法就非常有用啦

Word批量设置表格宽度自动适应页面宽度_第1张图片 步骤阅读
 

百度经验:jingyan.baidu.com

工具/原料

  • Word 2013

百度经验:jingyan.baidu.com

方法/步骤

  1. 1

    打开Word文档,按下【Alt + F11】 

    Word批量设置表格宽度自动适应页面宽度_第2张图片 步骤阅读
  2. 2

    在VBA编辑器窗口的左上方,双击【ThisDocument】

    Word批量设置表格宽度自动适应页面宽度_第3张图片 步骤阅读
  3. 3

    在右侧选择【Document】,再在其右侧下拉选择【Open】

    Word批量设置表格宽度自动适应页面宽度_第4张图片 步骤阅读
  4. 4

    然后在宏代码编辑窗口中,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

    Word批量设置表格宽度自动适应页面宽度_第5张图片 步骤阅读
  5. 5

    点击左上方的保存图标

    Word批量设置表格宽度自动适应页面宽度_第6张图片 步骤阅读
  6. 6

    在弹出的窗口中,点击【否】

     

    如果文档已经启用了宏,就不会出现这个提示对话框了

    Word批量设置表格宽度自动适应页面宽度_第7张图片 步骤阅读
  7. 7

    将文档另存为【启用宏的 Word 文档】,然后关闭VBA编辑器和当前文档

    Word批量设置表格宽度自动适应页面宽度_第8张图片 步骤阅读
  8. 8

    找到你刚刚保存的启用宏的Word文档,双击打开

    启用宏的Word文档的图标上,会有一个感叹号

    Word批量设置表格宽度自动适应页面宽度_第9张图片 步骤阅读
  9. 9

    点击【启用内容】,宏代码开始运行

    Word批量设置表格宽度自动适应页面宽度_第10张图片 步骤阅读
  10. 10

    您会发现,Word中的所有表格,都会自动调整其宽度与页面宽度一样啦

     

    而且表格中的内容都居中对齐了。

     

    如果不希望居中对齐,就将宏代码中的水平居中和垂直居中两行去掉

    Word批量设置表格宽度自动适应页面宽度_第11张图片 步骤阅读
    END

百度经验:jingyan.baidu.com

注意事项

  • VBA是office软件中强大的自动化语言,可以实现很多自动化的处理

  • 如果不喜欢用宏文件,可以将这个启用宏的Word文档另存为不启用宏的文档

转载于:https://www.cnblogs.com/jiangxin/p/5579885.html

你可能感兴趣的:(Word批量设置表格宽度自动适应页面宽度)