美文网首页
Word批量设置表格自动调整

Word批量设置表格自动调整

作者: 木木与呆呆 | 来源:发表于2020-10-22 10:33 被阅读0次

    1.说明

    通过使用Word的宏功能,
    批量设置表格,
    根据窗口自动调整表格,
    使所有表格的宽度和窗口一样,
    而不用一个一个手动调整表格。

    是一个批量处理程序命令,
    正确地运用它可以提高工作效率。
    微软的office软件允许用户编写,
    叫VBA的脚本来增加其灵活性,
    进一步扩充它的能力。
    如完打开Word同时要使用某个功能,
    可以编写一段称之为宏的脚本。

    2.查看宏

    依次点击:
    视图 -> 宏 -> 查看宏(V)
    或者使用快捷键查看宏:
    Alt + F8


    3.新建宏

    在查看宏的界面,
    为了新建一个宏,
    需要先输入宏名(M)
    AutoFitTableForWindow
    然后点击创建(C):


    打开VBA脚本编辑界面:

    4.开发宏

    初始的VBA脚本不实现任何功能:

    Sub AutoFitTableForWindow()
    '
    ' AutoFitTableForWindow 宏
    '
    '
    
    End Sub
    

    需要开发代码,
    实现打开指定Word文档,
    然后遍历文档中的所有表格,
    设置根据窗口自动调整表格,
    完整脚本内容如下:

    Sub AutoFitTableForWindow()
    '
    ' AutoFitTableForWindow 宏
    '
    '
    Dim oDoc As Document
    Dim oTable As Table
    Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文档.docx")
    For Each oTable In oDoc.Tables
    oTable.AutoFitBehavior(wdAutoFitWindow)
    Next
    MsgBox "完成!"
    
    End Sub
    

    5.运行宏

    宏开发完成后,
    再次进入查看宏界面,
    选择需要运行的宏,
    点击运行(R)即可:

    6.修改宏

    只要修改宏里面打开的文档名称,
    即可在不同的文档中,
    实现自动调整表格宽度的功能。
    这个宏只和指定的文档关联,
    运行宏的时候和当前打开的文档没有关系。

    Set oDoc = Documents.Open("C:\Users\yuwen\我的Word文档.docx")
    

    如果脚本有错误,比如指定的Word文档不存,
    运行时会弹出错误提示:


    点击调试(D)即可打开VBA脚本编辑器,
    定位和修改脚本问题。

    7.参考文档

    批量设置word表格根据窗口自动调整
    word宏

    相关文章

      网友评论

          本文标题:Word批量设置表格自动调整

          本文链接:https://www.haomeiwen.com/subject/ktsumktx.html