Set docRef = appRef.Documents.Open(ThisWorkbook.Path & "\All-rev.doc", , True)

Public appRef As New Word.Application

Sub k1()
Static docRef As Word.Document
    Set appRef = New Word.Application
    appRef.WindowState = wdWindowStateMaximize
    appRef.Visible = False
    Set docRef = Documents.Open(ThisWorkbook.Path & "\All-rev.doc", , True)
With docRef
    .GrammarChecked = True
    .SpellingChecked = True
    .Activate
    If .ActiveWindow.View.SplitSpecial = wdPaneNone Then
        .ActiveWindow.ActivePane.View.Type = wdNormalView
    Else
        .ActiveWindow.View.Type = wdNormalView
    End If
End With
    appRef.Options.Pagination = False

'etc.....
End Sub