Note: The other languages of the website are Google-translated. Back to English

Cum se convertesc în lot fișierele în format .doc în .docx în Word?

Presupunând că ați primit câteva documente Word în format 97-2003, cum puteți converti toate aceste documente în format .doc în format .docx simultan? Acest articol vă va arăta două metode pentru a rezolva această problemă.

Conversia în lot a fișierelor în format .doc în .docx cu cod VBA
Conversia în lot a fișierelor în format .doc în .docx cu Kutools pentru Word


Conversia în lot a fișierelor în format .doc în .docx cu cod VBA

Această secțiune vă va arăta codul VBA pentru a converti toate documentele în format .doc dintr-un folder specificat în documente .docx simultan. Vă rugăm să faceți următoarele.

1. Vă rugăm să colectați toate documentele în format .doc pe care le veți converti în .docx într-un folder specificat.

2. apasă pe Alt + F11 tasta pentru a deschide fișierul Microsoft Visual Basic pentru aplicații fereastră.

3. În fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra Module.

Cod VBA: convertiți în lot toate documentele în format .doc în .docx într-un anumit folder

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. apasă pe F5 tasta pentru a rula codul. În deschidere Naviga fereastra, selectați folderul care conține documentele în format .doc și faceți clic pe OK. Vedeți captura de ecran:

Apoi, toate documentele în format .doc sunt convertite în documente .docx imediat după cum se arată în imaginea de mai jos.


Conversia în lot a fișierelor în format .doc în .docx cu Kutools pentru Word

Un utilitar util va fi recomandat în această secțiune. Cu Doc / Docx utilitatea Kutools pentru Cuvânt, puteți converti cu ușurință toate documentele în format .doc dintr-un folder în documente .docx. Vă rugăm să încercați după cum urmează.

Kutools pentru Cuvânt : Cu mai mult de 100 de suplimente Word la îndemână, liber să încercați fără limitări în 60 de zile.

1. Vă rugăm să colectați toate documentele în format .doc într-un folder specificat, apoi faceți clic pe Kutools Plus > Doc / Docx. Vedeți captura de ecran:

2. În Convertor format de documente casetă de dialog, trebuie să faceți următoarele:

2.1) Selectați folderul care conține documente în format .doc în Dosar fișier sursă secțiune;
2.2) Selectați Convertiți doc în docx de la Format Convertiți lista verticală;
2.3) În mod implicit, Calea destinației la fel ca sursa caseta este bifată. Dacă doriți să plasați toate documentele .docx convertite în același folder, trebuie doar să păstrați această opțiune selectată;
Dacă doriți să separați documentele .docx și documentele .doc sursă, debifați Calea destinației la fel ca sursa și selectați un folder nou pentru a salva documentele .docx în Salvare pentru a cutie;
2.4) Faceți clic pe acasă buton. Vedeți captura de ecran:

3. Apoi apare o casetă de dialog pentru a vă spune câte documente au fost convertite cu succes, faceți clic pe OK și închideți butonul Convertor format de documente fereastră.

Acum toate documentele în format .doc sunt convertite în fișiere .docx. Vedeți captura de ecran:

Dacă doriți să aveți o încercare gratuită a acestui utilitar, vă rugăm să accesați descărcați gratuit software-ul mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (15)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Apreciere! Mulțumesc pentru distribuire. Acest lucru a fost extrem de util. Aveam peste 50 de documente care trebuiau convertite. A durat doar o atingere peste 000 de ore pentru a le termina pe toate. Ajutor imens. Am folosit varianta 39
Acest comentariu a fost redus la minimum de moderatorul de pe site
Deschideți documentul Word pe care doriți să îl transformați într-un fișier PDF. Dacă doriți să importați numai... ConvertOnlineFree - conversații individuale și în grup de documente Word în PDF ... PDFOnline - convertor gratuit din Word (doc, docx și txt) în PDF.

Frumos blog, articolul pe care l-ai distribuit este bun. Acest articol este foarte util. Prietenul meu îmi sugerează să folosesc acest blog.

https://customersurveyinfo.com
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, mulțumesc pentru distribuire.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Lucruri interesante de citit. Ține-o așa.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,
Mă bucur să găsesc aceste informații utile. Mulțumesc pentru împărtășirea acestui articol uimitor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună... Bună, Acest blog conține informații foarte tehnice, este unul dintre cele mai bune bloguri pe care le-am avut. Foarte interesant și descris într-un mod foarte ușor.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna ziua domnule,
Îmi place această postare. Apreciez foarte mult acest site web. Informațiile dvs. sunt atât de bune și valoroase. Idee și concept adorabile pentru partajarea acestui site.
Acesta este un site uimitor. Această postare este drăguță.
Vă mulțumim pentru partajare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună postare.. Continuați să distribuiți. Mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
Acest articol este cu adevărat perspicace, l-a găsit foarte util și informativ
Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumim pentru împărtășirea acestor informații utile.
Acest comentariu a fost redus la minimum de moderatorul de pe site
cea mai bună companie de design grafic din India
Proiectarea este un meșteșug al comunicării cuvintelor ca articulații. Elementele vizuale contează mai mult decât cuvintele în domeniul avansat.
Experții din domeniul designului recomandă ca ilustrațiile să fie mai ușor de amintit decât cuvintele,
și acesta este motivul pentru care proiectarea site-ului web și grafica joacă un loc imperativ.

Acest comentariu a fost redus la minimum de moderatorul de pe site
Vă mulțumim pentru partajare
Acest comentariu a fost redus la minimum de moderatorul de pe site
Informații grozave. Foarte utile. Mulțumesc pentru distribuire.

Farmtrac 60
Acest comentariu a fost redus la minimum de moderatorul de pe site
Instrument bun, dar am avut problema, că nu pot converti fișierele DOC (scrise cu majuscule!) în fișiere docx.
Funcționează cu fișiere doc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
Următorul cod poate ajuta la conversia ambelor documente. și DOC. fișiere în fișiere docx. Vă rugăm să încercați. Vă mulțumim pentru feedback-ul dumneavoastră.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20220506
    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(VBA.LCase(xFileName), "doc", "docx"), wdFormatDocumentDefault
        ActiveDocument.Close
        xFileName = Dir()
    Wend
    Application.ScreenUpdating = True
End Sub
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0  Caractere
Locații sugerate