当前位置: 首页 > news >正文

【VBA/word】批量替换字体大小

将5号或6号字体改为10.5号字体(循环10次)
AI复制的文案问题调整


Sub Change5or6ptTo16pt_10Loops()Dim rng As RangeDim doc As DocumentDim found As BooleanDim i As IntegerDim totalChanges As LongDim targetSizes As VariantDim size As VariantSet doc = ActiveDocumenttotalChanges = 0targetSizes = Array(5, 6) ' 要查找的字体大小数组' 外层循环10次For i = 1 To 10found = False' 遍历所有目标字体大小(5号和6)For Each size In targetSizes' 遍历整个文档For Each rng In doc.StoryRangesDo' 查找指定大小的文本With rng.Find.ClearFormatting.Font.Size = size.Text = "".Forward = True.Wrap = wdFindContinue.Format = True.ExecuteEnd With' 如果找到,则更改字体大小If rng.Find.Found Thenfound = TruetotalChanges = totalChanges + 1rng.Font.Size = 10.5End IfLoop While rng.Find.FoundNext rngNext sizeNext i' 显示结果If totalChanges > 0 ThenMsgBox "已完成将所有5号和6号字体更改为16号字体。" & vbCrLf & _"共执行10次循环,总更改次数: " & totalChanges, vbInformationElseMsgBox "文档中没有找到5号或6号字体的文本。", vbInformationEnd If
End Sub
http://www.dtcms.com/a/200043.html

相关文章:

  • 深入解析分布式数据库TiDB:原理、优化与架构实践
  • 宏汇编以及浮点程序设计实验
  • 练习小项目5:基础计算器
  • 算法竞赛 Java 高精度 大数 小数 模版
  • 2025年即时通讯APP如何抵御DDoS攻击?全链路防御方案与实战解析
  • 5.19本日总结
  • Axure跨页面交互:利用IFrame和JS实现父子页面菜单联动
  • 如何快速更换电脑浏览器ip:教程与注意事项
  • 煤化工数字化关键一步:Modbus TCP转Profinet网关实现全流程通信兼容
  • 基于 Vue 和 Node.js 实现图片上传功能:从前端到后端的完整实践
  • Ubuntu服务器部署多语言项目(Node.js/Python)方式实践
  • 学习STC51单片机07(芯片为STC89C52RC)
  • arm64适配系列文章-第八章-第二节-arm64环境上seata的部署-手动构建1.4.2版本镜像
  • 使用 NGINX 的 `ngx_http_secure_link_module` 模块保护资源链接
  • APP小程序抓包和下游代理
  • HTTP 协议基础
  • JVM 垃圾回收器
  • 魔族密码--dp+map+substr
  • uniapp vue 开发微信小程序 分包梳理经验总结
  • 2024CCPC吉林省赛长春邀请赛 Java 做题记录
  • MAC常用操作整理
  • codeup添加流水线docker自动化部署
  • RSP-BSP-1
  • 使用 nvm 管理 Node.js 和 npm 版本
  • 《Effective Python》第三章 循环和迭代器——在遍历参数时保持防御性
  • 前端(vue)学习笔记(CLASS 6):路由进阶
  • Redis有哪些常用应用场景?
  • MySQL企业版免费开启,强先体验
  • 【Vue篇】潮汐中的生命周期观测站​
  • 深入掌握MyBatis:连接池、动态SQL、多表查询与缓存