【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
相关推荐
eqwaak041 分钟前
科技信息差(8.26)
大数据·开发语言·人工智能·编辑器
黑客影儿2 小时前
在Godot中为您的游戏添加并控制游戏角色的完整技术指南
开发语言·游戏·游戏引擎·godot·gdscript·游戏开发·3d游戏
yaoxin5211232 小时前
168. Java Lambda 表达式 - 专用比较器
java·开发语言
shylyly_3 小时前
Linux->多线程3
java·linux·开发语言·阻塞队列·生产者消费者模型
yw00yw4 小时前
常见的设计模式
开发语言·javascript·设计模式
我不是星海4 小时前
RabbitMQ基础入门实战
java·开发语言
jingfeng5145 小时前
C++多态
开发语言·c++
kyle~5 小时前
C/C++---浮点数与整形的转换,为什么使用sqrt函数时,要给参数加上一个极小的小数(如1e-6)
c语言·开发语言·c++
暖苏6 小时前
python-多线程(笔记)(持续更新)
大数据·开发语言·python
The Chosen One9857 小时前
红黑树下探玄机:C++ map&multimap 的幕后之旅
开发语言·c++