Microsoft Support

Artigo: 212682 - �ltima revis�o: quinta-feira, 12 de Outubro de 2006 - Revis�o: 3.5

Exemplos de macros VBA para inserir texto num documento no Word 2000

Ver produtos para os quais este 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.

Este artigo foi publicado anteriormente em PT212682

Este artigo poder� conter hiperliga��es para conte�do em ingl�s (ainda n�o traduzido).

Para obter uma vers�o deste artigo referente ao Microsoft Word 98 Macintosh Edition, consulte 183866� (http://support.microsoft.com/kb/183866/ ) .

Para obter uma vers�o deste artigo referente ao Microsoft Word 97, consulte 161407� (http://support.microsoft.com/kb/161407/ ) .

Nesta p�gina

Expandir tudo | Reduzir tudo

Sum�rio

Este artigo fornece v�rios exemplos de macros do Visual Basic for Applications que utilizam a propriedade Selection e o objecto Range para inserir texto num documento.

Mais Informa��o

A Microsoft fornece exemplos de programa��o apenas a t�tulo informativo, sem garantia expressa ou impl�cita. Isto inclui, sem se limitar, as garantias impl�citas de comercializa��o ou adequa��o a um fim espec�fico. Este artigo pressup�e que o utilizador conhece a linguagem de programa��o apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Os t�cnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas n�o modificar�o estes exemplos para proporcionarem funcionalidades adicionais nem criar�o procedimentos adaptados �s necessidades espec�ficas do utilizador.

Utilizar o objecto Selection e o m�todo TypeText

Insere o texto especificado. Se a propriedade ReplaceSelection for Verdadeiro, a selec��o � substitu�da pelo texto especificado. Se a propriedade ReplaceSelection for Falso, o texto especificado ser� inserido antes da selec��o.

Para obter mais informa��es sobre a propriedade ReplaceSelection, no Visual Basic Editor clique em Ajuda do Microsoft Visual Basic no menu Help, escreva ReplaceSelection Property no Assistente do Office ou no Assistente de respostas e clique em Procurar para visualizar o t�pico.

Sub TypeTextMethod()
  Dim MyText As String
  MyText = "<Replace this with your text>"
  Selection.TypeText (MyText)
End Sub

Utilizar o objecto 'Range'

O exemplo que se segue substitui integralmente o conte�do de um documento com a palavra "Replaced", independentemente da posi��o actual do ponto de inser��o.

Sub RangeProperty()
  ' Range Example:
  ActiveDocument.Range.Text = "Replaced"
End Sub

Utilizar o objecto 'Range' ou 'Selection' com o m�todo 'InsertAfter' ou 'InsertBefore'

Exemplo de m�todo InsertAfter:

Insere o texto especificado no fim de um intervalo ou de uma selec��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 de m�todo InsertBefore:

Insere o texto especificado no in�cio de um intervalo ou de uma selec��o. Depois de aplicado este m�todo, o intervalo ou a selec��o expande-se de modo a incluir o texto novo.

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

Inserir um coment�rio num documento utilizando o objecto 'Range' ou 'Selection'

Insere um coment�rio na posi��o actual 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

Inserir um campo num documento utilizando o objecto 'Range' ou 'Selection'

Insere um campo na posi��o actual 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 cifr�o.

Sub InsertFormulaMethod()
   Selection.InsertFormula Formula:="=100,000.0-45,000.0", _
      NumberFormat:="$#,##0.0"
End Sub

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

Esta propriedade devolve um objecto Range com a formata��o de caracteres e o texto da selec��o ou do intervalo especificado. A formata��o de par�grafos estar� inclu�da no objecto Range caso exista uma marca de par�grafo no intervalo ou na selec��o. Ao definir esta propriedade, o texto presente no intervalo � substitu�do por texto formatado. Caso n�o pretenda substituir o texto existente utilize o m�todo Collapse antes de utilizar esta 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

Colocar texto num cabe�alho ou rodap�

NOTA: a propriedade HeaderFooter requer que a selec��o esteja localizada num cabe�alho ou rodap�, caso contr�rio 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 que se segue altera o texto quer do cabe�alho principal, quer do rodap� principal da primeira sec��o do documento activo.

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

Utilizar o objecto 'Range' ou 'Selection' para inserir uma data atrav�s do campo 'Time'

Este exemplo insere um campo Time para a data actual. Segue-se um resultado poss�vel "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

Utilizar o objecto 'Range' ou 'Selection' para inserir um par�grafo novo

Este exemplo insere um par�grafo novo abaixo da posi��o actual 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

Utilizar o objecto 'Range' ou 'Selection' para inserir um s�mbolo

Este exemplo insere uma seta de duplo sentido 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

Utilizar o objecto 'Range' ou 'Selection' para colar texto da �rea de transfer�ncia

Este exemplo insere texto colocado na �rea de transfer�ncia na posi��o actual 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 utilizar o Object Range, no Visual Basic Editor clique em Ajuda do Microsoft Visual Basic no menu Help, escreva Object Range no Assistente do Office ou no Assistente de respostas e clique em Procurar para visualizar o t�pico.

Para obter mais informa��es sobre como utilizar o Object Selection, no Visual Basic Editor clique em Ajuda do Microsoft Visual Basic no menu Help, escreva Object Selection no Assistente do Office ou no Assistente de respostas e clique em Procurar para visualizar o t�pico.

Para obter mais informa��es sobre como utilizar o c�digo de exemplo inclu�do neste artigo, clique no n�mero de artigo abaixo para visualizar o artigo na base de dados de conhecimento da Microsoft (KB, Microsoft Knowledge Base):

212536� (http://support.microsoft.com/kb/212536/PT/ ) OFF2000: Como executar c�digos de exemplo a partir de artigos da Knowledge Base

Refer�ncias

Para obter mais informa��es sobre como obter ajuda para o Visual Basic for Applications, consulte o seguinte artigo na base de dados de conhecimento da Microsoft (KB, Microsoft Knowledge Base):

226118� (http://support.microsoft.com/kb/226118/PT/ ) OFF2000: Lista de recursos dispon�veis para o ajudar a aprender programa��o em Visual Basic for Applications

A informa��o contida neste artigo aplica-se a:

Microsoft Word 2000 Standard Edition

kbdtacode kbhowto kbmacroexample kbprogramming KB212682