Требуется макрос, который выполнил бы следующее:
ПОСЛЕ ПЕЧАТИ сохранить файл в виде "c:\users\resolitions\ДД-ММ-ГГ_ЧЧ-ММ-СС.doc" (естественно, дату и время - текущие), а потом закрыть его, открыть новый файл '\\ч12\вщ\куыщдгешщтыювщсэ и сохранить его как "c:\users\resolutions\current\resolutions.doc".
----------------------------------------------------------
Как это выполнить?
Не завершится ли выполнение макроса с закрытием файла?
И как вообще создавать макрос, потому что там какие-то Модули, класс модули, объекты... Я не понял, к чему что относится...

\\ч12\вщ\куыщдгешщтыювщсэ это, естественно, '\\x12\do\resolutions.doc' :)

А как сделать, чтобы макрос выполнялся после события "Печать"?

Спасибо, понял. А как сохранить файл с именем (см первый пост) , то есть вместо имени файла подсунуть дату и время?

Ничего понимаю.... Делаю:
сервис-записать макрос, называю его apeldop, доступен для "resolution.doc, документ"

сохраняю текущий файл как 'c:\users\resolitions\lalala.doc' (актуален вопрос о сохранении его в виде дата_время.doc),
открываю '\\x12\do\resolutions.doc' и сохраняю как 'c:\users\resolutions\current\resolutions.doc'.
Останавливаю запись.
Сервис-макрос-редактор visual basic, там project-modules-newMacros и текст его следующий:

Sub Apeldop()
'
' Apeldop Макрос
' Макрос записан 18.11.2004 apodlepa
'
ChangeFileOpenDirectory "C:\users\resolutions\"
ActiveDocument.SaveAs FileName:="lalala.doc", FileFormat:=wdFormatDocument _
, LockComments:=False, Password:="", AddToRecentFiles:=True, _
WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False
ChangeFileOpenDirectory "\\X12\Test Data\Appl\DO\template\"
Documents.Open FileName:="resolution.doc", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
ChangeFileOpenDirectory "C:\users\resolutions\current\"
ActiveDocument.SaveAs FileName:="resolution.doc", FileFormat:= _
wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
SaveAsAOCELetter:=False
End Sub

Заменяю sub (Apeldop) на Private Sub Workbook_BeforePrint(Cancel As Boolean) и сохраняю... При печати ничего не происходит... Что я делаю не так?