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

Question

我正在尝试通过MS Word中的宏导出具有4个数字的字符串。整个Macro运行得很好，但是，当我打开生成的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

Answer 1

在给您引入条形码的那部分文档中，给您的模板是否可能将字体粗细设置为粗体，从而修改了其显示方式？

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