请问如何用vba将word内符号从“中文(中国)”修改为“英文(美国)”？

9908006 · 发表于 2023-5-10 21:01

在word文档中，这个集合中的“属于”号，字体默认为中文下的“宋体”，在宋体下，这个符号很不好看，我想改成“Cambria Math”字体，用word的“字体”对话框是可以办到的，但是如果需要把所有“属于”号字符的字体都修改的话，一个个地改太难了，因此我想用VBA，试了试

With Selection.Font
      .NameFarEast = "Cambria Math"
      .NameAscii = "Cambria Math"
      .NameOther = "Cambria Math"
      .Name = "Cambria Math"

都不管用，后来想是不是因为这个“属于”号处于中文状态下，而"Cambria Math"字体只能用于英文状态呢？于是点开“语言”面板，把“中文(中国)”修改为“英文(美国)”，结果发现这个“属于”号变成了Cambria Math字体下的样子，所以想法是没错的，为此我录了宏，发现修改语言关键的代码是Selection.LanguageID = wdEnglishUS
Selection.NoProofing = False
Application.CheckLanguage = True
但是非常奇怪的是，用面板操作是可以修改成功的，但是执行录制的宏，却无法修改，请问是怎么回事呢？能不能请高手通过VBA的形式能让这个过程自动化进行？

样本.rar (40.43 KB, 下载次数: 4)

图片0000.jpg

Se

batmanbbs · 发表于 2023-5-10 23:20

本帖最后由 batmanbbs 于 2023-5-10 23:37 编辑

只要能替换成你需要的字体就行呗^_^
PS：现在发图片也要审核吗？？？

9908006 · 发表于 2023-5-11 08:15

batmanbbs 发表于 2023-5-10 23:20
只要能替换成你需要的字体就行呗^_^
PS：现在发图片也要审核吗？？？

经过测试，成功达到预期目的，感谢！

9908006 · 发表于 2023-5-11 08:16

果然还是思路最重要

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

[求助] 请问如何用vba将word内符号从“中文(中国)”修改为“英文(美国)”？