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 для 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
 
Коментарі (15)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Слава! Дякую, що поділились. Це було надзвичайно корисним. У мене було понад 50 000 документів, які потрібно було конвертувати. Щоб зробити все, знадобилося лише дотик понад 39 годин. Величезна допомога. Я використовував варіант 1
Цей коментар був мінімізований модератором на сайті
Відкрийте документ Word, який потрібно перетворити на файл PDF. Якщо ви хочете імпортувати лише ... ConvertOnlineFree - окремі та групові розмови документів Word у PDF ... PDFOnline - безкоштовний конвертер Word (doc, docx та txt) у PDF.

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

https://customersurveyinfo.com
Цей коментар був мінімізований модератором на сайті
Привіт, дякую, що поділилися.
Цей коментар був мінімізований модератором на сайті
Цікаві речі для читання. Так тримати.
Цей коментар був мінімізований модератором на сайті
Здравствуйте,
Я радий знайти цю корисну інформацію. Дякую, що поділилися цією дивовижною статтею.
Цей коментар був мінімізований модератором на сайті
Привіт.... Привіт, вміст цього блогу дуже технічна інформація, це один із найкращих блогів, які я маю. Дуже цікаво і дуже легко описати.
Цей коментар був мінімізований модератором на сайті
Вітаю, сер,
Мені подобається ця публікація. Я дуже вдячний за цей веб-сайт. Ваша інформація така хороша та цінна. Приємна ідея та концепція для обміну цим веб-сайтом.
Це чудовий веб-сайт. Ця публікація гарна.
Дякую, що поділились
Цей коментар був мінімізований модератором на сайті
Привіт, чудовий пост .. Продовжуйте ділитися. Дякую
Цей коментар був мінімізований модератором на сайті
Це дійсно глибока стаття, вона була дуже корисною та інформаційною
Цей коментар був мінімізований модератором на сайті
Дякуємо, що поділилися цією корисною інформацією.
Цей коментар був мінімізований модератором на сайті
найкраща компанія з графічного дизайну в Індії
Дизайн - це ремесло передачі слів у вигляді артикуляцій. Візуальне зображення має більше значення, ніж слова у розширеному полі.
Експерти в галузі дизайну рекомендують, щоб ілюстрації легше запам’ятати, ніж слова,
і саме тому дизайн веб-сайту та графіка відіграють обов’язкову роботу.

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

Farmtrac 60
Цей коментар був мінімізований модератором на сайті
Гарний інструмент, але у мене виникла проблема, що я не можу конвертувати файли DOC (написані великими літерами!) у файли docx.
Працює з файлами doc.
Цей коментар був мінімізований модератором на сайті
привіт,
Наступний код може допомогти конвертувати обидва 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
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця