WORD文档中的宏代码操作（表格批量操作）

您所在的位置：网站首页 › word表格加黑 › WORD文档中的宏代码操作（表格批量操作）

WORD文档中的宏代码操作（表格批量操作）

2024-06-29 18:45:42| 来源: 网络整理| 查看: 265

编写word宏代码步骤

点击“视图” - “宏” 。

在这里插入图片描述

点击“录制宏”，填写宏名称（即函数名），选择保存位置，确定后，鼠标会变成录像带，再进行需要的操作后，点击停止录制，即完成操作录制。

在这里插入图片描述

点击“查看宏”，后可以看到录制后的宏名称，点击编辑可看到录制的代码也可修改代码。小妙招：可以通过录制宏，查看相关操作的代码（比如设置列宽时，不知道对应的列宽宏代码，可以先录制一个有设置列宽的宏，再打开查看）。

在这里插入图片描述

点击“查看宏” ，选择对应函数名，点击“运行”，就会进行代码运行。

在这里插入图片描述

几个宏代码

1. 选中word文档中的所有表格

Sub SelectAllTable() Dim tempTable As Table Application.ScreenUpdating = False '判断文档是否被保护' If ActiveDocument.ProtectionType = wdAllowOnlyFormFields Then MsgBox "文档已保护，此时不能选中多个表格！！" Exit Sub End If '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone '添加可编辑区域 For Each tempTable In ActiveDocument.Tables tempTable.Range.Editors.Add wdEditorEveryone Next '选中所有可编辑区域 ActiveDocument.SelectAllEditableRanges wdEditorEveryone '删除所有可编辑的区域 ActiveDocument.DeleteAllEditableRanges wdEditorEveryone Application.ScreenUpdating = True End Sub

效果：

在这里插入图片描述

2. 表格自动对齐窗口

Sub TableAutoDocument() Dim tempTable As Table Application.ScreenUpdating = False For Each oTable In ActiveDocument.Tables oTable.AutoFitBehavior (wdAutoFitWindow) Next MsgBox "完成！！" Application.ScreenUpdating = True End Sub

效果：所有表格自动对齐窗口

在这里插入图片描述

弹出框效果：

在这里插入图片描述

根据窗口调整表格

oTable.AutoFitBehavior (wdAutoFitWindow)

设置表格的样式

oTable.Style = “网格型”

弹出对话框，显示“完成！！”

MsgBox “完成！！”

3.使所有表格第一列内容居中

Sub oneColCenter() Dim Ta As Table For Each Ta In ActiveDocument.Tables '遍历每个表格 Ta.Columns(1).Select '选择第1列，选其他列改括号内的数字即可 Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Next End Sub

效果：所有表格第一列居中（尝试中：是第二个表格显示会有问题，但已经居中），并且光标选中为最后一个表格

在这里插入图片描述

选中表格第一列

Ta.Columns(1).Select

文字内容居中

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

相当于：在这里插入图片描述

4.选中表格第一列（有框）

Sub selectOneCol() Dim Ta As Table For Each Ta In ActiveDocument.Tables '遍历每个表格 Ta.Columns(1).Select '选择第1列，选其他列改括号内的数字即可 Selection.Editors.Add (wdEditorCurrent) ' 将所选内容添加到强加区域中 Next End Sub

效果：

在这里插入图片描述 4.统一所有表格列宽格式（设置表格指定列宽）

Sub modifyColWidth() Dim T As Table For Each T In ActiveDocument.Tables T.Columns(1).PreferredWidth = CentimetersToPoints(0.7) T.Columns(2).PreferredWidth = CentimetersToPoints(3.7) T.Columns(3).PreferredWidth = CentimetersToPoints(3.7) T.Columns(4).PreferredWidth = CentimetersToPoints(3.7) T.Columns(5).PreferredWidth = CentimetersToPoints(1.5) T.Columns(6).PreferredWidth = CentimetersToPoints(1.5) Next End Sub

效果：表格列宽按照代码中的数据设置在这里插入图片描述

相当于设置表格指定列宽：

在这里插入图片描述

注意点：统一调整列宽时，所有表格列数相同

【本文地址】

公司简介

联系我们

今日新闻

点击排行

实验室常用的仪器、试剂和: 说到实验室常用到的东西，主要就分为仪器、试剂和耗

不用再找了，全球10大实验: 01、赛默飞世尔科技（热电）Thermo Fisher Scientif

三代水柜的量产巅峰T-72坦: 作者：寞寒最近，西边闹腾挺大，本来小寞以为忙完这

通风柜跟实验室通风系统有: 说到通风柜跟实验室通风，不少人都纠结二者到底是不

集消毒杀菌、烘干收纳为一: 厨房是家里细菌较多的地方，潮湿的环境、没有完全密

实验室设备之全钢实验台如: 全钢实验台是实验室家具中较为重要的家具之一，很多

图片新闻

实验室药品柜的特性有哪些: 实验室药品柜是实验室家具的重要组成部分之一，主要

小学科学实验中有哪些教学: 计算机计算器一般打孔器打气筒仪器车显微镜

实验室各种仪器原理动图讲: 1.紫外分光光谱UV分析原理：吸收紫外光能量，引起分

高中化学常见仪器及实验装: 1、可加热仪器：2、计量仪器：（1）仪器A的名称：量

微生物操作主要设备和器具: 今天盘点一下微生物操作主要设备和器具，别嫌我啰嗦

浅谈通风柜使用基本常识: 　众所周知，通风柜功能中最主要的就是排气功能。在

WORD文档中的宏代码操作（表格批量操作）

WORD文档中的宏代码操作（表格批量操作）

今日新闻

点击排行

推荐新闻

图片新闻

专题文章