[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. Какая функция отвечает за распечатку отдельных страниц?

[SapeR]

Документ таки активен
Закрой, и только потом удаляй
Или переименуй при сохранении