2

Скрипт VBS. Пытаюсь сохранить файл Word из формата doc в формат docx. Если не указываю расширение сохраняемого файла, WSH выдает ошибку "Неверно указано имя файла" 800A1420. Если указать расширение docx, то "Тип и расширение файла не совместимы" 800A18696. Задавал второй параметр: тип файла, пробовал SaveAs2. Ситуация не изменилась. Понимаю, что что-то делаю не так, но что не понятно.

Option Explicit
Const msoFileDialogOpen  = 1
Const wdDoNotSaveChanges = 0
Dim strText
Dim strPath
Dim strFileName
Dim strFileNameMask
strPath     = "C:\Documents and Settings\User\Мои документы\"
strFileNameMask = "*.doc"
strFileName = "A1.docx"
With WScript.CreateObject("Word.Application")
    .Visible = True
    With .FileDialog(msoFileDialogOpen)
        .AllowMultiSelect = False
        .InitialFileName  = strPath & strFileNameMask
        If .Show() = -1 Then
            With .Application.Documents.Open(.SelectedItems.Item(1))
                strText = .Range.Text
                    .SaveAs strPath & strFileName
            End With
        End If
    End With
    .Quit wdDoNotSaveChanges
End With
WScript.Quit
4
  • Стоит задача автоматической обработки файлов или нужно каждый раз вручную выбирать необходимый документ .doc и пересохранять его в .docx?
    – Daemon-5
    7 фев 2019 в 11:48
  • Задача стоит открытый файл .doc пересохранить в .docx
    – sergvm
    7 фев 2019 в 18:19
  • Не понял комментария.Еще раз спрошу: нужно это делать автоматически или пользователь должен вручную подтверждать каждую операцию: выбор файла для открытия, выбор пути и имени для пересохранения и т.д. ?
    – Daemon-5
    8 фев 2019 в 2:39
  • Не вижу особой разницы. Пусть вручную, что от этого изменится? Скрипт перед глазами, все вроде понятно.
    – sergvm
    9 фев 2019 в 7:58

1 ответ 1

0

Нужно вызвать процедуру пересохранения SaveAs. Этой процедуре нужно указать формат сохраняемого файла. Для docx этот параметр равен 12

Соответственно нужно в скрипте изменить строку сохранения на следующую:

            .SaveAs strPath & strFileName , 12
6
  • Из своего опыта скажу, что у меня возникала задача массовой обработки нескольких каталогов с сотнями вложенных файлов doc/docm. При этом содержимое каталогов менялось, требуя автоматизировать процесс пересохранения файлов в формат docx. Лучшим для меня решением стало объединить все процедуры: поиск файлов, пересохранение и лог в единый макрос-файл. Который и вызывался по расписанию, получая значение пути обрабатываемого каталога как параметр.
    – Daemon-5
    14 фев 2019 в 9:44
  • Извините меня, но вы внимательно прочитали мой вопрос? По-моему я про это уже писал, а именно "Задавал второй параметр: тип файла, пробовал SaveAs2. Ситуация не изменилась." Просто добавлю, что с SaveAs то же самое.
    – sergvm
    14 фев 2019 в 13:43
  • Я лично проверил скрипт с измененным кодом, на офисе 2016 все отработало
    – Daemon-5
    14 фев 2019 в 14:35
  • Я лично проверил скрипт, на офисе 2010 не работает выдает "Неверно указано имя файла".
    – sergvm
    15 фев 2019 в 8:39
  • Опять таки, проверил скрипт на MS Office 2010 - все работает. Остается задать простые вопросы. А у вас путь, указанный в переменной strPath существует? И правильно ли указана кодировка VBS-файла - WIN1251 ?
    – Daemon-5
    16 фев 2019 в 13:18

Ваш ответ

By clicking “Отправить ответ”, you agree to our terms of service and acknowledge that you have read and understand our privacy policy and code of conduct.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.