Як пакетно конвертувати файли формату .doc у .docx у програмі Word?

Припустимо, що ви отримали кілька документів Word у форматі 97-2003, як можна пакетно перетворювати всі ці документи формату .doc у формат .docx відразу? Ця стаття покаже вам два способи вирішення цієї проблеми.

Пакетне перетворення файлів формату .doc у .docx за допомогою коду VBA
Пакетне перетворення файлів формату .doc у .docx за допомогою Kutools для Word

Пакетне перетворення файлів формату .doc у .docx за допомогою коду VBA

У цьому розділі буде показано код VBA для перетворення всіх документів формату .doc у зазначеній папці одночасно у документи .docx. Будь ласка, виконайте наступне.

1. Зберіть усі документи формату .doc, які ви конвертуєте у .docx, у вказану папку.

2 Натисніть кнопку інший + F11 ключ, щоб відкрити Microsoft Visual Basic для додатків вікна.

3. У вікні натисніть Insert > Модулі. Потім скопіюйте код 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 для Word

У цьому розділі буде рекомендована зручна утиліта. За допомогою Doc / Docx корисність Kutools для Word, Ви можете легко перетворити всі документи формату .doc у папці на документи .docx. Будь ласка, спробуйте наступне.

Kutools для Word : Маючи понад 100 зручних надбудов Word, безкоштовно спробувати без обмежень протягом 60 днів.

1. Зберіть усі документи формату .doc у вказану папку та натисніть Kutools Plus > Doc / Docx. Дивіться знімок екрана:

2 В Конвертер формату документа діалогове вікно, потрібно зробити наступне:

2.1) Виберіть папку, яка містить документи формату .doc у Папка вихідного файлу розділ;

2.2) Виберіть Перетворити doc на docx від Перетворення формату випадаючий список;

2.3) За замовчуванням Шлях призначення такий же, як і джерело позначено. Якщо ви хочете помістити всі перетворені документи .docx в одну папку, просто залишайте цей параметр вибраним;

Якщо ви хочете розділити документи .docx та вихідні документи .doc, зніміть прапорець біля Шлях призначення такий же, як і джерело і виберіть нову папку, щоб зберегти документи .docx у Зберегти до коробка;

2.4) Клацніть на Start кнопку. Дивіться знімок екрана:

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

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

Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.

Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!

Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.

постріл kutools outlook kutools вкладка 1180x121

постріл kutools outlook kutools плюс вкладка 1180x121

Детальніше ... Скачати зараз...

Коментарі (17)

Поки немає оцінок. Оцініть першим!

BigB7v1

про 3 років тому

# 28618

Цей коментар був мінімізований модератором на сайті

Слава! Дякую, що поділились. Це було надзвичайно корисним. У мене було понад 50 000 документів, які потрібно було конвертувати. Щоб зробити все, знадобилося лише дотик понад 39 годин. Величезна допомога. Я використовував варіант 1

відповісти

Richard876 BigB7v1

про 3 років тому

# 28619

Цей коментар був мінімізований модератором на сайті

Відкрийте документ Word, який потрібно перетворити на файл PDF. Якщо ви хочете імпортувати лише ... ConvertOnlineFree - окремі та групові розмови документів Word у PDF ... PDFOnline - безкоштовний конвертер Word (doc, docx та txt) у PDF.

Чудовий блог, стаття, якою ви поділилися, гарна. Ця стаття дуже корисна. Мій друг порадив мені скористатися цим блогом.

https://customersurveyinfo.com

відповісти

доповідь

Радха Richard876

про 2 років тому

# 28620

Цей коментар був мінімізований модератором на сайті

Привіт, дякую, що поділилися.

відповісти

George56

про 3 років тому

# 29322

Цей коментар був мінімізований модератором на сайті

Цікаві речі для читання. Так тримати.

відповісти

Трактор Massey

про 2 років тому

# 32093

Цей коментар був мінімізований модератором на сайті

Здравствуйте,
Я радий знайти цю корисну інформацію. Дякую, що поділилися цією дивовижною статтею.

відповісти

Липика

про 2 років тому

# 33568

Цей коментар був мінімізований модератором на сайті

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

відповісти

Радха

про 2 років тому

# 33657

Цей коментар був мінімізований модератором на сайті

Вітаю, сер,
Мені подобається ця публікація. Я дуже вдячний за цей веб-сайт. Ваша інформація така хороша та цінна. Приємна ідея та концепція для обміну цим веб-сайтом.
Це чудовий веб-сайт. Ця публікація гарна.
Дякую, що поділились

відповісти

шрія гупта

про 2 років тому

# 34341

Цей коментар був мінімізований модератором на сайті

Привіт, чудовий пост .. Продовжуйте ділитися. Дякую

відповісти

uaevisaonline

про 1 рік тому

# 34732

Цей коментар був мінімізований модератором на сайті

Це дійсно глибока стаття, вона була дуже корисною та інформаційною

відповісти

доповідь

ajumas

про 1 рік тому

# 34917

Цей коментар був мінімізований модератором на сайті

Дякуємо, що поділилися цією корисною інформацією.

відповісти

доповідь

narendra

про 1 рік тому

# 35352

Цей коментар був мінімізований модератором на сайті

найкраща компанія з графічного дизайну в Індії
Дизайн - це ремесло передачі слів у вигляді артикуляцій. Візуальне зображення має більше значення, ніж слова у розширеному полі.
Експерти в галузі дизайну рекомендують, щоб ілюстрації легше запам’ятати, ніж слова,
і саме тому дизайн веб-сайту та графіка відіграють обов’язкову роботу.

відповісти

доповідь

thehirstylish

близько 10 місяців тому

# 37155

Цей коментар був мінімізований модератором на сайті

Дякую, що поділились

відповісти

Безпечний

близько 7 місяців тому

# 37765

Цей коментар був мінімізований модератором на сайті

Чудова інформація Дуже корисна, дякую, що поділилися.

Farmtrac 60

відповісти

Марко

близько 7 місяців тому

# 37864

Цей коментар був мінімізований модератором на сайті

Гарний інструмент, але у мене виникла проблема, що я не можу конвертувати файли DOC (написані великими літерами!) у файли docx.
Працює з файлами doc.

відповісти

кристал Марко

близько 7 місяців тому

# 37883

Цей коментар був мінімізований модератором на сайті

привіт,
Наступний код може допомогти конвертувати обидва doc. і 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

відповісти

доповідь

Даніель Бенеш

близько 1 місяця тому

# 41106

Цей коментар був мінімізований модератором на сайті

Dobrý ден,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Добрий день,
Мені потрібен був би сценарій VBA, який би працював, включаючи вкладені папки. Чи може хтось також відредагувати цей сценарій? Дякую.

відповісти

кристал Даніель Бенеш

близько 1 тижня тому

# 41445

Цей коментар був мінімізований модератором на сайті

Привіт Даніель Бенеш,
Щоб додати вкладені папки, спробуйте наступний код VBA.
Після додавання коду перейдіть до інструменти вкладка, клацніть посилання, у відкритті Список літератури - Проект діалогове вікно, перевірте Виконання сценаріїв Microsoft , а потім клацніть на OK кнопку для збереження змін. Перегляньте наступний знімок екрана:

https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png

Після цього натисніть кнопку F5 клавіша для запуску коду.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function

відповісти

доповідь

There are no comments posted here yet

Залишайте свої коментарі

Публікація як гість

Увійти

Ім'я (обов'язково)

E-mail (обов'язково)

Оцініть цю публікацію:

скидання

0 Персонажі

Я згоден з Терміни та умови