Cохранение документа WORD

[Gregsun]

Всем доброе время суток!

Код Выделить Развернуть

Public Sub CopyActiveDoc()
ActiveDocument.Save
Dialogs(wdDialogFileSaveAs).Show
ActiveDocument.Close
End Sub
Макрос сохраняет рабочую книгу .
Как задать директорию например = "C:\К\"
Заранее спасибо

[akokin]

Вы хотите сохранить активный документ в какой-то конкретной папке? Тогда вот примерный макрос (сохраняет активный документ в существующей (!) папке Temp):

Код Выделить Развернуть

Sub savetofolder()
Dim SavePath As String
Dim SaveName As String

SavePath = "C:\Temp\"
SaveName = ActiveDocument.Name
ActiveDocument.SaveAs FileName:=SavePath & SaveName

End Sub

[Шпец Докапыч]

Как задать директорию например = "C:\К\"

Может Вы имеете ввиду задать для диалога директорию по умолчанию?
Тогда можно эмулировать её набор с клавиатуры:

Код Выделить Развернуть

Sub SHD_SaveWithDefaultPath()
  SendKeys "C:\К\~"
  Dialogs(84).Show
End Sub