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

[NikolayHAOS]

Всем доброго времени суток.

Есть каталог с кучей файлов Microsoft Word с расширением DOC

Я их открываю в Microsoft Word и выбираю сохранить как выбираю расширение DOCX потом исходный файл удаляю.

Как сие автоматизировать в BAT? если это возможно конечно.

Microsoft Word 2013.

Помогите пожалуйста.

[dislike]

Bat тут не нужен.

Держите

https://cloud.mail.ru/public/Mcvp/VmR3RBMm1

Открыть приложенный файл, нажать кнопку - указать вашу директорию с кучей файлов. Подождать. Бинго.

[NikolayHAOS]

dislike, Макрос. Точно.

Я как то и забыл про них, хоть в экселе и использую.

Если вдруг удалите с маил ру.



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

[spoiler]Код:

[/spoiler]

Код: Выделить всё

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,

CMD/BAT - doc в docx

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




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



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

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

[NikolayHAOS]

Цитата megaloman:



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

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

В чём?

Тут конкретное решение. А там?

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

Тут все понятно даже не особо знающему (например я). А там в коде черт ногу сломит.

Все выше написанное ИМХО конечно.

З.Ы. Но все равно спасибо. Много решений одной задачи на выбор, это просто отлично.

-----



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

[spoiler]Цитата megaloman:[/spoiler]



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

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

[megaloman]

Цитата NikolayHAOS:



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

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

CMD/BAT - doc в docx

представлен код vbs-скрипта с конкретным рабочем решением, проверенным клиентом.

Извините, если изложу известное, приведенный код надо сохранить в файл с расширением .vbs в текстовом редакторе (например, стандартным блокнотом), при этом файл .vbs является исполнимым и никаких дополнительных для стандартной системы средств для своего исполнения не требует.

При этом имеем главное удобство: Вы можете создать на этот скрипт значок, например, на рабочем столе, и затягивать на него мышкой в Проводнике нужную папку. То есть минимизируются затраты Вашего драгоценного ручного труда, Вы же стремились его автоматизировать?

Все выше написанное ИМХО конечно. Попробуйте, а вдруг понравится?

[NikolayHAOS]

Цитата megaloman:



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

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

Попробовал. Понравилось.

Вот готовый файл.

https://yadi.sk/d/cZcLiJvt3M9Rcc

Пересохраняет DOC в DOCX с удалением DOC.

При перетаскивании папки на значёк файла так же работает.