3 быстрых способа пакетного преобразования Word DOC в файлы DOCX и наоборот

В этой статье есть 3 быстрых способа пакетного преобразования документа Word в файлы docx и наоборот.

Как правило, хорошо известно, что разные версии Word сохраняют файлы разных типов с такими расширениями, как .doc или .docx. При командной работе разные участники могут использовать разные версии Word. Следовательно, это приводит к сложности открытия и редактирования общих файлов. Например, вы не можете открывать docx-файлы в Word с версией до 2007 года. Кроме того, вы можете открывать doc-файлы в Word с версией 2007 и выше, но некоторые параметры могут быть ограничены, вызывая неудобства в редактирование.

Таким образом, крайне необходимо найти способы преобразования между документами Word и файлами docx, лучше, если это может обеспечить пакетную обработку.

Метод 1: пакетное преобразование Word Doc в файлы Docx

1. Первый и первыйost, организуйте все обрабатываемые файлы в одной папке.
2. Затем откройте Word и нажмите «Alt + F11», чтобы открыть редактор VBA.
3. Теперь нажмите «Обычный» проект и нажмите «Вставить» после него.
4. Затем выберите «Модуль», чтобы вставить новый модуль в проект.
5. Затем дважды щелкните модуль, чтобы открыть область редактирования, и вставьте следующие коды:

Sub TranslateDocIntoDocx() Dim objWordApplication As New Word.Application Dim objWordDocument As Word.Document Dim strFile As String Dim strFolder As String strFolder = "E:\Temp\" strFile = Dir(strFolder & "*.doc", vbNormal) While strFile <> "" С objWordApplication Set objWordDocument = .Documents.Open(FileName:=strFolder &strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False) С objWordDocument .SaveAs FileName:=strFolder & Replace(strFile, "doc ", "docx"), FileFormat:=16 .Close End With End With strFile = Dir() Wend Set objWordDocument = Nothing Set objWordApplication = Nothing End Sub

6. Наконец, нажмите кнопку «Выполнить».

Через несколько секунд вы обнаружите, что все файлы doc были преобразованы в файлы docx.

Примечание:

В строке кода «strFolder = "E:\Temp\"", вы должны заменить «Е:\Темп” с расположением вашей папки с файлами.

Метод 2: пакетное преобразование файлов Word Docx в файлы Doc

1. К starВ противном случае поместите все файлы docx в одну папку с файлами.
2. Точно так же нажмите «Alt + F11», чтобы открыть редактор VBA.
3. Затем следуйте тому же пути, что и в методе 1, чтобы вставить новый модуль и открыть его.
4. Затем вставьте туда следующие коды:

Sub TranslateDocxIntoDoc() Dim objWordApplication As New Word.Application Dim objWordDocument As Word.Document Dim strFile As String Dim strFolder As String strFolder = "E:\Temp\" strFile = Dir(strFolder & "*.docx", vbNormal) While strFile <> "" С objWordApplication Set objWordDocument = .Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False) С objWordDocument .SaveAs FileName:=strFolder & Replace(strFile, " docx", "doc"), FileFormat:=0 .Close End With End With strFile = Dir() Wend Set objWordDocument = Nothing Set objWordApplication = Nothing End Sub

5. Наконец, нажмите кнопку «Выполнить», чтобыtarт преобразование.

Тем не менее, вы должны помнить об изменении »Е:\Темп"в строке кода"strFolder = "E:\Temp\"» на фактический путь к папке с файлами.

Способ 3: используйте способ «Сохранить как»

1. Во-первых, поместите все файлы doc или docx в одну папку.
2. Во-вторых, нажмите «Ctrl» и щелкните, чтобы выбрать все файлы.
3. Затем щелкните правой кнопкой мыши и выберите «Сохранить как» в меню.
4. Теперь должно появиться несколько окон «Сохранить как», поэтому выберите doc или docx для типа файла соответственно.
5. Наконец, нажмите «Сохранить», чтобы закрыть все окна.

Однако из-за разнообразия версий Windows или Office параметр «Сохранить как» может быть недоступен в контекстном меню. Поэтому настоятельно рекомендуется использовать 2 макроса для выполнения задачи.

Следите за целостностью файла

Хотя мы представили 3 способа преобразования между файлами Word doc и docx, эти файлы очень восприимчивы к повреждениям из-за человеческих ошибок или неправильного обращения. Поэтому вам следует часто выполнять резервное копирование, а также хранить Утилита для исправления проблем с документом Word в случае возникновения повреждений.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая Инструмент исправления ошибок данных Excel и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com