Mot vba à réouvrir fichier Word sans enregistrer

Question

similaires à "Excel vba fichier Excel pour réouvrir sans enregistrer"

Sub ReOpen() 
    Application.DisplayAlerts = False 
    Workbooks.Open ActiveWorkbook.Path & "\" & ActiveWorkbook.Name 
    Application.DisplayAlerts = True 
End Sub 

Comment puis-je faire avec MS Word?

Answer 1

Sub ReOpen() 

    Dim Ffn As String     ' full file name 

    With ActiveDocument 
     Ffn = .FullName 
     .Close SaveChanges:=wdDoNotSaveChanges 
    End With 
    Documents.Open Ffn 
End Sub