Word vba重新打开Word文件而不保存

Question

类似于“Excel vba重新打开Excel文件而不保存”

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

如何使用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