Использование APPLICATION.QUIT в MS-Word VBA, но приложение немедленно открывается

Question

Требуемое поведение : после завершения приведенного ниже кода MS Word должен закрываться и оставаться закрытым.

Проблема : Проблема в том, что приложение MS Word перезапускается и открывает «Instructions.docx», в котором есть макро-кнопка, которая указывает на нижний VBA Sub в Module1 of Normal.dotm.

FYIs : (1) Мой первый время размещения. (2) Этой проблемы не было около шести месяцев, прежде чем я взял некоторые Windows 10 и обновления Office 365. (3) MS Word для Office 365 MSO (16.0.12527.20260) 32-разрядная. (4) Windows 10 Pro, 64-разрядная ОС, i5-6500 @ 2,5 ГГц, 8 ГБ ОЗУ.

Вопрос : Как заставить приложение MS Word оставаться закрытым когда мой Normal.dotm VBA закрывает его?

Sub Finishing()
'To reset and save Instruction.docx
'To move existing Outputs folder to a new date-specific destination
'To close all open *.docx's then quit MS Word application
    Dim TodaysYear, FridaysDate, ToPath, FromPath As String
'(1) Reset_All_Checkboxes as adapted from Greg Maxey
    Dim oCC As ContentControl
        For Each oCC In ActiveDocument.Range.ContentControls
        oCC.Checked = False
    Next
'(2) Move_and_Rename_Outputs_Dir as adapted from Ron de Bruin
    ToPath = "C:\Users\me\OneDrive\Documents\Trade Records\" & Format(Date, "yyyy") & "\" & Format(DateAdd("d", 4, Date), "yyyy-mm-dd") 'add 4 days
    FromPath = "C:\Users\me\OneDrive\Documents\Outputs"
    Dim FSO As Object
    Set FSO = CreateObject("scripting.filesystemobject")
    FSO.MoveFolder Source:=FromPath, Destination:=ToPath
'(3) Save and close all open files then quit Word
    With Application
        .ScreenUpdating = False
        'Loop through open documents
        Do Until .Documents.Count = 0
            .Documents(1).Close SaveChanges:=wdSaveChanges
        Loop
        .Quit SaveChanges:=wdSaveChanges 'Quit MS Word
    End With
End Sub