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

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


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

Новости:

Читайте новые сообщения форума форума в RRS-агрегаторах

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

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
Записан
Знания недостаточно, необходимо применение. Желания недостаточно, необходимо действие. (с) Брюс Ли
 



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

30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 390
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 1183
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 1183
23.01.2018 13:46 Найти вероятность повторной покупки 1077
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1512
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 1365
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1714
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 3470
15.03.2017 15:45 автозамена картинок PowerPoint 1968
11.03.2017 13:43 Изменить нумерацию страниц 2097





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

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