Создайте следующий макрос :
Sub AutoOpen() ' ' AutoOpen Macro ' ' ActiveWindow.View.Type = wdPrintView ActiveWindow.View.ShowHeading 1 End Sub
Другие варианты, кроме просмотра печати, см. На странице https://msdn.microsoft.com/en-us/library/microsoft.office.interop.word.wdviewtype.aspx?f=255&MSPPError=-2147217396.