1

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

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

2

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

Melkiy пишет:

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

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

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

3

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

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

4

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

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

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

5

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

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

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

7

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

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

8

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

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

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

10

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.