【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 小时前
C++继承
开发语言·c++
沿着路走到底2 小时前
python 基础
开发语言·python
沐知全栈开发3 小时前
C# 委托(Delegate)
开发语言
mit6.8243 小时前
[C# starter-kit] 命令/查询职责分离CQRS | MediatR |
java·数据库·c#
任子菲阳3 小时前
学Java第三十四天-----抽象类和抽象方法
java·开发语言
csbysj20204 小时前
如何使用 XML Schema
开发语言
R6bandito_4 小时前
STM32中printf的重定向详解
开发语言·经验分享·stm32·单片机·嵌入式硬件·mcu
earthzhang20214 小时前
【1007】计算(a+b)×c的值
c语言·开发语言·数据结构·算法·青少年编程
杨枝甘露小码4 小时前
Python学习之基础篇
开发语言·python
武文斌775 小时前
项目学习总结:LVGL图形参数动态变化、开发板的GDB调试、sqlite3移植、MQTT协议、心跳包
linux·开发语言·网络·arm开发·数据库·嵌入式硬件·学习