xmlMapping.SetMapping 方法 (Word)
允许创建或更改的内容控件的 XML 映射。 如果 Microsoft Word 将内容控件映射到文档的自定义 XML 数据存储中的自定义 XML 节点，则返回 True 。
语法
expression. SetMapping( _XPath_ , _PrefixMapping_ , _Source_ )
表达 返回“XMLMapping”对象的表达式。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| XPath | 必需 | String | 指定 XPath 字符串，该字符串表示内容控件所映射到的 XML 节点。 无效的 XPath 字符串将导致运行时错误。 |
| PrefixMapping | 可选 | String | 指定在查询 XPath 参数所提供的表达式时要使用的前缀映射。 如果省略，Word 将使用当前文档中指定的自定义 XML 部件的前缀映射集。 |
| Source | 可选 | CustomXMLPart | 指定要将内容控件映射到所需的自定义 XML 数据。 如果省略此参数，则 XPath 计算依据在当前文档中的所有自定义 XML，使用 XPath 解析的 XML 节点的第一个 CustomXMLPart 建立映射。 |
返回值
布尔值
备注
如果 XML 映射已经存在，Word 将替换现有 XML 映射，并以新映射的 XML 节点的内容替换内容控件的文本。 如果指定的 XPath 的计算结果不是指定的自定义 XML 部件中的 XML 节点，那么仍可以指定映射，并且将创建一个映射。 当指定的 XPath 的计算结果为指定的自定义 XML 部件中的 XML 节点时，此映射将自动链接。
请参阅 SetMappingByNode 方法。
注意
为格式文本内容控件创建映射将导致运行时错误。
示例
以下示例插入自定义 XML 部件并为该自定义部件设置 XML，然后在文档开头插入两个内容控件，并将控件的内容映射为自定义部件中 XML 元素的内容。
Dim objRange As Range
Dim objCustomPart As CustomXMLPart
Dim objCustomControl As ContentControl
Set objCustomPart = ActiveDocument.CustomXMLParts.Add
objCustomPart.LoadXML ("<books><book><author>Matt Hink</author>" & _
"<title>Migration Paths of the Red Breasted Robin</title>" & _
"<genre>non-fiction</genre><price>29.95</price>" & _
"<pub_date>2/1/2007</pub_date><abstract>You see them in " & _
"the spring outside your windows. You hear their lovely " & _
"songs wafting in the warm spring air. Now follow the path " & _
"of the red breasted robin as it migrates to warmer climes " & _
"in the fall, and then back to your back yard in the spring." & _
"</abstract></book></books>")
ActiveDocument.Range.InsertParagraphBefore
Set objRange = ActiveDocument.Paragraphs(1).Range
Set objCustomControl = ActiveDocument.ContentControls _
.Add(wdContentControlText, objRange)
objCustomControl.XMLMapping.SetMapping _
"/books/book/title", , objCustomPart
objRange.InsertParagraphAfter
Set objRange = ActiveDocument.Paragraphs(2).Range
Set objCustomControl = ActiveDocument.ContentControls _
.Add(wdContentControlText, objRange)
objCustomControl.XMLMapping.SetMapping _
"/books/book/abstract", , objCustomPart
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。