Sub GetSetDocVars()

Dim fName As String
fName = “Jeff Smith”
‘ Set contents of variable “fName” in a document using a document
‘ variable called “FullName”.
ActiveDocument.Variables.Add Name:=”FullName”, Value:=fName
‘ Retrieve the contents of the document variable.
MsgBox ActiveDocument.Variables(“FullName”).Value

End Sub