Багцлах 3 хурдан арга. Word DOC-ийг DOCX файлууд болон дэд Versa болгон хөрвүүлэх

Энэ нийтлэлд Word doc програмыг docx файл болгон хөрвүүлэх багц 3 аргыг санал болгож байна.

Ерөнхийдөө Word-ийн янз бүрийн хувилбарууд нь .doc эсвэл .docx гэх мэт өргөтгөлтэй файлуудыг өөр өөр хэлбэрээр хадгалдаг гэдгийг бүгд мэддэг байсан. Багийн ажилд өөр өөр гишүүд Word-ийн өөр хувилбарыг ашигладаг байх магадлалтай. Тиймээс энэ нь хуваалцах файлуудыг нээх, засварлахад бэрхшээлтэй байдалд хүргэдэг. Жишээлбэл, та 2007 оноос өмнө Word дээр docx файлыг хувилбартай нь нээж чадахгүй. Үүнээс гадна Word дээр 2007 ба түүнээс дээш хувилбартай doc файл нээх боломжтой боловч зарим тохиргоог хязгаарлаж болох тул таагүй байдалд хүргэж болзошгүй юм. засварлах.

Тиймээс, багц боловсруулалтанд хүрч чадвал Word doc болон docx файлуудыг хөрвүүлэх арга замыг хайх нь маш чухал юм.

Арга 1: Word Doc-ийг Docx файл болгон багцаар хөрвүүлэх

1. Юуны өмнөost, бүх файлыг нэг файлын хавтсанд эмхлэх.
2. Дараа нь Word програмыг нээгээд “Alt + F11” дээр дарж VBA засварлагчийг нээнэ үү.
3. Одоо "Normal" төслийг дарж, дараа нь "Insert" дээр дарна уу.
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. Үүнтэй адил VBA засварлагчийг нээхийн тулд “Alt + F11” товчийг дарна уу.
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. Эцэст нь s руу "Run" товчийг дарна ууtart хөрвүүлэх.

Гэсэн хэдий ч та "өөрчлөхийг санаж байх ёстойE: \ Temp"Гэсэн мөрийн мөрөндstrFolder = “E: \ Temp \”"Файлыг жинхэнэ фолдерын зам дээр дарна уу.

Арга 3: "Хадгалах" аргыг ашигла

1. Нэгдүгээрт, бүх doc эсвэл docx файлуудыг нэг хавтсанд байрлуул.
2. Хоёрдугаарт “Ctrl” дээр дараад бүх файлыг сонгоно уу.
3. Дараа нь хулганы баруун товчийг дараад цэснээс "Хадгалах" -ыг сонгоно уу.
4. Одоо "Хадгалах" олон цонх гарч ирэх тул файлын төрөлд тохирох doc эсвэл docx-ийг сонгоно уу.
5. Эцэст нь "Хадгалах" дээр дарж бүх цонхыг хаах хэрэгтэй.

Гэсэн хэдий ч Windows эсвэл Office хувилбаруудын олон янз байдгаас шалтгаалан "Хадгалах" сонголт нь контекст цэсэнд байхгүй байж магадгүй юм. Тиймээс даалгаврыг хэрэгжүүлэх макро 2 аргыг ашиглахыг зөвлөж байна.

Файлынхаа бүрэн бүтэн байдлыг санаарай

Word doc ба docx файл хооронд хөрвүүлэх 3 аргыг нэвтрүүлсэн боловч эдгээр файлууд нь хүний ​​алдаа эсвэл буруу үйлдлийн улмаас авлигад өртөмтгий байдаг. Тиймээс та нөөцөлж аваарай Word баримт бичигтэй холбоотой асуудлыг засах хэрэгсэл хохирол учирсан тохиолдолд.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. Excel-ийн өгөгдлийн алдааг засах хэрэгсэл болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com