Word-VBA-Word-Datei wieder zu öffnen, ohne

Question

zu Speichern

ähnlich wie "Excel-VBA-Excel-Datei wieder zu öffnen, ohne zu speichern"

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

Wie mache ich das mit 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