Private Sub Command0_Click() Dim DocN As String Dim LWordDoc As String Dim oApp As Object Dim oDoc As Object Dim oVariable As Variable DocN = "Demo use of variables.docx" 'Path to the word document LWordDoc = "C:\Temp\20230411 test\" & DocN If Dir(LWordDoc) = "" Then MsgBox "Document not found." Else 'Create an instance of MS Word Set oApp = CreateObject(Class:="Word.Application") oApp.Visible = True 'Open the Document Set oDoc = oApp.Documents.Open(Filename:=LWordDoc) End If Call dump_to_file("") For Each oVariable In oDoc.Variables Call append_to_file(oVariable.Name & " : " & oVariable.Value) Next oVariable ' Close doc oDoc.Close SaveChanges:=True ' True to save, False to close without saving Set oDoc = Nothing Set oApp = Nothing MsgBox "done" End Sub