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 you have read our privacy policy.

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