Sub Macro1()
'
' Macro1 Macro
' Macro recorded 3/14/2008 by amresh.dubey
'
    ChangeFileOpenDirectory "D:\Documents and Settings\amresh.dubey\Desktop\"
    ActiveDocument.SaveAs FileName:="Testing cv.htm", FileFormat:=wdFormatHTML _
        , LockComments:=False, Password:="", AddToRecentFiles:=True, _
        WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
         SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveWindow.View.Type = wdWebView
    ActiveWindow.Close
    Application.Quit
End Sub