UC知道word 宏 的问题
来源：百度知道 编辑：UC知道 时间：2024/05/14 05:59:44
我想把WORD中的英文字体全改掉就写了如下的宏：
Sub li()
a = ActiveDocument.Paragraphs.Count
b = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(a).Range.End).Words.Count
For i = 1 To 2
c= ActiveDocument.Words(i)
If "!$%^$&%&^%&^%^&%^&%" Then
With c
.Italic = True
.Font.Size = 24
End With
End If
Next
End Sub
就是红色部分不会，怎么判定被选中的是英文还是中文啊？？
Sub li()
a = ActiveDocument.Paragraphs.Count
b = ActiveDocument.Range(Start:=ActiveDocument.Paragraphs(1).Range.Start, End:=ActiveDocument.Paragraphs(a).Range.End).Words.Count
For i = 1 To 2
c= ActiveDocument.Words(i)
If "!$%^$&%&^%&^%^&%^&%" Then
With c
.Italic = True
.Font.Size = 24
End With
End If
Next
End Sub
就是红色部分不会，怎么判定被选中的是英文还是中文啊？？
不用这样麻烦吧。
WORD中“中文字体”与“西文字体”可以分别设定，互不影响。
选中全文，点“格式”->“字体”，点“字体”标签，左边第二项为“西文字体”，点击那个倒三角形，找到你要的西文字体，点“确定”就可以了。不会影响到中文字体的。