【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
相关推荐
future141210 分钟前
C#学习日记
开发语言·学习·c#
king_harry25 分钟前
Java程序-OceanBase Connector/J 示例
开发语言
傻啦嘿哟1 小时前
Python 办公实战:用 python-docx 自动生成 Word 文档
开发语言·c#
翻滚吧键盘1 小时前
js代码09
开发语言·javascript·ecmascript
q567315231 小时前
R语言初学者爬虫简单模板
开发语言·爬虫·r语言·iphone
rzl022 小时前
java web5(黑马)
java·开发语言·前端
时序数据说2 小时前
为什么时序数据库IoTDB选择Java作为开发语言
java·大数据·开发语言·数据库·物联网·时序数据库·iotdb
jingling5552 小时前
面试版-前端开发核心知识
开发语言·前端·javascript·vue.js·面试·前端框架
m0_687399843 小时前
写一个Ununtu C++ 程序,调用ffmpeg API, 来判断一个数字电影的视频文件mxf 是不是Jpeg2000?
开发语言·c++·ffmpeg
爱上语文3 小时前
Redis基础(5):Redis的Java客户端
java·开发语言·数据库·redis·后端