Word中未激活且无选中项的ActiveX ListBox如何打印到PDF？

问题重现步骤 #

• 新建Word文档，添加3个ActiveX ListBox控件
• 打开VBA编辑器，插入并运行以下宏：

Private Sub Document_Open()
    ListBox1.AddItem "one"
    ListBox1.AddItem "two"
    ListBox1.AddItem "three"  
  
    ListBox2.AddItem "a"
    ListBox2.AddItem "b"
    ListBox2.AddItem "c"

    ListBox3.AddItem "x"
    ListBox3.AddItem "y"
    ListBox3.AddItem "z"
    ListBox3.Activate
End Sub

现象 #

将文档导出为PDF时，Word界面中所有ListBox都显示填充内容，但仅激活状态的ListBox3（含x、y、z）能在PDF中正常显示；未激活且无选中项的ListBox1、ListBox2显示为空。若手动选中ListBox1中的某一项，它能正常打印且选中项显示蓝色，但未选中的ListBox2仍为空。Word自带PDF导出功能、Foxit Reader插件均出现此问题。

原因分析 #

Word的PDF导出引擎对未激活且无选中状态的ActiveX ListBox，不会主动渲染其列表内容。只有当控件处于激活状态，或存在用户选中项时，才会触发内容渲染流程，导出PDF时才能正确识别这些内容。

解决方案 #

方案1：强制激活所有ListBox触发渲染

修改VBA代码，在填充完所有ListBox后，依次激活每个控件再将焦点移回文档，确保每个控件的内容都被渲染：

Private Sub Document_Open()
    ListBox1.AddItem "one"
    ListBox1.AddItem "two"
    ListBox1.AddItem "three"  
  
    ListBox2.AddItem "a"
    ListBox2.AddItem "b"
    ListBox2.AddItem "c"

    ListBox3.AddItem "x"
    ListBox3.AddItem "y"
    ListBox3.AddItem "z"
    
    ' 逐个激活控件，触发内容渲染
    ListBox1.Activate
    ListBox2.Activate
    ListBox3.Activate
    ' 将焦点移回文档，避免控件保持激活状态
    ActiveDocument.ActiveWindow.SetFocus
End Sub

运行该宏后再导出PDF，所有ListBox的内容都会正常显示。

方案2：替换为Word原生ContentControl下拉框（更稳定）

如果不需要ActiveX控件的特殊功能，推荐使用Word内置的下拉列表内容控件，它不存在ActiveX的PDF渲染兼容性问题：

1. 点击「开发工具」选项卡 → 「控件」组 → 插入「下拉列表内容控件」（重复3次，对应原3个ListBox）
2. 用以下VBA代码填充内容：

Private Sub Document_Open()
    Dim cc As ContentControl
    
    ' 填充第一个下拉内容控件
    Set cc = ActiveDocument.ContentControls(1)
    With cc.DropdownListEntries
        .Add "one"
        .Add "two"
        .Add "three"
    End With
    
    ' 填充第二个下拉内容控件
    Set cc = ActiveDocument.ContentControls(2)
    With cc.DropdownListEntries
        .Add "a"
        .Add "b"
        .Add "c"
    End With
    
    ' 填充第三个下拉内容控件
    Set cc = ActiveDocument.ContentControls(3)
    With cc.DropdownListEntries
        .Add "x"
        .Add "y"
        .Add "z"
    End With
End Sub

原生控件在PDF导出时会直接渲染所有选项内容，无需额外处理。

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