Método XMLMapping.SetMapping (Word)
Permite criar ou alterar o mapeamento XML em um controle de conteúdo. Retorna True se o Microsoft Word mapear o controle de conteúdo para um nó XML personalizado no armazenamento de dados XML personalizado do documento.
Sintaxe
expression. SetMapping( _XPath_ , _PrefixMapping_ , _Source_ )
Expressão Uma expressão que retorna um objeto 'XMLMapping'.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| XPath | Obrigatório | String | Especifica uma sequência de caracteres do XPath que representa o nó XML ao qual o controle de conteúdo será mapeado. Uma sequência de caracteres do XPath inválida causa um erro em tempo de execução. |
| PrefixMapping | Opcional | String | Especifica os mapeamentos de prefixo a serem utilizados durante a consulta da expressão fornecida no parâmetro XPath. Se for omitido, o Word utilizará o conjunto de mapeamentos de prefixo para a parte XML personalizada especificada no documento atual. |
| Source | Opcional | CustomXMLPart | Especifica os dados XML personalizados desejados para a qual mapear o controle de conteúdo. Se esse parâmetro for omitido, o XPath é avaliado em relação a todos os XML personalizadas no documento atual e o mapeamento é estabelecido com o primeiro CustomXMLPart no qual o XPath resolve para um nó XML. |
Valor de retorno
Booliano
Comentários
Se o mapeamento XML já existir, o Word substituirá o mapeamento XML existente e o conteúdo do novo nó XML mapeado substituirá o texto do controle de conteúdo. Se o XPath especificado não for avaliado para um nó XML nas partes XML personalizadas especificadas, ainda será possível especificar o mapeamento e ele será criado. Esse mapeamento é vinculado automaticamente quando o XPath especificado for avaliado para um nó XML nas partes XML personalizadas especificadas.
Consulte também o método SetMappingByNode.
Observação
A criação de um mapeamento para um controle de conteúdo de rich text causa um erro em tempo de execução.
Exemplo
O exemplo a seguir insere uma parte XML personalizada, define o XML para a parte personalizada e, em seguida, insere dois controles de conteúdo no início do documento, mapeando o conteúdo dos controles para o conteúdo dos elementos XML na parte personalizada.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.