Як пакетно конвертувати файли формату .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 В Конвертер формату документа діалогове вікно, потрібно зробити наступне:
3. Потім з’явиться діалогове вікно, щоб повідомити, скільки документів було успішно перетворено, клацніть на OK і закрийте Конвертер формату документа вікна.
Тепер усі документи формату .doc перетворюються у файли .docx. Дивіться знімок екрана:
Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.
Kutools для Outlook - приносить 100 розширених функцій для Outlook і значно полегшує роботу!
- Авто CC / BCC за правилами при відправці електронної пошти; Автоматичне пересилання вперед Кілька електронних листів на замовлення; Автовідповідь без сервера обміну та більше автоматичних функцій ...
- Попередження BCC - показати повідомлення при спробі відповісти всім якщо ваша поштова адреса є у списку BCC; Нагадати про відсутність вкладеньта інші функції нагадування ...
- Відповісти (Усі) з усіма вкладеннями в поштовій розмові; Відповісти на багато електронних листів за секунди; Автоматично додавати привітання при відповіді; Додати дату в тему ...
- Інструменти вкладення: Керування всіма вкладеннями у всіх листах, Автоматичне від'єднання, Стиснути все, Перейменувати все, Зберегти все ... Швидкий звіт, Підрахувати вибрані листи...
- Потужні небажані електронні листи за звичаєм; Видаліть повторювані листи та контакти... Дозвольте вам робити розумніші, швидші та кращі в Outlook.
