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

相见是缘8 · 发表于 2019-5-11 09:07

tangqingfu 发表于 2019-5-11 08:02
对于没替换成功的内容（文档中红色标记），手动选中它们后，点工具栏的字体（arial）可以将它们改为arial ...

我在我的电脑上，对于你没替换成功的内容（文档中红色标记），手动选中它们后，点工具栏的字体（arial）将它们改为arial字体无效，显示的却还是宋体。

tangqingfu · 发表于 2019-5-11 14:25

相见是缘8 发表于 2019-5-11 09:07
我在我的电脑上，对于你没替换成功的内容（文档中红色标记），手动选中它们后，点工具栏的字体（arial） ...

我的手动可以改，郁闷
期待有好的解决办法

daibao88 · 发表于 2019-5-11 15:10

用Arial Unicode MS字体代替试试，字体相似吧

tangqingfu · 发表于 2019-5-11 16:04

daibao88 发表于 2019-5-11 15:10
用Arial Unicode MS字体代替试试，字体相似吧

谢谢！我主要是想搞清楚执行代码不能彻底替换的原因及其相关解决方案。

ming0018 · 发表于 2019-5-14 10:13

tangqingfu 发表于 2019-5-11 16:04
谢谢！我主要是想搞清楚执行代码不能彻底替换的原因及其相关解决方案。

保存成ＤＯＣＸ，再把后缀改成.zip格式，打开里面的document.xml，把所有的　w:hint="eastAsia"　删掉就可以了。最后再把.zip改回.docx，打开文档就可以正常用vba操作了。

tangqingfu · 发表于 2019-5-14 13:29

ming0018 发表于 2019-5-14 10:13
保存成ＤＯＣＸ，再把后缀改成.zip格式，打开里面的document.xml，把所有的　w:hint="eastAsia"　删掉就 ...

谢谢ming0018兄，打开document.xml后，怎么把含有w:hint="eastAsia"的文本内容删除，能否详细点说明吗？或者帮截个图
到这边卡住了，没找到可以删除或将其替换为空。

ming0018 · 发表于 2019-5-14 14:13

tangqingfu 发表于 2019-5-14 13:29
谢谢ming0018兄，打开document.xml后，怎么把含有w:hint="eastAsia"的文本内容删除，能否详细点说明吗？ ...

用txt打开，或者notepad++打开，找到后全部替换就行了

ming0018 · 发表于 2019-5-14 14:15

如图：：：：：：：：：：：：：：：：

tangqingfu · 发表于 2019-5-14 15:52

本帖最后由 tangqingfu 于 2019-5-14 16:03 编辑

ming0018 发表于 2019-5-14 14:15
如图：：：：：：：：：：：：：：：：

另存为docx后，将该docx文档替换成后缀名为zip后进行解压，在解压出的文件夹word中找到document.xml，选择打开方式为“记事本”，在打开的文件中查找所有的w:hint="eastAsia"　，替换为空后保存，再选择（之前解压出的）文件夹压缩成zip格式，并将后缀名重新改为docx，打开该文档，提示打开出错，不能打开

tangqingfu · 发表于 2019-5-14 16:17

ming0018 发表于 2019-5-14 14:15
如图：：：：：：：：：：：：：：：：

我的怎么和你的不一样，显示的是宋体

		自动登录	找回密码
密码			免费注册

[求助] 如何修改代码实现字体批量替换？