Question

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

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

Answer 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，可以用上面的代码。

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

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

追问

看不懂

追答

干的漂亮

追问

……

追答

把需要调整什么样的字体告诉我，把文件发这个用户名里。
我做一遍示范动作。