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

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


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

Новости:

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

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

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



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

22.05.2018 11:38 Скрипт написать который допишет данные в файл 570
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 848
14.02.2018 10:11 Подготовить читабельную отчетность по платежам 821
23.01.2018 13:46 Найти вероятность повторной покупки 778
12.01.2018 23:56 Сделать отчет на Power BI (Dashboard) 1060
06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 1033
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 1347
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 2953
15.03.2017 15:45 автозамена картинок PowerPoint 1782
11.03.2017 13:43 Изменить нумерацию страниц 2013





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

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