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

将5号或6号字体改为10.5号字体(循环10次)

AI复制的文案问题调整

js 复制代码
Sub Change5or6ptTo16pt_10Loops()
    Dim rng As Range
    Dim doc As Document
    Dim found As Boolean
    Dim i As Integer
    Dim totalChanges As Long
    Dim targetSizes As Variant
    Dim size As Variant
    
    Set doc = ActiveDocument
    totalChanges = 0
    targetSizes = Array(5, 6) ' 要查找的字体大小数组
    
    ' 外层循环10次
    For i = 1 To 10
        found = False
        
        ' 遍历所有目标字体大小(5号和6号)
        For Each size In targetSizes
            ' 遍历整个文档
            For Each rng In doc.StoryRanges
                Do
                    ' 查找指定大小的文本
                    With rng.Find
                        .ClearFormatting
                        .Font.Size = size
                        .Text = ""
                        .Forward = True
                        .Wrap = wdFindContinue
                        .Format = True
                        .Execute
                    End With
                    
                    ' 如果找到,则更改字体大小
                    If rng.Find.Found Then
                        found = True
                        totalChanges = totalChanges + 1
                        rng.Font.Size = 10.5
                    End If
                Loop While rng.Find.Found
            Next rng
        Next size
    Next i
    
    ' 显示结果
    If totalChanges > 0 Then
        MsgBox "已完成将所有5号和6号字体更改为16号字体。" & vbCrLf & _
               "共执行10次循环,总更改次数: " & totalChanges, vbInformation
    Else
        MsgBox "文档中没有找到5号或6号字体的文本。", vbInformation
    End If
End Sub
相关推荐
爱吃土豆的马铃薯ㅤㅤㅤㅤㅤㅤㅤㅤㅤ1 分钟前
如何使用Java WebSocket API实现客户端和服务器端的通信?
java·开发语言·websocket
Shartin6 分钟前
Can201-Introduction to Networking: Application Layer应用层
服务器·开发语言·php
共享家95271 小时前
linux_线程概念
linux·开发语言·jvm
apihz1 小时前
VM虚拟机全版本网盘+免费本地网络穿透端口映射实时同步动态家庭IP教程
android·服务器·开发语言·网络·数据库·网络协议·tcp/ip
小杨爱学习zb2 小时前
如何将公式图片转换为公式格式到wps/word里面
word
tanyongxi662 小时前
C++ Map 和 Set 详解:从原理到实战应用
开发语言·c++
干净的坏蛋2 小时前
Microsoft Word 中 .doc 和 .docx 的区别
microsoft·word
飒飒真编程2 小时前
C++类模板继承部分知识及测试代码
开发语言·c++·算法
CodeCraft Studio3 小时前
PPT处理控件Aspose.Slides教程:使用 C# 将 PPTX 转换为 EMF
c#·powerpoint·ppt·aspose·ppt格式转换
博睿谷IT99_3 小时前
华为数据通信网络基础
开发语言·华为·php·华为认证