Word批量设置表格自动调整
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表格的宽度呢.Word表格可根据窗口自动调整表格宽度,使得所有的表格宽度和页面宽度一样. 当页面设置了新的页边距后,所有的表格都需要调整新的宽度.或者文档中有许多大大小小的表格,希 ...
- 外部应用复制 表格 到word中 设置表格自适应
word 批量设置表格宽度自适应 描述 : 我们经常从 外部 如 excel,html 等其他文件 中复制的表格到word 文档 经常会出现在 word 中显示不全的问题 主要是源格式的表格 宽度比 ...
- word 使用宏批量设置表格
Sub ChangeTable() Application.Browser.Target = wdBrowseTable To ActiveDocument.Tables.Count ActiveDo ...
- word 批量修改表格格式
For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Cell(1, 1).Select With Selection . ...
- Office WORD如何设置表格背景颜色
1 点击表格-表格属性,边框和底纹. 2 选择应用于段落,这样只会应用于问题,效果不好. 3 选择应用于单元格可以避免上面的问题.
- MS WORD 表格自动调整列宽,自动变漂亮,根据内容自动调整 .
在MS WORD中,当有大量的表格出现时,调整每个表格的的高和宽和大小将是一件非常累的事情,拖来拖去,非常耗时间,而且当WORD文档达到300页以上时,调整反应非常的慢,每次拖拉线后,需要等待一段时间 ...
- Java 操作Word表格——创建嵌套表格、添加/复制表格行或列、设置表格是否禁止跨页断行
本文将对如何在Java程序中操作Word表格作进一步介绍.操作要点包括 如何在Word中创建嵌套表格. 对已有表格添加行或者列 复制已有表格中的指定行或者列 对跨页的表格可设置是否禁止跨页断行 创建表 ...
- SPSS输出结果如何在word中设置小数点前面显示加0
SPSS输出结果如何在word中设置小数点前面显示加0 在用统计分析软件做SPSS分析时,其输出的结果中,如果是小于1(绝对值)的数,那么会默认输出不带小数点的数值.例如0.362和 -0.141被显 ...
- delphi 设置表格样式。
//设置表格样式 wordDoc.Tables.Item(1).Borders.Item(Word.WdBorderType.wdBorderLeft).LineStyle = Word.WdLine ...
随机推荐
- Insert into select语句引发的生产事故
前言 Insert into select请慎用.这天xxx接到一个需求,需要将表A的数据迁移到表B中去做一个备份.本想通过程序先查询查出来然后批量插入.但xxx觉得这样有点慢,需要耗费大量的网络 ...
- Output of C++ Program | Set 1
Predict the output of below C++ programs. Question 1 1 // Assume that integers take 4 bytes. 2 #incl ...
- 【Service】【Web】【Middleware】Tomcat
1. 概念 1.1. 官方网站:tomcat.apache.org 1.2. tomcat的组件 <Server> <Service> <Connector/> & ...
- java客户端的elasticSearch索引库的相关操作
package com.hope.es;import org.elasticsearch.client.transport.TransportClient;import org.elasticsear ...
- mybatis的dao层和service层的编码设计的配置
/** 书写pojo类------>dao接口------>resources下建立同路径的dao.xml------>配置applicationContext.xml文件 **/ ...
- 9.Vue.js 监听属性
本章节,我们将为大家介绍 Vue.js 监听属性 watch,我们可以通过 watch 来响应数据的变化. 以下实例通过使用 watch 实现计数器: <div id = "app&q ...
- Mybatis-plus报Invalid bound statement (not found)错误
错误信息 org.springframework.security.authentication.InternalAuthenticationServiceException: Invalid bou ...
- Cyber Apocalypse 2021 pwn write up
Controller 考点是整数溢出和scanf函数的引发的栈溢出漏洞,泄露libc地址将返回地址覆盖成one_gadgets拿到shell. 1 from pwn import * 2 3 p = ...
- [BUUCTF]PWN——[V&N2020 公开赛]babybabypwn
[V&N2020 公开赛]babybabypwn 附件 步骤: 例行检查,64位程序,保护全开 本地试运行一下,看看程序的大概情况 64位ida载入,看一下main函数 sub_1202()函 ...
- Table.PromoteHeaders升降标题Table…Headers(Power Query 之 M 语言)
数据源: 任意数据源 目标: 将第一行提升为标题 操作过程: [主页](或[转换])>[将第一行用作标题] M公式: = Table.PromoteHeaders( 表, [PromoteAll ...