191问答库 > Wps中如何将已有的中文和英文改成自己想要的字体。有没有什么快捷的方式，比方说全选中文，或者全选英

Wps中如何将已有的中文和英文改成自己想要的字体。有没有什么快捷的方式，比方说全选中文，或者全选英

2025-05-20 23:39:32

推荐回答（1个）

回答1：

Sub abc()
Dim x As Range, i
For Each x In Selection
    For i = 1 To Len(x)
        If Mid(x, i, 1) Like "[a-z]" Or Mid(x, i, 1) Like "[A-Z]" Then
            x.Characters(i, 1).Font.Size = 8
            x.Characters(i, 1).Font.Name = "Arial Black"
        End If
    Next
Next
End Sub

如果是有VBA的WPS，可以用上面的代码。

先进行整体的字体设置，然后选择范围，运行代码对该区域的英文设置字体，

代码中的字体字号根据实际需求调整。