макрос для Word

[FoX MaldeR]

нужен макрос который

при закрытые Word документа автоматически создал копии дока (на другом папка или ж на другом диске:

может кто то повстречался, подскажите

[QUICK]

FoX MaldeR
Обработка события DocumentBeforeClose должна спасти отца русской демократии.

[FoX MaldeR]

а можно описание кода

[Antonariy]

Код: Выделить всё

Private Sub Document_Close()
    On Error Resume Next
    ThisDocument.SaveAs "c:\backup.doc"
End Sub

Описание дополнительно на трех компакт-дисках

[FoX MaldeR]

Код: Выделить всё

Private Sub Document_Close()
    On Error Resume Next
    ThisDocument.SaveAs "c:\backup.doc"
End Sub

создает пустой документ, а не копии дока

[Antonariy]

Так ты ж пустой документ закрываешь.

[FoX MaldeR]

а как сохранить копии документа

[FoX MaldeR]

можно ли програмно изменить параметры автосохранения Word-а (menu: сервис>> параметры>> сохранение>> всегда создавать резервнию копию) что бы копия созавлся на другом папке (или же диске)
--------
если можно подробнее

[Antonariy]

Все это есть в вордовском хелпе
f1 - указатель - автосохранение - определение папки...

[FoX MaldeR]

f1 - указатель - автосохранение - определение папки...

--------
это не создает копию документа

[Antonariy]

Пардон, не заметил слово "программно". Забей на автосохранение. Вставь этот код в normal.dot и будет тебе щастье

Код: Выделить всё

Dim WithEvents lApp As Word.Application

Private Sub Document_Open()
    Set lApp = ThisDocument.Application
End Sub

Private Sub lApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
    On Error Resume Next
    Doc.SaveAs "c:\backup.doc"
End Sub