word文档中宏的使用(使用VBA批量修改表格样式)

1. 找到工具栏中“视图-》宏


2. 选择“查看宏

3. 创建/编辑宏

4. 修改“表格背景和设定字体大小”代码

如图:

代码块: 

Sub 修改表格字体()
'
' 修改表格字体 宏
'
'
For i = 1 To ActiveDocument.Tables.CountDim t As TableSet t = ActiveDocument.Tables(i)With t'断开活动文档的第1个表格的域的链接.Range.Fields.Unlink'关于字体的各项设置,可以通过录制宏得到
'    Range.Font 属性
'    返回或设置 Font 对象,该对象代表指定对象的字符格式With .Range.Font.NameFarEast = "宋体" '中文字体.NameAscii = "宋体" '西文字体.Size = 10.5 '字号End WithWith t.Rows(1).Shading.BackgroundPatternColor = wdColorWhite '设置第一行的背景颜色为白色End WithEnd With
Next i
End Sub

5. “运行”,运行中有错误会提示

文档有些较大的,运行时间教长,需要耐心等待~

其他代码可参考

1)设置表格的字体

Sub 设置表格的字体()Dim t As TableSet t = ActiveDocument.Tables(1)With t'断开活动文档的第1个表格的域的链接.Range.Fields.Unlink'关于字体的各项设置,可以通过录制宏得到
'    Range.Font 属性
'    返回或设置 Font 对象,该对象代表指定对象的字符格式With .Range.Font.NameFarEast = "宋体" '中文字体.NameAscii = "Times New Roman" '西文字体.Bold = False '字形 不加粗.Italic = False '字形 不是斜体.Size = 9 '字号.ColorIndex = wdBlack '字体颜色.Underline = wdUnderlineNone '下划线 无.UnderlineColor = wdColorBlack '下划线 颜色.EmphasisMark = wdEmphasisMarkNone '着重号.StrikeThrough = False '删除线.DoubleStrikeThrough = False '双删除线.Superscript = False '字体格式 上标.Subscript = False '字体格式 下标.SmallCaps = False '小型大写字母 字母的形状和大写字母相同但尺寸较小.AllCaps = False '全部大写字母 如果为true 字母全部大写.Hidden = False '隐藏 如果设置为true,打印的时候看不到End WithEnd With
End Sub

2)设置表格的局部的字体

Sub 设置表格的第一行的字体()'第一行的字体加粗Dim t As TableSet t = ActiveDocument.Tables(1)With t.Rows(1).Range.Font.Bold = True '字形 加粗.Size = 10.5 '字号End With
End Sub

3)设置表格边框

注:本部分样式代码原文地址:使用宏设置word中的表格样式_Sheyueyu的博客-CSDN博客

Sub SetTableBorders()'遍历所有表格For Each tbl In ActiveDocument.Tables'设置表格顶部和底部边框为1.5tbl.Borders(wdBorderTop).LineStyle = wdLineStyleSingletbl.Borders(wdBorderTop).LineWidth = wdLineWidth150pttbl.Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.Borders(wdBorderBottom).LineWidth = wdLineWidth150pt'设置第二行的上下边框为0.75tbl.Rows(2).Borders(wdBorderTop).LineStyle = wdLineStyleSingletbl.Rows(2).Borders(wdBorderTop).LineWidth = wdLineWidth075pttbl.Rows(2).Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.Rows(2).Borders(wdBorderBottom).LineWidth = wdLineWidth075pt'遍历表格中除了第一行和最后一行以外的其余行For i = 3 To tbl.Rows.Count - 1tbl.Rows(i).Borders(wdBorderTop).LineStyle = wdLineStyleNonetbl.Rows(i).Borders(wdBorderBottom).LineStyle = wdLineStyleNoneNext i'设置第一行下的边框为0.75tbl.Rows(1).Borders(wdBorderBottom).LineStyle = wdLineStyleSingletbl.Rows(1).Borders(wdBorderBottom).LineWidth = wdLineWidth075pt'隐藏表格的列边框For j = 1 To tbl.Columns.Counttbl.Columns(j).Borders(wdBorderLeft).LineStyle = wdLineStyleNonetbl.Columns(j).Borders(wdBorderRight).LineStyle = wdLineStyleNoneNext jNext tbl
End Sub

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.rhkb.cn/news/176522.html

