Objeto Variáveis (Word)
Uma coleção de objetos variável que representa as variáveis adicionadas a um documento ou modelo. Variáveis de documento são usadas para preservar as configurações de macro entre sessões de macro.
Use a propriedade Variables para retornar a coleção Variables. O exemplo a seguir exibe o número de variáveis no documento "Sales.doc".
MsgBox Documents("Sales.doc").Variables.Count & " variables"
Use o método Add para adicionar uma variável a um documento. O exemplo a seguir adiciona uma variável de documento chamada "Temp" com um valor de 12 ao documento ativo.
ActiveDocument.Variables.Add Name:="Temp", Value:="12"
Se você tentar adicionar uma variável de documento 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 quaisquer variáveis novas. Se a variável de documento Blue já existir no documento ativo, o exemplo a seguir define seu valor como 6. Se essa variável ainda não existir, este exemplo adiciona ao documento e define 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
Use variáveis (Index), onde Index é o nome da variável de documento ou número de índice, para retornar um único objeto da variável. O exemplo a seguir exibe o valor da variável de documento Temp do documento ativo.
MsgBox ActiveDocument.Variables("Temp").Value
O número de índice representa a posição da variável de documento na coleção Variables. A primeira variável adicionada à coleção Variables é o número de índice 1; a segunda variável adicionada à coleção é o número de índice 2 e assim por diante. O exemplo a seguir exibe o nome da primeira variável de documento no documento ativo.
MsgBox ActiveDocument.Variables(1).Name
Para adicionar uma variável a um modelo, abra o modelo como um documento usando o método OpenAsDocument. O exemplo a seguir armazena o nome de usuário (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
Referência do modelo de objeto do Word
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.