Sub AddDocumentVariable()
 ActiveDocument.Variables.Add Name:="Age", Value:=12
End Sub
Sub UseDocumentVariable()
 Dim intAge As Integer
 intAge = ActiveDocument.Variables("Age").Value
End Sub