1 Тема от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Тема: Создание папки макросом

Искал, НЕ НАШЁЛ smile  Подскажите (научите) как макросом в Word (2010) создать папку?

2 Ответ от Alex_Gur

  • Создание папки макросом
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Создание папки макросом

Melkiy пишет:

Искал, НЕ НАШЁЛ smile  Подскажите (научите) как макросом в Word (2010) создать папку?

Папку на диске?

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

3 Ответ от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Re: Создание папки макросом

да, не важно на каком. я так понимаю путь потом можно изменить.

4 Ответ от Alex_Gur

  • Создание папки макросом
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Создание папки макросом

Попробуйте так:

MkDir ActiveDocument.Path & "\Новая"
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

5 Ответ от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Re: Создание папки макросом

sad  не получилось

Post's attachments

Пример.dot 58 Кб, 1 скачиваний с 2015-09-25 

You don't have the permssions to download the attachments of this post.

6 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 1

Re: Создание папки макросом

Объект FileSystemObject метод CreateFolder
Примеры кода на сайте scriptcoding.ru
внешняя ссылка

7 Ответ от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Re: Создание папки макросом

чем дальше в лес, тем .... как эти скрипты подвязать к word? попроще ни как? извините

8 Ответ от Alex_Gur

  • Создание папки макросом
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492
  • За сообщение: 1

Re: Создание папки макросом

У меня создается (папка создается в той же директории, что и файл (файл должен быть предварительно сохранен в какую-либо директорию)):

Sub MakeDir1()
    MkDir ActiveDocument.Path & "\Новая"
End Sub

Но только один раз.
Если такая папка уже существует, то выдается ошибка.
Нужно еще сделать проверку на существование папки. Это я постараюсь сделать позже.

Post's attachments

Doc3.docm 16.67 Кб, 2 скачиваний с 2015-09-25 

You don't have the permssions to download the attachments of this post.
Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.

9 Ответ от Melkiy

  • Melkiy
  • рядовой
  • Неактивен
  • Зарегистрирован: 14.09.2015
  • Сообщений: 7

Re: Создание папки макросом

Спасибо за старания. Если честно, не думал, что так сложно. Казалось бы, что такого? всего лишь создать папку

10 Ответ от Alex_Gur

  • Создание папки макросом
  • Alex_Gur
  • Модератор
  • Неактивен
  • Откуда: Москва
  • Зарегистрирован: 28.07.2011
  • Сообщений: 2,758
  • Поблагодарили: 492

Re: Создание папки макросом

Сейчас производится проверка на наличие папки в директории:

Sub MakeDir1()
    Dim srtFold As String
    srtFold = ActiveDocument.Path & "\Новая"
    If Dir(srtFold, vbDirectory) = "" Then
        MkDir srtFold
    End If
End Sub

Если честно, не думал, что так сложно. Казалось бы, что такого? всего лишь создать папку

Вообще-то, это не так просто. Word, все же, текстовый редактор, а не менеджер файлов. smile

Удобной и приятной работы в Word!
Перевести спасибо на Яндекс кошелёк - 41001162202962; на WebMoney - R581830807057.