Як пакетно конвертувати файли формату .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. У вікні натисніть 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 for Word
У цьому розділі буде рекомендована зручна утиліта. За допомогою Doc / Docx корисність Kutools для Word, Ви можете легко перетворити всі документи формату .doc у папці на документи .docx. Будь ласка, спробуйте наступне.
Kutools для Word : Маючи понад 100 зручних надбудов Word, безкоштовно спробувати без обмежень 60 днів.
1. Зберіть усі документи формату .doc у вказану папку та натисніть Kutools Plus > Doc / Docx. Дивіться знімок екрана:
2 В Конвертер формату документа діалогове вікно, потрібно зробити наступне:
3. Потім з’явиться діалогове вікно, щоб повідомити, скільки документів було успішно перетворено, клацніть на OK і закрийте Конвертер формату документа вікна.
Тепер усі документи формату .doc перетворюються у файли .docx. Дивіться знімок екрана:
Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.
Найкращі інструменти продуктивності офісу
Kutools для Outlook - Понад 100 потужних функцій, які покращать ваш Outlook
???? Автоматизація електронної пошти: Поза офісом (доступно для POP та IMAP) / Розклад надсилання електронних листів / Автоматична копія/прихована копія за правилами під час надсилання електронної пошти / Автоматичне пересилання (розширені правила) / Автоматично додавати привітання / Автоматично розділяйте електронні листи кількох одержувачів на окремі повідомлення ...
📨 Управління електронною поштою: Легко відкликайте електронні листи / Блокуйте шахрайські електронні листи за темами та іншими / Видалити повторювані електронні листи / розширений пошук / Консолідація папок ...
📁 Вкладення Pro: Пакетне збереження / Пакетне від'єднання / Пакетний компрес / Автозавантаження / Автоматичне від'єднання / Автокомпресія ...
???? Магія інтерфейсу: 😊Більше красивих і класних смайликів / Підвищте продуктивність Outlook за допомогою вкладок / Згорніть Outlook замість того, щоб закривати ...
👍 Дива в один клік: Відповісти всім із вхідними вкладеннями / Антифішингові електронні листи / 🕘Показувати часовий пояс відправника ...
👩🏼🤝👩🏻 Контакти та календар: Пакетне додавання контактів із вибраних електронних листів / Розділіть групу контактів на окремі групи / Видаліть нагадування про день народження ...
більше Особливості 100 Чекайте на ваше дослідження! Натисніть тут, щоб дізнатися більше.