如若内容造成侵权/违法违规/事实不符,请联系长河编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

我的架构复盘

1、背景 我目前公司研发中心担任软件研发负责人,研发中心分为3组,总共有30多人。研发中心主要开发各类生产辅助工具,比如巡检、安全教育等系统。系统不对外,只在公司内部使用。 就我个人来说,作为研发负责人&#xf…

【STL】:list用法详解

朋友们、伙计们,我们又见面了,本期来给大家解读一下有关list的使用,如果看完之后对你有一定的启发,那么请留下你的三连,祝大家心想事成! C 语 言 专 栏:C语言:从入门到精通 数据结构…

【嵌入式项目应用】__用于搭建调试输出、建立时间系统的嵌入式框架“Zorb Framework”

目录 一、什么是Zorb? 二、嵌入式环境搭建 三、调试输出 四、实现断言 五、建立时间系统 六、结束语 (* ̄︶ ̄)创作不易!期待你们的 点赞、收藏和评论喔。 一、什么是Zorb? Zorb Framework是一个基于面向对象的思…

数据库的事务四大特性(ACID)、详解隔离性以及隔离级别、锁

文章目录 🎉数据库的事务四大特性(ACID)以及隔离性一、事务的四大特性✨1、原子性(Atomicity)🎊2、一致性(Consistency)🎊3、隔离性(Isolation)&a…

双十一首日捷报 | 德施曼率先破亿,再度蝉联智能锁品类第一

10月31日晚8:00,各大平台迎来了双十一第一波现货开售。其中,在智能锁类目中德施曼势头最为迅猛,此前,德施曼凭借“全民换锁季”主题活动,在预售期间就已经全面引爆消费者换锁热潮,随着此次现货开售&#xf…

Linux内存管理的分页机制

分段机制的原理如下: 分段机制下的虚拟地址由两部分组成,段选择子和段内偏移量。段选择子就保存在段寄存器里面。段选择子里面最重要的是段号,用作段表的索引。段表里面保存的是这个段的基地址、段的界限和特权等级等。虚拟地址中的段内偏移量…

bitlocker恢复保护时出现 驱动器加密错误 向导初始化失败 系统找不到指定文件

