Try this in your actual project...

vb Code:
  1. strFileName = "C:\Users\AdminMGR\Desktop\Doc1.doc"
  2.  
  3. oDoc.SaveAs FileName:=strFileName, FileFormat:=wdFormatDocument, _
  4. LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
  5. :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
  6. SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
  7. False