Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Пересохранить документы из DOC в DOCX

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

Аватара для NikolayHAOS

Старожил


Сообщения: 430
Благодарности: 14

Профиль | Отправить PM | Цитировать


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

Отправлено: 16:23, 17-08-2017

 

Ветеран


Сообщения: 2417
Благодарности: 465

Профиль | Цитировать


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

Отправлено: 18:31, 17-08-2017 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для NikolayHAOS

Старожил


Сообщения: 430
Благодарности: 14

Профиль | Отправить PM | Цитировать


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


Добавить макрос в тело страницы.
Это сообщение посчитали полезным следующие участники:

Отправлено: 19:28, 17-08-2017 | #3


Ветеран


Contributor


Сообщения: 2708
Благодарности: 1684

Профиль | Отправить PM | Цитировать


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

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

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


Последний раз редактировалось megaloman, 17-08-2017 в 19:50.

Это сообщение посчитали полезным следующие участники:

Отправлено: 19:41, 17-08-2017 | #4


Аватара для NikolayHAOS

Старожил


Сообщения: 430
Благодарности: 14

Профиль | Отправить PM | Цитировать


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

Последний раз редактировалось NikolayHAOS, 18-08-2017 в 07:47.


Отправлено: 22:01, 17-08-2017 | #5


Ветеран


Contributor


Сообщения: 2708
Благодарности: 1684

Профиль | Отправить PM | Цитировать


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

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


Последний раз редактировалось megaloman, 18-08-2017 в 10:14.

Это сообщение посчитали полезным следующие участники:

Отправлено: 10:02, 18-08-2017 | #6


Аватара для NikolayHAOS

Старожил


Сообщения: 430
Благодарности: 14

Профиль | Отправить PM | Цитировать


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

Отправлено: 12:22, 19-08-2017 | #7



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » CMD/BAT - [решено] Пересохранить документы из DOC в DOCX

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
CMD/BAT - doc в docx Sisin Скриптовые языки администрирования Windows 33 13-05-2018 00:39
Разное - Сохранение документа из формата docx в doc, без потери формул xfinity Microsoft Office (Word, Excel, Outlook и т.д.) 14 21-03-2015 22:13
Интерфейс - [решено] Решил уменьшить место путем преобразования старых *.doc в *.docx однако их очень мно yurka45pacan@vk Microsoft Windows 8 и 8.1 4 09-03-2014 12:37
Batch DOC and DOCX Converter 2010.2.606.1411 OSZone Software Новости программного обеспечения 0 07-06-2010 00:30
Офис и Текст - Программы для конвертирования DOCX в DOC thief_89 Программное обеспечение Windows 1 13-08-2007 14:53




 
Переход