This works for me to close the document and open the document in the same window (I run the macro from normal.dotm):
Sub CloseOpenSameWindow() Dim d As Document: Set d = ActiveDocument Application.ScreenUpdating = False d.Close Application.Documents.Add Template:="C:\Users\Me\Desktop\Mydocument.docx" Application.ScreenUpdating = True End Sub
source share