Sub wpage()
'
' wpage Макрос 2012\02\08 11-43
'
'
    ActiveDocument.Save
    ActiveDocument.SaveAs FileName:="c:\0000.docx", _
        FileFormat:=wdFormatXMLDocument, LockComments:=False, _
        Password:="", AddToRecentFiles:=True, WritePassword:="", _
        ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
    If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Word.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.InlineShapes(1).Delete
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    ActiveDocument.PrintOut
End Sub