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

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


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

Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

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

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



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

09.08.2019 14:09 Макрос для заполнения таблиц через форму 330
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 230
09.07.2019 20:39 Кредит с уменьшением периода выплат 264
28.05.2019 21:09 Сделать несколько скриптов для рабочей таблицы 608
05.03.2019 17:00 Последовательный вывод таблиц Excel в один документ Word без шаблона 924
05.03.2019 09:29 Нежелательные изменение размеров колонтитула при редактировании 669
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 833
20.01.2019 12:38 Все варианты частичного суммирования 995
13.01.2019 12:24 Заполнение диапазона числами - в виде кластеров 824
30.09.2018 10:24 Расчет процентов за определенный период (месяц) с учетом изменений и платежей 1245





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

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