ID do artigo: 212682 - Última revisão: quarta-feira, 11 de outubro de 2006 - Revisão: 3.2

Exemplos de macro do VBA para inserir texto em um documento no Word 2000

Vista lado a ladoClique aqui para exibir o artigo traduzido e o artigo original em inglês, lado a lado.
Tradução automáticaExibir Aviso de Isenção de Tradução Automática
Exibir os produtos aos quais esse artigo se aplica.
Dica do SistemaEste artigo aplica-se a um sistema operativo diferente do que está a utilizar. Foi desactivado o conteúdo do artigo, que pode não ser relevante para si.
Para uma versão deste artigo do Microsoft Word 98 Macintosh Edition, consulte 183866  (http://support.microsoft.com/kb/183866/ ) .
Para uma versão deste artigo do Microsoft Word 97, consulte 161407  (http://support.microsoft.com/kb/161407/ ) .

Nesta página

Expandir tudo | Recolher tudo

Sumário

Este artigo fornece vários Visual Basic para aplicativos exemplos de macro que use a propriedade de seleção e o objeto Range para inserir texto em um documento.
Voltar para o início

Mais Informações

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
Voltar para o início

Usando o objeto Selection e o método TypeText

Insere o texto especificado. Se a propriedade ReplaceSelection for True , a seleção é substituída pelo texto especificado. Se a propriedade ReplaceSelection for False , o texto especificado será inserido antes da seleção.

Para obter mais informações sobre propriedade ReplaceSelection, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite Propriedade ReplaceSelection no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.
Sub TypeTextMethod()
  Dim MyText As String
  MyText = "<Replace this with your text>"
  Selection.TypeText (MyText)
End Sub
Voltar para o início

Usando o objeto Range

O exemplo a seguir substitui todo o conteúdo de um documento com a palavra "Substituído" independentemente da posição atual do ponto de inserção.

Sub RangeProperty()
  ' Range Example:
  ActiveDocument.Range.Text = "Replaced"
End Sub
Voltar para o início

Usando o objeto Range ou Selection com o método InsertAfter/InsertBefore

exemplo do método InsertAfter :

Insere o texto especificado no final de um intervalo ou seleção.
Sub InsertAfterMethod()
  Dim MyText As String
  Dim MyRange As Object
  Set MyRange = ActiveDocument.Range
  MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.InsertAfter (MyText)
  ' Range Example:
  ' (Inserts text at the current position of the insertion point.)
  MyRange.Collapse
  MyRange.InsertAfter (MyText)
End Sub
exemplo do método InsertBefore :

Insere o texto especificado no início de um intervalo ou seleção. Depois que esse método for aplicado, o intervalo ou a seleção se expande para incluir o novo texto.
Sub InsertBeforeMethod()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "<Replace this with your text>"
   ' Selection Example:
   Selection.InsertBefore (MyText)
   ' Range Example: Inserts text at the beginning
   ' of the active document.
   MyRange.InsertBefore (MyText)
End Sub
Voltar para o início

Inserir um comentário em um documento usando o objeto Range ou Selection

Insere um comentário na posição atual do ponto de inserção.
Sub CommentsCollectionObject()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   MyText = "<Replace this with your text>"
  ' Selection Example:
  Selection.Comments.Add Range:=Selection.Range, Text:=MyText
  ' Range Example:
  MyRange.Comments.Add Range:=Selection.Range, Text:=MyText
End Sub
Voltar para o início

Inserir um campo em um documento usando o objeto Range ou Selection

Insere um campo na posição atual do ponto de inserção.
Sub FieldsCollectionObject()
   Dim MyText As String
   Dim MyRange As Object
   Set MyRange = Selection.Range
   MyText = "<Replace this with your text>"
   ' Selection Example:
   Selection.Fields.Add Range:=Selection.Range, _
      Type:=wdFieldQuote, Text:=MyText
   ' Range Example:
    Range.Fields.Add Range:=Selection.Range, _
      Type:=wdFieldQuote, Text:=MyText
End Sub
Este exemplo insere um campo de fórmula. O resultado é formatado com um sinal de cifrão.

Sub InsertFormulaMethod()
   Selection.InsertFormula Formula:="=100,000.0-45,000.0", _
      NumberFormat:="$#,##0.0"
End Sub
Voltar para o início

Replicando o texto, incluindo o formato, de um intervalo de texto

Essa propriedade retorna um objeto Range com a formatação de caractere e o texto da seleção ou intervalo especificado. Formatação de parágrafo é incluído no objeto Range se há uma marca de parágrafo no intervalo ou seleção. Quando você define essa propriedade, o texto no intervalo é substituído pelo texto formatado. Se você não deseja substituir o texto existente, use o método Collapse antes de usar essa propriedade.
Sub FormattedTextProperty()
   ' This example copies the first paragraph in the document, including
   ' its formatting, and inserts the formatted text at the insertion
   ' point.
   Selection.Collapse Direction:=wdCollapseStart
   Selection.FormattedText = ActiveDocument.Paragraphs(1).Range
End Sub
Voltar para o início

Colocar texto em um cabeçalho ou rodapé

Observação : A propriedade HeaderFooter requer que a seleção ser localizado dentro de um cabeçalho ou rodapé, ou ocorrerá um erro.
Sub HeaderFooterProperty()
   Dim MyText As String
   MyText = "<Replace this with your text>"
   ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
   Selection.HeaderFooter.Range.Text = "MyText"
   ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
O exemplo a seguir altera o texto do cabeçalho principal e o rodapé principal da primeira seção do documento ativo.
Sub HeaderFooterObject()
  Dim MyText As String
  MyHeaderText = "<Replace this with your text>"
  MyFooterText = "<Replace this with your text>"
  With ActiveDocument.Sections(1)
    .Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText
    .Footers(wdHeaderFooterPrimary).Range.Text = MyFooterText
  End With
End Sub
Voltar para o início

Usando o objeto Range ou Selection para inserir uma data usando o campo hora

Este exemplo insere um campo de hora para a data atual. Um resultado possível poderia ser "18 de novembro de 1996."
Sub InsertDateTimeMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.InsertDateTime DateTimeFormat:="MMMM dd, yyyy", _
   InsertAsField:=True
   ' Range Example:
   MyRange.InsertDateTime DateTimeFormat:="MMM dd, yyyy", _
   InsertAsField:=True
End Sub
Voltar para o início

Usando o objeto Range ou Selection para inserir um novo parágrafo

Este exemplo insere um novo parágrafo abaixo a posição atual do ponto de inserção.
Sub InsertParagraphMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertParagraph
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertParagraph
End Sub
Voltar para o início

Usando o objeto Range ou Selection para inserir um símbolo

Este exemplo insere uma seta de duas pontas no ponto de inserção.
Sub InsertSymbolMethod()
   Dim MyRange As Object
   Set MyRange = ActiveDocument.Range
   ' Selection Example:
   Selection.InsertSymbol CharacterNumber:=171, _
      Font:="Symbol", Unicode:=False
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.InsertSymbol CharacterNumber:=171, _
      Font:="Symbol", Unicode:=False
End Sub
Voltar para o início

Usando o objeto Range ou Selection para colar da área de transferência

Este exemplo insere texto colocado na área de transferência na posição atual do ponto de inserção.
Sub PasteMethod()
   Dim MyRange As Object
   Set MyRange = Selection.Range
   ' Selection Example:
   Selection.Paste
   ' Range Example:
   MyRange.Collapse Direction:=wdCollapseStart
   MyRange.Paste
End Sub

Para obter mais informações sobre como usar o objeto Range, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite Objeto Range no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.

Para obter mais informações sobre como usar o objeto Selection, no Editor do Visual Basic, clique em Ajuda do Microsoft Visual Basic no menu Ajuda , digite o Objeto Selection no Assistente do Office ou no Assistente de resposta e, em seguida, clique em Pesquisar para exibir o tópico.

Para obter mais informações sobre como usar o código de exemplo neste artigo, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
212536  (http://support.microsoft.com/kb/212536/EN-US/ ) OFF2000: Como executar o código de exemplo de artigos da Knowledge Base
Voltar para o início

Referências

Para obter mais informações sobre como obter ajuda com o Visual Basic para aplicativos, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
226118  (http://support.microsoft.com/kb/226118/EN-US/ ) OFF2000: Programação recursos para o Visual Basic for Applications
Voltar para o início
A informação contida neste artigo aplica-se a:
  • Microsoft Word 2000 Standard Edition
Voltar para o início
Palavras-chave: 
kbmt kbdtacode kbhowto kbmacroexample kbprogramming KB212682 KbMtpt
Voltar para o início
Tradução automáticaTradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 212682  (http://support.microsoft.com/kb/212682/en-us/ )
Voltar para o início