Word 2007 VBA：ActiveDocument.CustomXMLParts 和下拉列表

Question

不确定将下拉列表内容控件正确绑定到 XML 文件的最佳方法：我得到的只是第一项。

我假设我必须遍历 XML 文档，计算项目数，然后相应地调用控件上的 .Add 方法，但我不确定如何在VBA。

这就是我所拥有的：

Dim ap As Document
Dim cnt As Integer
Set ap = ActiveDocument
cnt = ap.CustomXMLParts.Count + 1

ap.CustomXMLParts.Add
ap.CustomXMLParts(cnt).Load ("C:\test\Employees.xml")

Dim strXPath1 As String
strXPath1 = "/Employees/Employee/@name"
ActiveDocument.ContentControls(1).XMLMapping.SetMapping strXPath1

哪个（如预期）获得名字属性；只是不确定如何最好地从 XML 文档填充内容控制下拉列表（请参阅下面的 XML 文档）：

<?xml version="1.0"?>
<Employees> 
   <Employee name="Joe Blow">
     <Email>[email protected]</Email>
     <Extension>201</Extension>
   </Employee>
   <Employee name="Bob Smith">
     <Email>[email protected]</Email>
     <Extension>202</Extension>
   </Employee>
</Employees>

Answer 1

下拉列表与所有其他内容控件不同 - 您需要为它们使用架构：演练：将内容控件绑定到自定义 XML 部件。

不过，您需要开始这样的代码：

Sub BindtoDropDown()
    Dim ap As Document
    Set ap = ActiveDocument
    Dim cp As CustomXMLPart
    Set cp = ap.CustomXMLParts.Add
    cp.Load ("C:\Users\Me\Desktop\Employees.xml")
    Dim strXPath1 As String
    strXPath1 = "/Employees/Employee/@name"
    Dim ddCC As ContentControl
    Set ddCC = ap.ContentControls.Add(Type:=wdContentControlDropdownList)
    ddCC.XMLMapping.SetMapping (strXPath1)
End Sub

这只是在下拉列表中设置 Joe Blow，但不会填充其余条目。上面的链接将告诉您如何做到这一点。

开始使用内容控件和 XML 映射时要考虑使用的另一个重要项目是 Word 内容控件工具包。它位于此处。