WORD文档中的宏代码操作(表格批量操作))
编写word宏代码步骤
点击“视图” - “宏” 。
点击“录制宏”,填写宏名称(即函数名),选择保存位置,确定后,鼠标会变成录像带,再进行需要的操作后,点击停止录制,即完成操作录制。
点击“查看宏”,后可以看到录制后的宏名称,点击编辑可看到录制的代码也可修改代码。
小妙招:可以通过录制宏,查看相关操作的代码(比如设置列宽时,不知道对应的列宽宏代码,可以先录制一个有设置列宽的宏,再打开查看)。
点击“查看宏” ,选择对应函数名,点击“运行”,就会进行代码运行。
几个宏代码
1. 选中word文档中的所有表格
Sub SelectAllTable()Dim tempTable As TableApplication.ScreenUpdating = False'判断文档是否被保护'If ActiveDocument.ProtectionType = wdAllowOnlyFormFields ThenMsgBox "文档已保护,此时不能选中多个表格!!"Exit SubEnd If'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryone'添加可编辑区域For Each tempTable In ActiveDocument.TablestempTable.Range.Editors.Add wdEditorEveryoneNext'选中所有可编辑区域ActiveDocument.SelectAllEditableRanges wdEditorEveryone'删除所有可编辑的区域ActiveDocument.DeleteAllEditableRanges wdEditorEveryoneApplication.ScreenUpdating = TrueEnd Sub
效果:
2. 表格自动对齐窗口
Sub TableAutoDocument()Dim tempTable As TableApplication.ScreenUpdating = False For Each oTable In ActiveDocument.Tables oTable.AutoFitBehavior (wdAutoFitWindow) NextMsgBox "完成!!"Application.ScreenUpdating = TrueEnd Sub
效果:所有表格自动对齐窗口
弹出框效果:
- 根据窗口调整表格
oTable.AutoFitBehavior (wdAutoFitWindow)
- 设置表格的样式
oTable.Style = “网格型”
- 弹出对话框,显示“完成!!”
MsgBox “完成!!”
3.使所有表格第一列内容居中
Sub oneColCenter()Dim Ta As TableFor Each Ta In ActiveDocument.Tables '遍历每个表格Ta.Columns(1).Select '选择第1列,选其他列改括号内的数字即可Selection.ParagraphFormat.Alignment = wdAlignParagraphCenterNextEnd Sub
效果:所有表格第一列居中(尝试中:是第二个表格显示会有问题,但已经居中),并且光标选中为最后一个表格
- 选中表格第一列
Ta.Columns(1).Select
- 文字内容居中
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
相当于:
4.选中表格第一列(有框)
Sub selectOneCol()Dim Ta As TableFor Each Ta In ActiveDocument.Tables '遍历每个表格Ta.Columns(1).Select '选择第1列,选其他列改括号内的数字即可Selection.Editors.Add (wdEditorCurrent) ' 将所选内容添加到强加区域中NextEnd Sub
效果:
4.统一所有表格列宽格式(设置表格指定列宽)
Sub modifyColWidth()Dim T As Table For Each T In ActiveDocument.TablesT.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)NextEnd Sub
效果:表格列宽按照代码中的数据设置
相当于设置表格指定列宽:
注意点:统一调整列宽时,所有表格列数相同
WORD文档中的宏代码操作(表格批量操作))相关推荐
- 小菜鸟的Python笔记001:将Word文档中数据汇总到Excel表格
将Word文档中数据汇总到Excel表格 前言 一.应用场景 二.程序思路及准备工作 思路如下: 准备工作: 三.程序代码 1.主程序 2.获取Word文档列表 3.提取文档内数据 4.导入到Exce ...
- 使用iText在word文档中插入复杂的Table表格
iText是著名的开放源码的站点sourceforge一个项目,是用于生成PDF文档和word文档的一个java类库.通过iText不仅可以生成PDF或rtf 的文档,而且可以将XML.Html文件转 ...
- python操作word文档中的图片_Python操作word文档插入图片和表格的实例演示
前言P6Q免费资源网 图片是Word的一种特殊内容,这篇文章主要介绍了关于Python操作word文档,向里面插入图片和表格的相关内容,下面话不多说了,来一起看看详细的代码P6Q免费资源网 实例代码: ...
- 如何在Word文档中粘贴有行号的代码
我们如何在Word文档中粘贴的代码像下图所示: 第一步:进入网站:http://www.planetb.ca/syntax-highlight-word 第二步:将代码粘贴到如图所示的框内 第三步:选 ...
- 办公室小姐姐的福利!用Python批量提取word文档中的表格和图片内容
点上方"菜鸟学Python",选择"星标" 第491篇原创干货,第一时间送达 最近有许多小伙伴想要一些自动化办公的福利小程序,今天就满足大家的需求.日常的办公过 ...
- C# Word文档中插入、提取图片,文字替换图片
Download Files: http://www.c-sharpcorner.com/UploadFile/26b237/image-operations-using-word-document- ...
- Word处理控件Aspose.Words功能演示:使用 Java 在 MS Word 文档中进行邮件合并
Aspose.Words 是一种高级Word文档处理API,用于执行各种文档管理和操作任务.API支持生成,修改,转换,呈现和打印文档,而无需在跨平台应用程序中直接使用Microsoft Word.此 ...
- Word处理控件Aspose.Words功能演示:使用Java在MS Word文档中进行邮件合并
邮件合并是一种动态生成信件,信封,发票,报告和其他类型文档的便捷方法.使用邮件合并,您可以创建一个包含合并字段的模板文件,然后使用数据源中的数据填充这些字段. 假设您必须向20个不同的人发送一封信,并 ...
- 选择WORD文档中的所有表格宏代码
主要是把WORD文档中的所有表格选取上,以便单独对文档中的所有表格进行整体编辑,宏代码如下: '************************************** ' 函数名: Select ...
- Word处理控件Aspose.Words功能演示:使用 C# 在 Word 文档中创建和修改 VBA 宏
Aspose.Words 是一种高级Word文档处理API,用于执行各种文档管理和操作任务.API支持生成,修改,转换,呈现和打印文档,而无需在跨平台应用程序中直接使用Microsoft Word.此 ...
最新文章
- P4491 [HAOI2018]染色
- Excel组件DCOM配置
- 磁盘阵列上的文件访问不了--原因是lvm不能activate,解决办法
- 8年javascript总结
- 华为P40渲染图再曝光:果然是年度真旗舰
- Centos7 使用 chronyd 进行时钟同步
- 展望Spring野心-Spring资源定位
- UE4蓝图基础——蓝图介绍及实现数据计算并输出
- 基于matlab的mimo仿真,基于MATLAB的MIMO通信系统仿真报告.doc
- wxWidgets GUI 编程介绍
- android设置头像同时设置模糊背景
- Javascript变量、作用域与内存
- DJNZ指令:DJNZ R6,D2 ;
- 区块链:1、基础技术 哈希、数字签名、智能合约
- 【赠书】曾因「抢车位」出圈儿,神奇的Mask R-CNN了解一下?
- 工业CT检测技术及工业CT基本组成
- 计算机网页设计论文范文,计算机网页设计学论文参考文献 计算机网页设计专著类参考文献哪里找...
- “无代码”时代,离我们还有多远?
- Leetcode 994. 腐烂的橘子(DAY 262)---- 后端面试题(2020.1.5 华为机试真题)
- nginx之自动识别手机端和pc端