|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
01.08.2018, 00:34 | #1 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
макрос пакетной конвертации docx в doc
На борту 300 файлов в формате docx. Существует ли макрос, который умеет их пакетно конвертировать в doc? (у меня Word 2003 и он крайне медленно открывает docx'ы).
|
01.08.2018, 09:34 | #2 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ну, такой макрос можно и написать (если готовый не найдётся).
не смущает, что формат DOCX - это расширенный формат? В нём могут быть фишки, недоступные в DOC. (например, может "поплыть" разметка, оформление, шрифты и т.д.) Вы пробовали взять несколько произвольных штук из ваших 300 и сконвертировать в DOC? Всё сохранилось? Открывается быстро? Сделайте копию своих документов и попробуйте, например, такой макрос: Код:
ВНИМАНИЕ! Макрос не проверял! если макрос не работает, попробуйте изменить макрос отсюда https://wordribbon.tips.net/T000643_...s_to_DOCX.html Последний раз редактировалось Serge_Bliznykov; 01.08.2018 в 09:44. |
01.08.2018, 11:52 | #3 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
Мои файлы без всяких затей тексты, плыть нечему - конвертировать пробовал, нормально выходит.
Ваш макрос не понял как запустить и где вписать пути к каталогу (проблема еще в том, что там вложенные каталоги, штук 20, но это я и по очереди могу, не страшно) Попробовал доработать америкосовский макрос, мозгов не хватило, что-то такое вот вышло: Код:
|
01.08.2018, 12:04 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
думаю, что в "америкосовском" нужно ещё формат поменять:
Код:
откройте MS Word. Нажмите Alt-F11. Откроется редактор Visual Basic. слева на нужном документе (в котором будет данный макрос) правой кнопкой мышки - "Insert" -> "Module" справа откроется окошко - туда вставить текст макроса. Выполнить либо кнопкой "Run" (F5) в редакторе VBA. Либо перейти в документа, нажать Alt-F8, выбрать имя макроса из списка и нажать кнопку "Выполнить" на форме. |
01.08.2018, 12:12 | #5 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
проблема в том, что при нажатии Run всплывает окно "Макрос", а в списке там нет SaveAllFormData и по-прежнему неизвестно, куда пути прописать
Америкосовский макрос подправил - срабатывает, но ничего не создается. Симулирует, в общем |
01.08.2018, 13:47 | #6 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
если макрос с параметром, его не будет в списке
Код:
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
01.08.2018, 14:36 | #7 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
увы
Run-time error '438': Object doesn't support this property or method |
01.08.2018, 14:50 | #8 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
на какой строке кода возникает ошибка?
если не выпадает - попробуйте пройтись по коду пошагово: в редакторе нажимайте клавишу F8 |
01.08.2018, 14:56 | #9 |
Форумчанин
Регистрация: 27.10.2009
Сообщений: 277
|
ошибка в блоке ' Save form data
|
01.08.2018, 15:14 | #10 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
А если этот блок заменить на такой:
Код:
если это не поможет, то откройте ручками любой DOCX, включите макрорекордер ("Запись макроса"), сохраните файл как нужно, остановите запись макрорекордера, перейдите в записанный код и скопируйте сохранение оттуда. возможно, что в MS Word 2003 код сохранения чуть отличался. |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
извлечь фотографии из doc (docx) файла | mr_xxx | Общие вопросы Delphi | 3 | 31.01.2017 10:20 |
Конвертация docx в doc | Delphi_ProGer | Общие вопросы Delphi | 7 | 11.06.2012 09:01 |
*.DOC в *.DOCX | IP (O IM /A IH | Microsoft Office Word | 7 | 31.10.2010 21:12 |
Как сохранить .doc в docx? | beda | Microsoft Office Word | 7 | 24.06.2010 15:37 |
Открытие .doc или .docx в MS Word | MADDAN | Microsoft Office Word | 4 | 16.09.2008 21:55 |