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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de