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批量设置表格自动调整的更多相关文章

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

    怎么批量修改Word表格的宽度呢.Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样. 当页面设置了新的页边距后,所有的表格都需要调整新的宽度.或者文档中有许多大大小小的表格,希 ...

  2. 外部应用复制 表格 到word中 设置表格自适应

    word 批量设置表格宽度自适应 描述 : 我们经常从 外部 如 excel,html 等其他文件 中复制的表格到word 文档 经常会出现在 word 中显示不全的问题 主要是源格式的表格 宽度比 ...

  3. word 使用宏批量设置表格

    Sub ChangeTable() Application.Browser.Target = wdBrowseTable To ActiveDocument.Tables.Count ActiveDo ...

  4. word 批量修改表格格式

    For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Cell(1, 1).Select With Selection . ...

  5. Office WORD如何设置表格背景颜色

    1 点击表格-表格属性,边框和底纹. 2 选择应用于段落,这样只会应用于问题,效果不好. 3 选择应用于单元格可以避免上面的问题.

  6. MS WORD 表格自动调整列宽,自动变漂亮,根据内容自动调整 .

    在MS WORD中,当有大量的表格出现时,调整每个表格的的高和宽和大小将是一件非常累的事情,拖来拖去,非常耗时间,而且当WORD文档达到300页以上时,调整反应非常的慢,每次拖拉线后,需要等待一段时间 ...

  7. Java 操作Word表格——创建嵌套表格、添加/复制表格行或列、设置表格是否禁止跨页断行

    本文将对如何在Java程序中操作Word表格作进一步介绍.操作要点包括 如何在Word中创建嵌套表格. 对已有表格添加行或者列 复制已有表格中的指定行或者列 对跨页的表格可设置是否禁止跨页断行 创建表 ...

  8. SPSS输出结果如何在word中设置小数点前面显示加0

    SPSS输出结果如何在word中设置小数点前面显示加0 在用统计分析软件做SPSS分析时,其输出的结果中,如果是小于1(绝对值)的数,那么会默认输出不带小数点的数值.例如0.362和 -0.141被显 ...

  9. delphi 设置表格样式。

    //设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLine ...

随机推荐

  1. Insert into select语句引发的生产事故

    前言   Insert into select请慎用.这天xxx接到一个需求,需要将表A的数据迁移到表B中去做一个备份.本想通过程序先查询查出来然后批量插入.但xxx觉得这样有点慢,需要耗费大量的网络 ...

  2. Output of C++ Program | Set 1

    Predict the output of below C++ programs. Question 1 1 // Assume that integers take 4 bytes. 2 #incl ...

  3. 【Service】【Web】【Middleware】Tomcat

    1. 概念 1.1. 官方网站:tomcat.apache.org 1.2. tomcat的组件 <Server> <Service> <Connector/> & ...

  4. java客户端的elasticSearch索引库的相关操作

    package com.hope.es;import org.elasticsearch.client.transport.TransportClient;import org.elasticsear ...

  5. mybatis的dao层和service层的编码设计的配置

    /** 书写pojo类------>dao接口------>resources下建立同路径的dao.xml------>配置applicationContext.xml文件 **/ ...

  6. 9.Vue.js 监听属性

    本章节,我们将为大家介绍 Vue.js 监听属性 watch,我们可以通过 watch 来响应数据的变化. 以下实例通过使用 watch 实现计数器: <div id = "app&q ...

  7. Mybatis-plus报Invalid bound statement (not found)错误

    错误信息 org.springframework.security.authentication.InternalAuthenticationServiceException: Invalid bou ...

  8. Cyber Apocalypse 2021 pwn write up

    Controller 考点是整数溢出和scanf函数的引发的栈溢出漏洞,泄露libc地址将返回地址覆盖成one_gadgets拿到shell. 1 from pwn import * 2 3 p = ...

  9. [BUUCTF]PWN——[V&N2020 公开赛]babybabypwn

    [V&N2020 公开赛]babybabypwn 附件 步骤: 例行检查,64位程序,保护全开 本地试运行一下,看看程序的大概情况 64位ida载入,看一下main函数 sub_1202()函 ...

  10. Table.PromoteHeaders升降标题Table…Headers(Power Query 之 M 语言)

    数据源: 任意数据源 目标: 将第一行提升为标题 操作过程: [主页](或[转换])>[将第一行用作标题] M公式: = Table.PromoteHeaders( 表, [PromoteAll ...