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

Hvordan batchkonverteres .doc-formatfiler til .docx i Word?

Antag at du har modtaget nogle Word-dokumenter i 97-2003-format, hvordan kan du batchkonvertere alle disse .doc-formatdokumenter til .docx-format på én gang? Denne artikel viser dig to metoder til at løse dette problem.

Batchkonverterer .doc-formatfiler til .docx med VBA-kode
Batch konvertere .doc format filer til .docx med Kutools for Word


Batchkonverterer .doc-formatfiler til .docx med VBA-kode

Dette afsnit viser dig VBA-koden til at konvertere alle .doc-formatdokumenter i en bestemt mappe til .docx-dokumenter på én gang. Gør som følger.

1. Saml venligst alle .doc-formatdokumenter, som du konverterer til .docx i en bestemt mappe.

2. Tryk på andre + F11 nøgle til at åbne Microsoft Visual Basic til applikationer vindue.

3. Klik på i vinduet indsatte > Moduler. Kopier derefter under VBA-koden i modulvinduet.

VBA-kode: Batch konverterer alle .doc-formatdokumenter til .docx i en bestemt mappe

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. Tryk på F5 nøgle for at køre koden. I åbningen Gennemse vindue, vælg mappen, der indeholder dokumenterne i .doc-format, og klik på OK. Se skærmbillede:

Derefter konverteres alle dokumenter i .doc-format til .docx-dokumenter med det samme som vist nedenstående skærmbillede.


Batch konvertere .doc format filer til .docx med Kutools for Word

Et praktisk værktøj anbefales i dette afsnit. Med Doc / Docx nytte af Kutools for Word, kan du nemt konvertere alle .doc-formatdokumenter i en mappe til .docx-dokumenter. Prøv venligst som følger.

Kutools for Word : Med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 60 dage.

1. Saml venligst alle .doc-formatdokumenter i en bestemt mappe, og klik derefter på Kutools Plus > Doc / Docx. Se skærmbillede:

2. i Dokumentformatkonverter dialogboks, skal du gøre som følger:

2.1) Vælg den mappe, der indeholder .doc-formatdokumenter i Kildefilmappe afsnit;
2.2) Vælg Konverter doc til docx fra Format Konverter rulleliste
2.3) Som standard er Destinationssti samme som kilde er markeret. Hvis du vil placere alle konverterede .docx-dokumenter i samme mappe, skal du bare holde denne mulighed valgt;
Hvis du vil adskille .docx-dokumenterne og kilden .doc-dokumenterne, skal du fjerne markeringen i afkrydsningsfeltet Destinationssti samme som kilde og vælg en ny mappe for at gemme .docx-dokumenterne i Gem til boks;
2.4) Klik på Starten knap. Se skærmbillede:

3. Derefter dukker en dialogboks op for at fortælle dig, hvor mange dokumenter der er konverteret, skal du klikke på OK knappen og luk Dokumentformatkonverter vindue.

Nu konverteres alle dokumenter i .doc-format til .docx-filer. Se skærmbillede:

Hvis du vil have en gratis prøveversion af dette værktøj, skal du gå til download softwaren gratis først, og gå derefter til for at anvende handlingen i henhold til ovenstående trin.


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (15)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak! Tak fordi du delte. Dette var yderst nyttigt. Jeg havde over 50 dokumenter, der skulle konverteres. Det tog kun et tryk over 000 timer at få dem alle færdige. Kæmpe hjælp. Jeg brugte mulighed 39
Denne kommentar blev minimeret af moderatoren på webstedet
Åbn det Word-dokument, du vil lave om til en PDF-fil. Hvis du kun ønsker at importere ... ConvertOnlineFree - individuelle og batch-samtaler af Word-dokumenter til PDF ... PDFOnline - gratis Word (doc, docx og txt) til PDF-konverter.

Dejlig blog, den artikel, du har delt, er god. Denne artikel er meget nyttig. Min ven foreslår mig at bruge denne blog.

https://customersurveyinfo.com
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, tak for at dele.
Denne kommentar blev minimeret af moderatoren på webstedet
Interessante ting at læse. Bliv ved.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Jeg er glad for at finde denne nyttige information. Tak for at dele denne fantastiske artikel.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej....Hej, Dette blogindhold er meget teknisk information, det er en af ​​de bedste blogs, jeg har. Meget interessant og beskriv på en meget nem måde.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej sir,
Jeg elsker med dette indlæg. Jeg sætter virkelig pris på denne hjemmeside. Dine oplysninger er så gode og værdifulde. En elskelig idé og koncept til at dele denne hjemmeside.
Dette er en fantastisk hjemmeside. Dette indlæg er godt.
Tak fordi du delte
Denne kommentar blev minimeret af moderatoren på webstedet
HejFint indlæg .. Fortsæt med at dele. Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Dette er virkelig indsigtsfuld artikel, fandt det meget nyttigt og informativt
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for at dele denne nyttige information.
Denne kommentar blev minimeret af moderatoren på webstedet
bedste grafiske designfirma i Indien
Design er et håndværk at kommunikere ord som artikulationer. Visuals betyder mere end ord i det avancerede felt.
Eksperterne i designbranchen anbefaler, at illustrationer er nemmere at genkalde end ord,
og det er grunden til, at webstedsdesign og grafik spiller et afgørende job.

Denne kommentar blev minimeret af moderatoren på webstedet
Tak fordi du delte
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk information Meget nyttig tak for deling.

Farmtrac 60
Denne kommentar blev minimeret af moderatoren på webstedet
Fint værktøj, men jeg fik det problem, at jeg ikke kan konvertere DOC-filer (skrevet med store bogstaver!) til docx-filer.
Det virker med doc-filer.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Følgende kode kan hjælpe med at konvertere begge doc. og DOC. filer til docx-filer. Prøv det. tak for din tilbagemelding.

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
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0  Tegn
Foreslåede steder