how to export the variable in to excel?

[#1]

Hi,

I have one problem. i have totasl 6 variable,can i export these varible in to excel excel using macro.

[m_woolf]

set v = ActiveDocument.Variables("YourVariable")
strYourVariable = v.Getcontent.String
Set XLApp = CreateObject("Excel.Application")
XLApp.Visible = True
Set XLWorkbook = XLApp.Workbooks.Add

Set XLSheet = XLWorkbook.sheets("Sheet1")
XLSheet.Select

XLSheet.Range("A1").Value = strYourVariable