Private Sub VariableTransmission()
  Dim doc1 As Document, doc2 As Document, aVar As Word.Variable
  
  Set doc1 = ActiveDocument
  Set doc2 = Documents.Add
  
  doc1.Variables("First").Value = "Hi mum"    'resets value or creates if it doesn't already exist
  doc1.Variables("Second") = "Hello world"
  doc1.Variables("Second") = "Hello world"
  
  For Each aVar In doc1.Variables
    doc2.Variables(aVar.Name) = aVar.Value
  Next aVar

  Debug.Print doc2.Variables("Second").Value
End Sub