Խմբաքանակի փոխանակման 3 արագ եղանակներ Word DOC- ը DOCX ֆայլերի և հակառակը փոխելու համար

Այս հոդվածում կան 3 արագ եղանակներ Word- ի խմբաքանակը doc doc ֆայլերի փոխանակելու համար և հակառակը:

Ընդհանրապես հայտնի է, որ Word- ի տարբեր տարբերակները ֆայլեր են պահպանում տարբեր տեսակի ՝ ընդլայնումներով, ինչպիսիք են .doc կամ .docx: Թիմային աշխատանքներում հավանական է, որ տարբեր անդամներ օգտագործում են Word- ի տարբերակ: Հետևաբար, դա հանգեցնում է ընդհանուր ֆայլերի բացման և խմբագրման դժվարությանը: Օրինակ, դուք չեք կարող Word- ում docx ֆայլեր բացել տարբերակով ավելի վաղ, քան 2007 թվականը: Բացի այդ, կարող եք Word- ում բացել Doc ֆայլեր 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 \" ", դուք պետք է փոխարինեք «Ե: \ empերմ”Ձեր ֆայլի պանակի գտնվելու վայրով:

Մեթոդ 2. Խմբաքանակի միջոցով Word Docx ֆայլերը վերափոխեք Doc ֆայլերի

1. Սtarանջատեք, տեղադրեք բոլոր 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» կոճակը s- ի վրաtarփոխակերպում:

Դեռ պետք է հիշել, որ փոխեք «Ե: \ empերմ»Կոդային տողում«strFolder = "E: \ Temp \"”Դեպի ձեր իսկական ֆայլի պանակի ուղին:

Մեթոդ 3. Օգտագործեք «Պահպանել որպես» եղանակը

1. Նախևառաջ, բոլոր թղթապանակների կամ docx ֆայլերը դասավորեք մեկ պանակում:
2. Երկրորդը սեղմեք «Ctrl» և կտտացրեք բոլոր ֆայլերն ընտրելու համար:
3. Հաջորդը կտտացրեք աջին և ընտրացանկում ընտրեք «Պահել որպես»:
4. Այժմ պետք է հայտնվեն բազմաթիվ «Save As» պատուհաններ, ուստի համապատասխանաբար ընտրեք doc կամ docx ֆայլի տիպի համար:
5. Վերջապես կտտացրեք «Պահել» կոճակին ՝ բոլոր պատուհանները փակելու համար:

Այնուամենայնիվ, Windows- ի կամ Office- ի տարբերակի բազմազանության պատճառով «Պահպանել որպես» տարբերակը հնարավոր է, որ հասանելի չլինի համատեքստային ընտրացանկում: Ուստի խորհուրդ է տրվում վերցնել առաջադրանքը կատարելու 2 մակրո եղանակները:

Հաշվի առեք ձեր ֆայլի ամբողջականությունը

Չնայած մենք ներմուծեցինք Word doc և docx ֆայլերի միջև փոխակերպման 3 եղանակ, այդ ֆայլերը խիստ ենթակա են մարդկային սխալների կամ սխալ գործածությունների հետևանքով կոռուպցիայի: Հետեւաբար, դուք պետք է հաճախ կրկնօրինակեք և պահեք ա Word փաստաթղթի խնդիրների վերականգնման օգտակար ծրագիր վնասների առաջացման դեպքում:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում Excel տվյալների սխալների վերականգնման գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com