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

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


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

Новости:

Подпишитесь на рассылку новых сообщений форума через службу рассылок: Subscribe.ru

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

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



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

07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 104
20.01.2019 12:38 Все варианты частичного суммирования 200
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 155
30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 629
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 1434
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 1437
23.01.2018 13:46 Найти вероятность повторной покупки 1316
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1848
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 1604
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 2020





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

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