Sub Macro1()
With ActiveDocument
.ReadOnlyRecommended = False
.Password = "toto"
.WritePassword = ""
.RemovePersonalInformation = False
.RemoveDateAndTime = False
End With
With Options
.WarnBeforeSavingPrintingSendingMarkup = False
.StoreRSIDOnSave = True
.ShowMarkupOpenSave = True
End With
ChangeFileOpenDirectory "C:\Documents and Settings\none\Bureau\"
ActiveDocument.SaveAs FileName:="essaiprotec.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="toto", _
AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
:=False, SaveAsAOCELetter:=False
End Sub