使用Microsoft Word VBA生成Code 128条码安装字体后显示希腊字母乱码问题

• 核心原因是你使用的第三方Code 128字体的字符映射规则和你VBA代码的输出编码不匹配。你当前用的这款字体没有将Code 128的条码符号映射到ASCII 200+的高位区间，反而将这些编码位的字形定义为了希腊字母，因此你VBA输出的Ì、Î这类高位ASCII字符，应用字体后就会显示为希腊字母，完全不符合条码的条块要求，自然无法被识别。
• 补充问题：你的VBA代码存在两处笔误：一是函数定义的参数名为SourceStruing，但后续逻辑中调用的变量是SourceString；二是插入条码的代码里Selection.TypeTest应为Selection.TypeText，未修正的话会直接触发运行报错。
• 额外触发原因：VBA的Chr函数输出依赖系统默认代码页，未安装对应字体时，Word会调用系统默认字体渲染高位ASCII为西欧字符，刚好符合普通扫码软件对Code 128原始编码的识别规则，所以没装字体的时候反而能扫出来。

• 更换适配的Code 128字体：选择字符映射符合「Code 128 B模式条码符号映射到ASCII 128~210区间」规则的字体，就能直接兼容你现有VBA代码的输出。
• 适配现有字体：查找你当前使用的这款Code 128字体的字符映射表，将代码中的起始符Chr(204)、终止符Chr(206)以及校验位的偏移规则修改为字体对应的编码值即可。
• 规避字体依赖：可以直接用VBA生成条码图片插入Word，或者调用Office自带的条码控件生成条码，不会出现字体兼容问题。

内容的提问来源于stack exchange，提问作者TheSettler85