Método Range.InsertXML (Word)

Insere o XML especificado no documento no intervalo especificado, substituindo qualquer texto contido neste intervalo.

Sintaxe

expressão. InsertXML (XML, Transform)

expressão Uma expressão que retorna um objeto Range.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
XML Obrigatório String Especifica o XML a ser inserido. Pode ser qualquer XML personalizado válido.
Transform Opcional Variant Especifica a Transformação em XML (XSLT) utilizada para transformar o XML. Se omitido, o XML será inserido como XML personalizado sem aplicar uma transformação.

Valor de retorno

Nada

Exemplo

O exemplo a seguir insere a sequência de caracteres do XML especificado no quinto parágrafo do documento. Isso substitui qualquer texto contido no quinto parágrafo.

Dim strXML As String 
 
strXML = "<"xml version=""1.0""><abc:books xmlns:abc=""urn:books"" " & _ 
 "xmlns:xsi=""https://www.w3.org/2001/XMLSchema-instance"" " & _ 
 "xsi:schemaLocation=""urn:books books.xsd""><book>" & _ 
 "<author>Matt Hink</author><title>Migration Paths of the Red " & _ 
 "Breasted Robin</title><genre>non-fiction</genre>" & _ 
 "<price>29.95</price><pub_date>2006-05-01</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 their path as they migrate to warmer climes in the fall, " & _ 
 "and then back to your back yard in the spring.</abstract></book></abc:books>" 
 
ActiveDocument.Paragraphs(5).Range.InsertXML strXML

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.