环境: Win 10专业版 联想E14 Gen2 问题描述: bitlocker恢复保护时出现 驱动器加密错误 向导初始化失败 系统找不到指定文件 电脑更换主板后,重新恢复保护出现 驱动器加密错误 解决方案: 1.尝试重启电脑(未解决&a…

Java进阶(List)——面试时List常见问题解读 结合源码分析

前言 List、Set、HashMap作为Java中常用的集合,需要深入认识其原理和特性。 本篇博客介绍常见的关于Java中List集合的面试问题,结合源码分析题目背后的知识点。 关于的Set的博客文章如下: Java进阶(Set)——面试时…

PowerToys使用:Windows自定义键盘(非编程)

使用紧凑型键盘或者苹果键盘有时候觉得挺麻烦,常用的键偏偏没有,特别是苹果键盘,没有【del】键,非常非常不爽。 笔记本电脑用久了,难免弄坏一两个键,比如【s】键,维修挺麻烦的,换新太…

爬虫 | 【实践】百度搜索链接爬取,生成标题词云 | 以“AI换脸”为例

目录 📚链接爬取 🐇流程梳理 🐇代码实现 🐇结果 📚词云生成 🐇代码实现 🐇结果 📚链接爬取 🐇流程梳理 总体流程是:构建搜索链接 -> 发送HTTP请求…

脉冲输出的三种模式

1.脉冲 方向 2.CW/CCW 3.A/B相(AB正交脉冲) 脉冲输出模式: 是指控制信号是单脉冲方式还是双脉冲方式,主要由控制器决定; 如果控制器发送的控制脉冲是单脉冲控制方式,驱动器需要采用单脉冲&#xff1b…

为什么要安装防静电门禁闸机

安装防静电门禁闸机可以带来以下几个方面的好处: 防止静电干扰:静电是一种非常危险的物理现象,它可以对电子元器件、电路板和其他敏感设备造成损害,甚至导致设备故障和生产中断。防静电门禁闸机可以有效地防止静电的产生和传导&am…

Spring Security 中自定义权限表达式

Spring Security 中自定义权限表达式 一. SpEL中使用自定义Bean二. 通过类继承自定义权限表达式2.1 自定义 ExpressionRoot 三. 参考文章 前言 这是我在这个网站整理的笔记,有错误的地方请指出,关注我,接下来还会持续更新。 作者:神的孩子都在…

Linux学习第27天:Platform设备驱动开发(一): 专注与分散

Linux版本号4.1.15 芯片I.MX6ULL 大叔学Linux 品人间百味 思文短情长 专注与分散是我在题目中着重说明的一个内容。这是今天我们要学习分离与分层概念的延伸。专注是说我们要专注某层驱动的开发,而对于其他层则是芯片厂商…

robot framework导入库和资源

robot framework导入库和资源 一 导入系统库和第三方库(Library)二 导入自己写的py文件三 建立资源作为关键字3.1 创建资源3.2 在资源里创建用户关键字3.3 使用用户关键字 四 将自己写的py文件中类的函数作为关键字4. 1编写py文件,文件名和里…

搭建VM虚拟机+Centos7 Oracle版 + 配置ssh + Xftp + secureCRT

文章目录 1 视频地址1.1 基本参数1.2 ISO下载地址:1.3 开启ssh1.3.1 使用root用户进行1.3.2 修改ssh配置1.3.3 关闭 SELINUX 2 查询虚拟机的ip2.1 联网2.2 桌面打开终端查询虚拟机ip 3 连接Xftp4 连接SecureRT 1 视频地址 01-搭建VM虚拟机Centos7 Oracle版 配置ss…

计算机网络-IP地址

文章目录 子网划分定长子网划分子网划分的方法子网掩码 可变长子网划分 无类别编址网络前缀路由聚合 特殊用途的IP地址专用网络地址链路本地地址运营商级NAT共享地址用于文档的测试网络地址 IP地址的规划和分配IP地址的规划和分配方法IP地址的规划和分配实例 子网划分 定长子网…

基于未来搜索算法的无人机航迹规划-附代码

基于未来搜索算法的无人机航迹规划 文章目录 基于未来搜索算法的无人机航迹规划1.未来搜索搜索算法2.无人机飞行环境建模3.无人机航迹规划建模4.实验结果4.1地图创建4.2 航迹规划 5.参考文献6.Matlab代码 摘要:本文主要介绍利用未来搜索算法来优化无人机航迹规划。 …

装备制造行业云MES解决方案

一、装备制造行业发展现状: 机械制造业主要是通过对金属原材料物理形状的改变、加工组装进而成为产品。机械制造业生产的主要特点是:离散为主、流程为辅、装配为重点。 工业生产基本上分为两大方式: 1.离散型:离散型是指以一个…

《数据安全与流通:技术、架构与实践》新书发布

随着数据成为关键生产资料和要素,国内外数据安全相关的法律法规在快速完善,数据安全技术也在快速发展。5月25-26日,由星环科技、上海数据交易所、上海大数据联盟、财联社联合主办的向星力未来数据技术峰会 (FDTC)上&am…