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

В тази статия има 3 бързи начина за групово конвертиране на Word doc в docx файлове и обратно.

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

По този начин е от голяма необходимост да се намерят начини за конвертиране между Word doc и 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 <> ""
    With objWordApplication      
      Set objWordDocument = .Documents.Open(FileName:=strFolder &strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)
          
      With 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 \” ”, трябва да замените „E: \ Temp”С местоположението на вашата папка с файлове.

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

1. Към start изключете, поставете всички 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 <> ""
    With objWordApplication  
      Set objWordDocument = .Documents.Open(FileName:=strFolder & strFile, AddToRecentFiles:=False, ReadOnly:=True, Visible:=False)
     
      With 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. И накрая, натиснете бутона „Run“, за да start преобразуване.

Все пак трябва да запомните да промените “E: \ Temp”В кодовия ред“strFolder = “E: \ Temp \””Към действителния път на папката на файла.

Метод 3: Използвайте начина „Запазване като“

1. Първо, подредете всички doc или docx файлове в една папка.
2. На второ място натиснете „Ctrl“ и щракнете, за да изберете всички файлове.
3. След това щракнете с десния бутон и изберете „Save As“ в менюто.
4. Сега ще се появят множество прозорци „Запазване като“, така че изберете doc или docx за типа файл съответно.
5. Накрая щракнете върху „Запазване“, за да затворите всички прозорци.

Поради разнообразието от версии на Windows или Office обаче опцията „Запазване като“ може да не е налична в контекстното меню. Ето защо е силно препоръчително да предприемете 2 макро начина за провеждане на задачата.

Обърнете внимание на целостта на файла

Въпреки че въведохме 3 начина за конвертиране между Word doc и docx файлове, тези файлове са силно податливи на корупция поради човешки грешки или неправилни действия. Следователно, трябва да правите резервни копия често и също така да поддържате a Помощна програма за ремонт на проблеми с документи на Word в случай на настъпили щети.

Въведение на автора:

Вера Чен е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително Инструмент за ремонт на грешки в данните на Excel и pdf ремонт на софтуерни продукти. За повече информация посетете WWW.datanumen.com