Макрос сохранения после печати

[lala_white]

всем привет!
у меня возникла необходимость сделать макрос.вот такой:
после печати документа, его копия должна сохранятся в определенную директорию.причем название файла необходимо взять из текста документа, а также указать текущую дату в заголовке этого файла.
помогите кто чем может, плиз.заранее спасибо.

[akokin]

А какое конкретно название взять из текста? По какому принципу?

[akokin]

Похоже, автор вопроса потерял к нему интерес Ну а для меня практика...
Вот пример такого макроса. Сначала распечатываете документ, а потом запускаете макрос, если вас устроит такая последовательность действий.
Заголовок с датой будет виден только для текущего сеанса работы с этим окном.

Sub saveafterprint()
'Сохранение документа под именем из текста в конкретной папке
'вывод текущей даты в заголовке окна
Dim sPath As String
Dim fName As String
sPath = "c:\temp\"
If Len(ActiveDocument.Path) = 0 Then
    fName = ActiveDocument.Words(1).Text
    If Len(fName) = 0 Then
        MsgBox "Документ пустой и не может быть сохранен."
        Exit Sub
    End If
   ActiveDocument.SaveAs sPath & Trim(fName) & ".doc"
   ActiveWindow.Caption = Format(Date)
Else
    ActiveDocument.Save
End If
End Sub

Отпишитесь, что-ли, о результатах...