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

ming0018

tangqingfu 发表于 2019-5-14 16:17
我的怎么和你的不一样，显示的是宋体

前面什么字体无所谓了，后面的蓝色部分删掉就行了，保存后打不开，说明你破坏了ＸＭＬ的结构，没改正确。

tangqingfu

ming0018 发表于 2019-5-14 17:28
前面什么字体无所谓了，后面的蓝色部分删掉就行了，保存后打不开，说明你破坏了ＸＭＬ的结构，没改正确。

郁闷，老是改不对，能否把您改过的文档发上来给我测试？

xiaoyouxi01

在你的代码里，加一句这个代码就可以了~
ActiveDocument.Content.InsertXML Replace(ActiveDocument.Content.WordOpenXML, "w:hint=""eastAsia""", "")

tangqingfu

xiaoyouxi01 发表于 2019-5-14 21:45
在你的代码里，加一句这个代码就可以了~
ActiveDocument.Content.InsertXML Replace(ActiveDocument.Conte ...

谢谢xiaoyouxi01兄！
加入后运行代码提示：
编译错误：
方法和数据成员未找到
问题在：.WordOpenXML
请教如何解决，能否写出完成代码？

ming0018

tangqingfu 发表于 2019-5-15 08:04
谢谢xiaoyouxi01兄！
加入后运行代码提示：
编译错误：

1. Sub testSetFont()
   
2.     Dim doc As Document, Rng As Range
   
3.     Set doc = ActiveDocument
   
4.     doc.Content.InsertXML Replace(doc.Content.WordOpenXML, " w:hint=""eastAsia""", "")
   
5.     With doc.Content.Find
   
6.         .Text = "\/*\/"
   
7.         .MatchWildcards = True
   
8.         With .Replacement.Font
   
9.             .ColorIndex = wdBlue
   
10.             .name = "Arial"
    
11.             .NameAscii = "Arial"
    
12.         End With
    
13.         .Execute Replace:=wdReplaceAll
    
14.     End With
    
15. End Sub

复制代码

xiaoyouxi01的方法可行。直接运行我这段代码试一下。

tangqingfu

ming0018 发表于 2019-5-15 08:22
xiaoyouxi01的方法可行。直接运行我这段代码试一下。

还是会出现提示，请问该如何解决？

ming0018

tangqingfu 发表于 2019-5-15 09:53
还是会出现提示，请问该如何解决？

自己找原因，我们的没问题。

ming0018

可能是你的版本不支持这个方法，所以报错了。

xiaoyouxi01

tangqingfu 发表于 2019-5-15 08:04
谢谢xiaoyouxi01兄！
加入后运行代码提示：
编译错误：

你的WORD是啥版本？我的是2013，运行正常。

要不试下这句，Document对象也有WordOpenXML属性。
ActiveDocument.Content.InsertXML Replace(ActiveDocument.WordOpenXML, "w:hint=""eastAsia""", "")

或者先把文件另存为docx格式再试试。

tangqingfu

ming0018 发表于 2019-5-15 10:23
可能是你的版本不支持这个方法，所以报错了。

谢谢！2003不支持，2010可以