Private Sub Êíîïêà0_Click()

Dim oDoc As Word.Document
Set oDoc = GetObject("f:\Novaya strah_summa_grn.doc")
oDoc.Activate
oDoc.Application.Visible = True
With oDoc
.Application.Options.PrintOddPagesInAscendingOrder = True
.Application.Options.PrintEvenPagesInAscendingOrder = False
.PrintOut ManualDuplexPrint:=True
End With
oDoc.Close
Set oDoc = Nothing

End Sub
Но почему-то не работает.
Что нужно сделать, чтобы заработало?