Sub Macro2()
'
' Macro2 Macro
' Macro recorded 21.7.2007 by BOBBYD
'
ChangeFileOpenDirectory "C:\"
Documents.Open FileName:="report.csv", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto, XMLTransform:="", Encoding:=65001
ChangeFileOpenDirectory "C:\"
ActiveDocument.SaveAs FileName:="reportANSI.csv", FileFormat:=wdFormatText _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, Encoding:=1251, InsertLineBreaks:=False, AllowSubstitutions:=False _
, LineEnding:=wdCRLF
Application.Quit
End Sub