Macro to export data into Txt with pipe delimiter

[#1]

Hi All,

I have a macro to export data of a Chart into xls.Now the new requirement is to export the data into txt with pipe delimited format.Below is my existing macro code.

Sub ExportData

     ActiveDocument.ShowPopup "Please wait...export may take several minutes",5000
     Var = ActiveDocument.Variables("vFilename").GetContent.String
     Var2 = "Location\foldername\" & Var & ".xls"

     set objExport = ActiveDocument.GetSheetObject("EXP1")
     objExport.ExportBiff Var2

Can anyone please update me what I need to change to export into txt with pipe delimited format.

Thanks Pooja...

     ActiveDocument.GetApplication.MsgBox("Export Completed ! ")

End sub

[#2]

In the initial post format just corrupted.Macro looks like this

Sub ExportData

     ActiveDocument.ShowPopup "Please wait...export may take several minutes",5000
     Var = ActiveDocument.Variables("vFilename").GetContent.String
     Var2 = "Location\foldername\" & Var & ".xls"

     set objExport = ActiveDocument.GetSheetObject("EXP1")
     objExport.ExportBiff Var2

     ActiveDocument.GetApplication.MsgBox("Export Completed ! ")

End sub