Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Автор Тема: Cохранение документа WORD  (Прочитано 2059 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Gregsun

  • Пользователь
  • **
  • Уважение: +1/-0
  • Оффлайн Оффлайн
  • Сообщений: 43
Cохранение документа WORD
« : 01.03.2009, 01:47:31 »

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

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

akokin

  • Новичок
  • *
  • Уважение: +1/-0
  • Оффлайн Оффлайн
  • Сообщений: 6
Re: Cохранение документа WORD
« Ответ #1 : 21.03.2009, 09:55:59 »

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

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

End Sub
Записан

Шпец Докапыч

  • Ветеран
  • *****
  • Уважение: +189/-4
  • Оффлайн Оффлайн
  • Сообщений: 1 919
  • ОБЛАДАТЕЛЬ УНИКАЛЬНЫХ НАВЫКОВ!!! :)
Re: Cохранение документа WORD
« Ответ #2 : 22.03.2009, 11:54:35 »

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

Может Вы имеете ввиду задать для диалога директорию по умолчанию?
Тогда можно эмулировать её набор с клавиатуры:
Sub SHD_SaveWithDefaultPath()
  SendKeys "C:\К\~"
  Dialogs(84).Show
End Sub
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли
 



Темы без ответов

24.01.2020 14:03 На диаграмме Ганта несоответствие оси Y 210
09.08.2019 14:09 Макрос для заполнения таблиц через форму 1889
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 1568
09.07.2019 20:39 Кредит с уменьшением периода выплат 1695
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 2242
05.03.2019 17:00 Последовательный вывод таблиц Excel в один документ Word без шаблона 2366
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 2100
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 2168
20.01.2019 12:38 Все варианты частичного суммирования 2324
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 2097





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.125 секунд. Запросов: 101.