word字号

晨晓之黎

全文字号小于15.9号，统一改为14号，大于16号以上不变，谁能帮忙写VBA？谢谢！

z9bhd

Sub lx字体更改()
    Dim p As Paragraph, wd As Document
        Set wd = ThisDocument
        For Each p In wd.Paragraphs
            If Len(p.Range) > 1 Then
                a = p.Range.Font.Size
                If a < 15.9 Then p.Range.Font.Size = 14
            End If
        Next
End Sub

z9bhd

YXC11_LoBDQ_LAC.zip (196.56 KB, 下载次数: 4)

2021-4-19 19:40 上传

点击文件名下载附件

晨晓之黎

z9bhd 发表于 2021-4-19 19:36
Sub lx字体更改()
    Dim p As Paragraph, wd As Document
        Set wd = ThisDocument

感谢帮助！测试结果，有的小字号没统一改为14号字，还有，可以不可以到模块运行？我这里还有很多文件，方便通用模板使用

z9bhd

没发现还有漏网之鱼，我再瞅瞅

z9bhd

晨晓之黎 发表于 2021-4-20 09:04
感谢帮助！测试结果，有的小字号没统一改为14号字，还有，可以不可以到模块运行？我这里还有很多文件 ...

Sub lx字体更改()
    Dim p As Paragraph, wd As Document
        Set wd = ActiveDocument '把原来的"thisDocument""ActiveDocument"
        For Each p In wd.Paragraphs
            If Len(p.Range) > 1 Then
                a = p.Range.Font.Size
                If a < 15.9 Or a > 72 Then p.Range.Font.Size = 14 '这里添加一个判断"a > 72"试试
            End If
        Next
End Sub