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

[NikolayHAOS]

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

[dislike]

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

[NikolayHAOS]

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

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

[megaloman]

NikolayHAOS, Вот здесь эта задача решалась успешно vbs-скриптом (http://forum.oszone.net/thread-327248.html)
Во многом это удобнее обычного макроса.

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

[NikolayHAOS]

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

[megaloman]

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

[NikolayHAOS]

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