IMHO.WS - [vba] макрос в Ворде

Код:

Sub save1() 

    

ActiveDocument.SaveAs FileName:=Left(ActiveDocument.Name, 7) + 

"-1.doc", FileFormat:= _wdFormatDocument, LockComments:=False,

Password:="", AddToRecentFiles:= _True, WritePassword:="",

ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _False,

 SaveNativePictureFormat:=False, SaveFormsData:=False, 

_SaveAsAOCELetter:=False 

    

End Sub

Идея такова...
создается файл ID.doc, я выполняю нужную работу и взависимости от кол-ва страниц сохраняю: ID+1+2+3+n.doc, где n - кол-во страниц
все это изложено выше в коде, дан пример только для одной...
проблема такая: я хочу, чтобы ID.doc удалялся, а ID+n.doc оставался. Пробуя стандартную функцию удаления - ворд ругается, мол, документ активен и все такое...

p.s. Какая функция отвечает за распечатку отдельных страниц?