为什么设置字体的VBA宏对有的有效有的无效？

ssq1109

附件中的文档录入时没理会字体，故均为“宋体”，完后运行下面的宏将西文设置为Times New Roman体，但对有的有效有的无效（见附件文档）。我的电脑配置：32位Win 7＋Office 2007专业增强版。是什么原因呢？怎样做才都有效？
Sub SetFont()
'
    Dim fontRange As Range
    Set fontRange = ActiveDocument.Content
    fontRange.Font.Name = "Times New Roman"

End Sub

daibao88

加个查找西文试试，替换格式字体

413191246se

中文字体 .NameFarEast="宋体"
西文字体 .NameAscii="Times New Roman"
全部设为中文字体 .Name="宋体"
全部设为西文字体，不可能！因为汉字是不能设为西文字体的。

ssq1109

其实，我的目的不仅仅针对半角西文字符，还要将全角希腊字符如θ、α、β，还有数学符号如′、″等变成半角显示，运行VBA宏后主要是这些全角字符有的改成了半角，有的又没有（如附件文档中同样是θ就是这样）。如果是全角显示，既丑又不规范。所以根据楼上2位修改没任何意义。
还有，我上面的VBA宏还会“误伤”一些字符，如单双引号，≥、≤等，更奇怪的是这些字符有的变成半角的，有的又没变（见附件）。所以，我还会下面的宏规范。
  '将指定的全角字符设成宋体
    Dim myFunction() As Variant, aArray As Variant
    '指定更改内容,如果需要,可以扩充数组
    myFunction = Array("“", "”", "‘", "’", "↑", "↓", "→", "←", "≥", "≤", "…", "○", "□", _
    "―", "×")
   '将指定内容文本改为宋体
    With ActiveDocument.Content.Find
        For Each aArray In myFunction
            .ClearFormatting
            .MatchCase = False
            .MatchCase = True
            .Text = aArray
            With .Replacement
                .ClearFormatting
                .Font.Name = "宋体"
            End With
            .Execute Replace:=wdReplaceAll
        Next
    End With

daibao88

Sub SetFont()
    Dim fontRange As Range
    Set fontRange = ActiveDocument.Content
    fontRange.Font.NameFarEast = "宋体"
    fontRange.Font.NameAscii = "Times New Roman"
    fontRange.Font.NameOther = "Times New Roman"
End Sub

413191246se

楼主也可以提供附件，供大家研究。

ssq1109

413191246se 发表于 2019-6-17 01:45
楼主也可以提供附件，供大家研究。

我最开始就提供了附件呀

ssq1109

daibao88 发表于 2019-6-16 21:45
Sub SetFont()
    Dim fontRange As Range
    Set fontRange = ActiveDocument.Content

没作用，一样有很多全角希腊字符变不了半角

ssq1109

413191246se 发表于 2019-6-16 14:11
中文字体 .NameFarEast="宋体"
西文字体 .NameAscii="Times New Roman"
全部设为中文字体 .Name="宋体"

谁说不可能？你看我的附件中就有不少全角希腊字符变成了半角。我奇怪的是有的变了半角，但有的又没有变。

zhanglei1371

这个之前tangqingfu已经问过了。可以搜索他的主题，找下。需要用vba替换xml部分的一段语句就可以了。