Método Variables.Add (Word)

Retorna um objeto variável que representa uma variável adicionada a um documento.

Sintaxe

expressão. Adicionar (Nome, Valor)

expressão Obrigatório. Uma variável que representa uma coleção 'Variables'.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Name Obrigatório String O nome da variável de documento.
Value Opcional Variant O valor da variável de documento.

Valor de retorno

Variável

Comentários

Variáveis de documento são invisíveis para o usuário, a menos que um campo DOCVARIABLE seja inserido com o nome da variável apropriado. Se você tentar adicionar uma variável com um nome que já existe na coleção Variables, ocorrerá um erro. Para evitar esse erro, você pode enumerar a coleção antes de adicionar uma nova variável a ela.

Exemplo

Este exemplo adiciona uma variável chamada "Temp" ao documento ativo e insere um campo DOCVARIABLE para exibir o valor da variável "Temp".

With ActiveDocument 
 .Variables.Add Name:="Temp", Value:="12" 
 .Fields.Add Range:=Selection.Range, _ 
 Type:=wdFieldDocVariable, Text:="Temp" 
End With 
ActiveDocument.ActiveWindow.View.ShowFieldCodes = False

Este exemplo define o valor da variável Blue como 6. Se essa variável ainda não existir, o exemplo a adicionará ao documento e a definirá como 6.

For Each aVar In ActiveDocument.Variables 
 If aVar.Name = "Blue" Then num = aVar.Index 
Next aVar 
If num = 0 Then 
 ActiveDocument.Variables.Add Name:="Blue", Value:=6 
Else 
 ActiveDocument.Variables(num).Value = 6 
End If

Este exemplo armazena o nome do usuário (a partir da caixa de diálogo Opções) no modelo anexado ao documento ativo.

ScreenUpdating = False 
With ActiveDocument.AttachedTemplate.OpenAsDocument 
 .Variables.Add Name:="UserName", Value:= Application.UserName 
 .Close SaveChanges:=wdSaveChanges 
End With

Confira também

Objeto da coleção Variables

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.