Всем доброе время суток!
Public Sub CopyActiveDoc()
ActiveDocument.Save
Dialogs(wdDialogFileSaveAs).Show
ActiveDocument.Close
End Sub
Макрос сохраняет рабочую книгу .
Как задать директорию например = "C:\К\"
Заранее спасибо
Вы хотите сохранить активный документ в какой-то конкретной папке? Тогда вот примерный макрос (сохраняет активный документ в существующей (!) папке Temp):
Sub savetofolder()
Dim SavePath As String
Dim SaveName As String
SavePath = "C:\Temp\"
SaveName = ActiveDocument.Name
ActiveDocument.SaveAs FileName:=SavePath & SaveName
End Sub
Цитата: Gregsun от 01.03.2009, 01:47
Как задать директорию например = "C:\К\"
Может Вы имеете ввиду задать для диалога директорию по умолчанию?
Тогда можно эмулировать её набор с клавиатуры:
Sub SHD_SaveWithDefaultPath()
SendKeys "C:\К\~"
Dialogs(84).Show
End Sub