Vba 从MS Word中的Visual Basic宏导出到PDF的条形码错误

我试图通过MS Word中的宏导出一个有4个数字的字符串。整个宏运行正常，但是，当我打开生成的PDF时，我看到显示的条形码似乎已损坏

结果是：

在宏中，我选择要格式化的文本，并将字体更改为“Free 3 of 9 Extended”

我尝试过用“*”字符包装这个数字，但没有成功。也试过“！”。所有这些似乎都不起作用。有趣的是，如果我打开Word文档并使用相同字体键入相同的数字，就会显示一个清晰的条形码：

这是我在MS Word中直接使用相同字体书写相同字符时看到的，这是我看到的（这是我希望在PDF导出中实现的）

“我的宏”将导出为PDF，代码如下：

Public Function guardar(id As String) As String
  Dim path As String
  guardar = id
  obj_Word.ActiveDocument.ExportAsFixedFormat OutputFileName:=guardar, 
  OptimizeFor:=wdExportOptimizeForPrint, UseISO19005_1:=True, 
  IncludeDocProps:=True, KeepIRM:=True, ExportFormat:=wdExportFormatPDF
End Function

---

您收到的模板是否可能正在文档中引入条形码的部分中将字体权重设置为粗体，从而修改其显示方式

---

我想不出任何其他理由。您正在发布的代码似乎不是罪魁祸首。

您收到的模板是否可能正在文档中引入条形码的部分中将字体权重设置为粗体，从而修改其显示方式

---

我想不出任何其他理由。您发布的代码似乎不是罪魁祸首。

请包含问题涉及的全部代码。缺少应用该格式的宏。我还建议您在手动键入和格式化宏的同时录制宏，然后小心地将其与您已有的代码进行比较。我记得你在另一篇文章中提到，你输入了错误的字体名称，例如……了解条形码是如何生成的会很有帮助——是基于字体的吗？这是放在Word中的图像吗？请包括问题涉及的全部代码。缺少应用该格式的宏。我还建议您在手动键入和格式化宏的同时录制宏，然后小心地将其与您已有的代码进行比较。我记得你在另一篇文章中提到，你输入了错误的字体名称，例如……了解条形码是如何生成的会很有帮助——是基于字体的吗？这是放在Word中的图像吗？请点击！我检查了模板，那一段文字是粗体的。将其更改回正常重量，代码条显示良好。好样的！谢谢完全正确我检查了模板，那一段文字是粗体的。将其更改回正常重量，代码条显示良好。好样的！谢谢