如何修改代码实现字体批量替换？

tangqingfu

请问如何修改代码将音标内的字体替换为西文字体Arial,用下面代码进行替换时，发现有一部分没替换成功（文档中红色标记）
Sub test()
Dim myRange As Range
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
Application.ScreenUpdating = False
  With myRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .MatchWildcards = True
    .Text = "\/*\/"
    .Replacement.Text = "^&"
    .Replacement.Font.Name = "Arial"
    .Execute Replace:=wdReplaceAll
  End With
Application.ScreenUpdating = True
End Sub

相见是缘8

你好！有不有可能你电脑内安装的 “Arial” 字体库，是精简版的，里面的含字量少了，用手动 “查找替代” 试一下，就可确认。

413191246se

唐兄提供的代码我测试后觉得没有问题，添加了一句颜色代码，唐兄重新测试一下吧！

1. Sub test()
   
2.     Dim myRange As Range
   
3.     Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
4.     Application.ScreenUpdating = False
   
5.     With myRange.Find
   
6.         .ClearFormatting
   
7.         .Replacement.ClearFormatting
   
8.         .MatchWildcards = True
   
9.         .Text = "\/*\/"
   
10.         .Replacement.Text = "^&"
    
11.         .Replacement.Font.Name = "Arial"
    
12.         .Replacement.Font.Color = wdColorRed '红色（本行代码可删除）
    
13.         .Execute Replace:=wdReplaceAll
    
14.     End With
    
15.     Application.ScreenUpdating = True
    
16. End Sub

复制代码

413191246se

唐兄请注意——原代码功能：如果未选定文字内容，则本宏选定全文；否则，如果已选定部分内容，则本宏处理已选定的这部分内容。虽然IIF函数我不会用，但我现在理解了这个函数，和 IF 函数差不多。——所以，是不是 唐兄 使用本宏前，已经勾选了部分文字内容了呢？那样的话，替换只能替换了部分文字了；必须是未选定任何字符后，才会全文替换。

tangqingfu

413191246se 发表于 2019-5-10 14:47
唐兄请注意——原代码功能：如果未选定文字内容，则本宏选定全文；否则，如果已选定部分内容，则本宏处理已 ...

谢谢413191246se兄，和是否选定区域无关。在我的电脑上运行代码，发现有一部分没替换成功（文档中红色标记），你们电脑上会出现这样的情况吗？会不会如相见是缘8兄所说的，我电脑内安装的 “Arial” 字体库，是精简版的？？？

tangqingfu

相见是缘8 发表于 2019-5-10 08:37
你好！有不有可能你电脑内安装的 “Arial” 字体库，是精简版的，里面的含字量少了，用手动 “查找替代”  ...

谢谢相见是缘8兄，在我的电脑上运行代码，会出现5楼这样的情况，难不成是精简版所致？您能发个你电脑上的 “Arial” 字体库给我测试吗？
我的邮箱:tangqingfu@126.com

413191246se

唐兄，我查看了 Arial 字体，发现只有英文小写、大写和数字。英语音标是国际音标，设置为 Arial 字体是否合理呢？之所以有些音标字符不能设置，我想是 Arial 字体不含这些音标字符的原因，就像设置汉字为 Arial 字体肯定无效。故断定不是字体出错了，是因为字体本身就不含这些字符。或请 唐兄 设置为其它字体试试，最好的办法是默认的 Times New Roman 比较好看。

相见是缘8

tangqingfu 发表于 2019-5-10 21:43
谢谢相见是缘8兄，在我的电脑上运行代码，会出现5楼这样的情况，难不成是精简版所致？您能发个你电脑上 ...

你好！我在我的电脑上测试你的代码及附件，结果和你一样，我电脑上安装的所有字体都是精简版的（10多 MB 的），前不久因我在处理“宋体”生僻字的时候，碰到类似的情况，后由chendeyan126 朋友，给了一个 39MB 的“宋体-方正超大字符集”，问题才得于解决，所以我只是猜你的情况会不会也有这种可能？

tangqingfu

相见是缘8 发表于 2019-5-11 07:34
你好！我在我的电脑上测试你的代码及附件，结果和你一样，我电脑上安装的所有字体都是精简版的（10多 MB  ...

对于没替换成功的内容（文档中红色标记），手动选中它们后，点工具栏的字体（arial）可以将它们改为arial字体，为什么用代码无法完全实现呢？对于大容量的文档，肯定要自动化才轻松，手动太累人了。

tangqingfu

413191246se 发表于 2019-5-10 23:44
唐兄，我查看了 Arial 字体，发现只有英文小写、大写和数字。英语音标是国际音标，设置为 Arial 字体是否合 ...

不是这个原因，选定不能替换的内容，点击工具栏的字体（arial）可以将它们改为arial字体。