[решено] Пересохранить документы из DOC в DOCX

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Пересохранить документы из DOC в DOCX (http://forum.oszone.net/showthread.php?t=329152)

Пересохранить документы из DOC в DOCX

Всем доброго времени суток.
Есть каталог с кучей файлов Microsoft Word с расширением DOC
Я их открываю в Microsoft Word и выбираю сохранить как выбираю расширение DOCX потом исходный файл удаляю.
Как сие автоматизировать в BAT? если это возможно конечно.
Microsoft Word 2013.
Помогите пожалуйста.

Bat тут не нужен.
Держите https://cloud.mail.ru/public/Mcvp/VmR3RBMm1
Открыть приложенный файл, нажать кнопку - указать вашу директорию с кучей файлов. Подождать. Бинго.

dislike, Макрос. Точно.
Я как то и забыл про них, хоть в экселе и использую.
Если вдруг удалите с маил ру.

Скрытый текст

Код:

Private Sub CommandButton1_Click()

    Dim coll As Collection, strFolder As String, strFilePath

    With Application.FileDialog(msoFileDialogFolderPicker)

        .AllowMultiSelect = False

        If .Show Then strFolder = .SelectedItems(1)

    End With

    Set coll = FilenamesCollection(strFolder, ".doc")

    Application.ScreenUpdating = False

    For Each strFilePath In coll

        With Documents.Open(strFilePath)

            .SaveAs2 Left(.FullName, InStrRev(.FullName, ".")) & "docx", 12

            .Close

            Kill strFilePath 'удаление исходного файла

        End With

    Next

    Application.ScreenUpdating = True

End Sub

Добавить макрос в тело страницы.

NikolayHAOS, Вот здесь эта задача решалась успешно vbs-скриптом
Во многом это удобнее обычного макроса.

Цитата:

Цитата Книга Екклесиаста

9 Что было, то и будет; и что делалось, то и будет делаться, и нет ничего нового под солнцем.
11 Нет памяти о прежнем; да и о том, что будет, не останется памяти у тех, которые будут после.

Цитата:

Цитата megaloman

Во многом это удобнее обычного макроса. »

В чём?
Тут конкретное решение. А там?
Тут готовый к исполнению файл. А там?
Тут все понятно даже не особо знающему (например я). А там в коде черт ногу сломит.
Все выше написанное ИМХО конечно.
З.Ы. Но все равно спасибо. Много решений одной задачи на выбор, это просто отлично.
-----

Скрытый текст

Цитата:

Цитата megaloman

Даже самая сложная проблема обязательно имеет простое, лёгкое для понимания, неправильное решение. »

:laugh: :laugh: :laugh:

Цитата:

Цитата NikolayHAOS

Тут конкретное решение. А там? Тут готовый к исполнению файл. А там? »

Там представлен код vbs-скрипта с конкретным рабочем решением, проверенным клиентом.
Извините, если изложу известное, приведенный код надо сохранить в файл с расширением .vbs в текстовом редакторе (например, стандартным блокнотом), при этом файл .vbs является исполнимым и никаких дополнительных для стандартной системы средств для своего исполнения не требует.
При этом имеем главное удобство: Вы можете создать на этот скрипт значок, например, на рабочем столе, и затягивать на него мышкой в Проводнике нужную папку. То есть минимизируются затраты Вашего драгоценного ручного труда, Вы же стремились его автоматизировать?
Все выше написанное ИМХО конечно. :mail1: Попробуйте, а вдруг понравится?

Цитата:

Цитата megaloman

Попробуйте, а вдруг понравится? »

Попробовал. Понравилось.
Вот готовый файл. https://yadi.sk/d/cZcLiJvt3M9Rcc
Пересохраняет DOC в DOCX с удалением DOC.
При перетаскивании папки на значёк файла так же работает.