Note: The other languages of the website are Google-translated. Back to English

Как конвертировать файлы формата .doc в .docx в Word?

Предположим, вы получили документы Word в формате 97-2003, как вы можете одновременно конвертировать все эти документы в формате .doc в формат .docx? Эта статья покажет вам два метода решения этой проблемы.

Пакетное преобразование файлов формата .doc в .docx с кодом VBA
Пакетное преобразование файлов формата .doc в .docx с помощью Kutools for Word


Пакетное преобразование файлов формата .doc в .docx с кодом VBA

В этом разделе будет показан код VBA для одновременного преобразования всех документов формата .doc в указанной папке в документы .docx. Пожалуйста, сделайте следующее.

1. Соберите все документы в формате .doc, которые вы конвертируете в .docx, в указанную папку.

2. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. В окне нажмите Вставить > Модули. Затем скопируйте ниже код VBA в окно модуля.

Код VBA: пакетное преобразование всех документов формата .doc в .docx в определенной папке

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20181128
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(xFileName, "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub

4. нажмите F5 ключ для запуска кода. В открытии Приложения в окне выберите папку, содержащую документы в формате .doc, и нажмите OK. Смотрите скриншот:

Затем все документы в формате .doc немедленно преобразуются в документы .docx, как показано на скриншоте ниже.


Пакетное преобразование файлов формата .doc в .docx с помощью Kutools for Word

В этом разделе будет рекомендована удобная утилита. С Doc / Docx полезности Kutools for Word, вы можете легко преобразовать все документы в формате .doc в папке в документы .docx. Пожалуйста, попробуйте следующее.

Kutools for Word : С более чем 100 удобными надстройками Word, бесплатно без ограничений в течение 60 дней.

1. Соберите все документы формата .doc в указанную папку, затем щелкните Кутулс Плюс > Doc / Docx. Смотрите скриншот:

2. в Конвертер форматов документов диалоговом окне необходимо сделать следующее:

2.1) Выберите папку, содержащую документы в формате .doc в Папка с исходным файлом раздел;
2.2) Выбрать Преобразовать документ в docx из Формат Конвертировать раскрывающийся список;
2.3) По умолчанию Путь назначения такой же, как у источника флажок установлен. Если вы хотите поместить все преобразованные документы .docx в одну папку, просто оставьте этот параметр выбранным;
Если вы хотите разделить документы .docx и исходные документы .doc, снимите флажок Путь назначения такой же, как у источника поле и выберите новую папку для сохранения документов .docx в Сохранить коробка;
2.4) Нажмите старт кнопка. Смотрите скриншот:

3. Затем появится диалоговое окно, в котором указано, сколько документов было успешно преобразовано, щелкните значок OK кнопку и закройте Конвертер форматов документов окно.

Теперь все документы в формате .doc конвертируются в файлы .docx. Смотрите скриншот:

Если вы хотите получить бесплатную пробную версию этой утилиты, перейдите по ссылке бесплатно скачать программное обеспечение сначала, а затем перейдите к применению операции в соответствии с вышеуказанными шагами.


Kutools for Outlook - добавляет в Outlook 100 расширенных функций и делает работу намного проще!

  • Авто CC / BCC по правилам при отправке электронной почты; Автопересылка Несколько писем по индивидуальному заказу; Автоответчик без сервера обмена и дополнительных автоматических функций ...
  • Предупреждение BCC - показать сообщение при попытке ответить всем если ваш почтовый адрес находится в списке BCC; Напоминать об отсутствии вложений, и многое другое напоминает функции ...
  • Ответить (всем) со всеми вложениями в почтовой беседе; Ответить на много писем в секундах; Автоматическое добавление приветствия при ответе; Добавить дату в тему ...
  • Инструменты для вложений: управление всеми вложениями во всех письмах, Авто отсоединение, Сжать все, Переименовать все, сохранить все ... Быстрый отчет, Подсчет выбранных писем...
  • Мощные нежелательные электронные письма по обычаю; Удаление повторяющихся писем и контактов... Позвольте вам делать в Outlook умнее, быстрее и лучше.
выстрел kutools outlook kutools tab 1180x121
выстрел kutools outlook kutools plus tab 1180x121
 
Сортировать комментарии по
Комментарии (15)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Слава! Спасибо, что поделился. Это было чрезвычайно полезно. У меня было более 50 000 документов, которые нужно было преобразовать. Потребовалось всего лишь прикосновение более 39 часов, чтобы сделать их все. Огромная помощь. Я использовал вариант 1
Этот комментарий был сведен к минимуму модератором на сайте
Откройте документ Word, который вы хотите преобразовать в файл PDF. Если вы хотите импортировать только ... ConvertOnlineFree - отдельные и пакетные преобразования документов Word в PDF ... PDFOnline - бесплатный конвертер Word (doc, docx и txt) в PDF.

Хороший блог, статья, которой вы поделились, хороша. Эта статья очень полезна. Мой друг предлагает мне использовать этот блог.

https://customersurveyinfo.com
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, спасибо, что поделились.
Этот комментарий был сведен к минимуму модератором на сайте
Интересный материал для чтения. Так держать.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Я рад найти эту полезную информацию. Спасибо, что поделились этой замечательной статьей.
Этот комментарий был сведен к минимуму модератором на сайте
Привет....Привет, Этот блог содержит очень техническую информацию, это один из лучших блогов, которые у меня есть. Очень интересно и доступно описано.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте, сэр,
Мне нравится этот пост. Я очень ценю этот веб-сайт. Ваша информация такая хорошая и ценная. Прекрасная идея и концепция для совместного использования этого веб-сайта.
Это удивительный веб-сайт. Этот пост хорош.
Спасибо, что поделился
Этот комментарий был сведен к минимуму модератором на сайте
Привет, хороший пост .. Продолжайте делиться. Спасибо
Этот комментарий был сведен к минимуму модератором на сайте
Это действительно проницательная статья, нашел ее очень полезной и информативной.
Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, что поделились этой полезной информацией.
Этот комментарий был сведен к минимуму модератором на сайте
лучшая компания графического дизайна в Индии
Дизайн — это искусство общения слов в виде артикуляций. В продвинутой области визуальные эффекты важнее слов.
Эксперты в области дизайна рекомендуют, чтобы иллюстрации запоминались легче, чем слова.
и именно поэтому дизайн веб-сайтов и графика играют важную роль.

Этот комментарий был сведен к минимуму модератором на сайте
Спасибо, что поделился
Этот комментарий был сведен к минимуму модератором на сайте
Отличная информация Очень полезная спасибо, что поделились.

Фармтрак 60
Этот комментарий был сведен к минимуму модератором на сайте
Хороший инструмент, но у меня возникла проблема: я не могу конвертировать файлы DOC (написанные заглавными буквами!) в файлы docx.
Работает с документами.
Этот комментарий был сведен к минимуму модератором на сайте
Здравствуйте,
Следующий код может помочь преобразовать оба файла doc. и ДОК. файлы в файлы docx. Пожалуйста, попробуйте. Спасибо за ваш отзыв.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    Dim xDlg As FileDialog
    Dim xFolder As Variant
    Dim xFileName As String
    Application.ScreenUpdating = False
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show <> -1 Then Exit Sub
    xFolder = xDlg.SelectedItems(1) + "\"
    xFileName = Dir(xFolder & "*.doc", vbNormal)
    While xFileName <> ""
        Documents.Open FileName:=xFolder & xFileName, _
            ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
            PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
            WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
            wdOpenFormatAuto, XMLTransform:=""
        ActiveDocument.SaveAs xFolder & Replace(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места