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

Hoe converteer ik bestanden in .doc-formaat naar .docx in Word?

Stel dat u Word-documenten in de indeling 97-2003 hebt ontvangen, hoe kunt u dan al deze documenten in .doc-indeling in één keer in één keer converteren naar .docx-indeling? Dit artikel laat u twee methoden zien om dit probleem op te lossen.

Batch converteer bestanden in .doc-formaat naar .docx met VBA-code
Batch converteer bestanden in .doc-formaat naar .docx met Kutools voor Word

Batch converteer bestanden in .doc-formaat naar .docx met VBA-code

In deze sectie wordt de VBA-code getoond om alle documenten in .doc-indeling in een opgegeven map in één keer naar .docx-documenten te converteren. Ga als volgt te werk.

1. Verzamel alle documenten in .doc-indeling die u naar .docx wilt converteren in een opgegeven map.

2. druk de anders + F11 sleutel om het te openen Microsoft Visual Basic voor toepassingen venster.

3. Klik in het venster op Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het modulevenster.

VBA-code: Batch converteer alle documenten in .doc-indeling naar .docx in een bepaalde map

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. druk de F5 sleutel om de code uit te voeren. In de opening Blader venster, selecteer de map met de documenten in .doc-indeling en klik op OK. Zie screenshot:

Vervolgens worden alle documenten in .doc-formaat onmiddellijk geconverteerd naar .docx-documenten, zoals hieronder wordt getoond.

Batch converteer bestanden in .doc-formaat naar .docx met Kutools voor Word

In dit gedeelte wordt een handig hulpprogramma aanbevolen. Met de Doc / Docx nut van Kutools for Word, kunt u eenvoudig alle documenten in .doc-indeling in een map converteren naar .docx-documenten. Probeer het als volgt.

Kutools for Word : Met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in

60
dagen.

1. Verzamel alle documenten in .doc-indeling in een opgegeven map en klik op Koetools Plus > Doc / Docx. Zie screenshot:

2. In de Documentformaatconvertor dialoogvenster, moet u het volgende doen:

2.1) Selecteer de map met documenten in .doc-indeling in de Bronbestandmap sectie;
2.2) Selecteer Converteer doc naar docx van de Formaat converteren keuzelijst;
2.3) Standaard is het Bestemmingspad hetzelfde als bron vakje is aangevinkt. Als u alle geconverteerde .docx-documenten in dezelfde map wilt plaatsen, houdt u deze optie geselecteerd;
Als u de .docx-documenten en de .doc-brondocumenten wilt scheiden, schakelt u het selectievakje uit Bestemmingspad hetzelfde als bron box en selecteer een nieuwe map om de .docx-documenten in het Opslaan in doos;
2.4) Klik op de Start knop. Zie screenshot:

3. Vervolgens verschijnt er een dialoogvenster waarin u kunt zien hoeveel documenten met succes zijn geconverteerd. Klik op OK knop en sluit het Documentformaatconvertor venster.

Nu worden alle documenten in .doc-formaat geconverteerd naar .docx-bestanden. Zie screenshot:

Als u een gratis proefversie van dit hulpprogramma wilt, gaat u naar gratis download de software eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.

Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!

  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
  • Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
  • Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Comments (14)
Nog geen beoordelingen. Beoordeel als eerste!
BigB7v1
BigB7v1
Deze opmerking is gemaakt door de moderator op de site
Hulde! Bedankt voor het delen. Dit was zeer nuttig. Ik had meer dan 50 documenten die moesten worden omgezet. Het kostte maar iets meer dan 000 uur om ze allemaal voor elkaar te krijgen. Grote hulp. Ik gebruikte optie 39
Antwoorden
0
0
George56
George56
Deze opmerking is gemaakt door de moderator op de site
Interessante dingen om te lezen. Ga zo door.
Antwoorden
0
0
Massey-tractor
Massey-tractor
Deze opmerking is gemaakt door de moderator op de site
Hallo,
Ik ben blij deze nuttige informatie te vinden. Bedankt voor het delen van dit geweldige artikel.
Antwoorden
0
0
Lipika
Lipika
Deze opmerking is gemaakt door de moderator op de site
Hallo .... Hallo, Deze blog bevat zeer technische informatie, het is een van de beste blogs die ik heb. Zeer interessant en beschrijven op een zeer gemakkelijke manier.
Antwoorden
0
0
Radha
Radha
Deze opmerking is gemaakt door de moderator op de site
Hallo meneer,
Ik ben dol op dit bericht. Ik waardeer het enorm voor deze website. Je informatie is zo goed en waardevol. Lief idee en concept voor het delen van deze website.
Dit is een geweldige website. Dit bericht is leuk.
Bedankt voor het delen
Antwoorden
0
0
shriya gupta
shriya gupta
Deze opmerking is gemaakt door de moderator op de site
Hallo Leuk bericht .. Blijf delen. Bedankt
Antwoorden
0
0
uaevisaonline
uaevisaonline
Deze opmerking is gemaakt door de moderator op de site
Dit is echt een verhelderend artikel, vond het erg nuttig en informatief
Antwoorden
Rapport
0
0
ajuma's
ajuma's
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het delen van deze nuttige informatie.
Antwoorden
Rapport
0
0
narendra
narendra
Deze opmerking is gemaakt door de moderator op de site
beste grafische ontwerpbedrijf in India
Ontwerpen is een ambacht om woorden als articulaties over te brengen. Beelden zijn belangrijker dan woorden in het geavanceerde veld.
De experts in de ontwerpwereld bevelen aan dat illustraties eenvoudiger te onthouden zijn dan woorden,
en dat is de reden waarom het ontwerpen van websites en afbeeldingen een dwingende taak is.

Antwoorden
Rapport
0
0
het haarstijlvol
het haarstijlvol
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het delen
Antwoorden
0
0
kader
kader
Deze opmerking is gemaakt door de moderator op de site
Leuke tool, maar ik heb het probleem dat ik DOC-bestanden (geschreven in hoofdletters!) niet kan converteren naar docx-bestanden.
Het werkt met doc-bestanden.
Antwoorden
0
0
crystal
crystal     kader
Deze opmerking is gemaakt door de moderator op de site
Hoi,
De volgende code kan helpen om beide doc. en DOC. bestanden naar docx-bestanden. Probeer het alsjeblieft. Bedankt voor je feedback.

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
Antwoorden
Rapport
0
0
Daniel Benes
Daniel Benes
Deze opmerking is gemaakt door de moderator op de site
Hallo
ja bych potřeboval, ale VBA script který door fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Dokuji.

NL:
Goede dag,
Ik zou een VBA-script nodig hebben dat zou werken, inclusief submappen. Kan iemand dit script ook bewerken? Dank je.
Antwoorden
0
0
crystal
crystal     Daniel Benes
Deze opmerking is gemaakt door de moderator op de site
Hallo Daniel Benes,
Probeer de volgende VBA-code om submappen op te nemen.
Ga na het toevoegen van de code naar de Toolbox tab, klik Referenties, in de opening Referenties - Project dialoogvenster, controleer de Microsoft Scripting-runtime vak en klik vervolgens op het OK knop om de wijzigingen op te slaan. Zie de volgende schermafbeelding:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Druk daarna op de F5 sleutel om de code uit te voeren.

Sub ConvertDocToDocx()
'Updated by ExtendOffice 20221124
  Dim xDlg As FileDialog
  Dim xFldPath As Variant
  Dim xFileName As String
  On Error Resume Next
  Application.ScreenUpdating = False
  Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
  If xDlg.Show <> -1 Then Exit Sub
  xFldPath = xDlg.SelectedItems(1) + "\"
  Call ListAllFiles(xFldPath)
  Application.ScreenUpdating = True
End Sub

Function ListAllFiles(FldPath)
  Dim xFSO As FileSystemObject
  Dim xFolder As Folder
  Dim xSubFolder As Folder
  Dim xNewName As String
  On Error Resume Next
  xFileName = Dir(FldPath & "*.doc", vbNormal)
  While xFileName <> ""
    xNewName = VBA.Left$(xFileName, VBA.InStrRev(xFileName, "doc") - 1) & "docx"
    Documents.Open FileName:=FldPath & xFileName, _
        ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
        PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
        WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
        wdOpenFormatAuto, XMLTransform:=""
    ActiveDocument.SaveAs FldPath & xNewName, wdFormatDocumentDefault
    ActiveDocument.Close
    xFileName = Dir()
  Wend
  Set xFSO = CreateObject("Scripting.FileSystemObject")
  Set xFolder = xFSO.GetFolder(FldPath)
  For Each xSubFolder In xFolder.SubFolders
    Call ListAllFiles(xSubFolder.Path + "\")
  Next
  Set xFSO = Nothing
  Set xFolder = Nothing
End Function
Antwoorden
Rapport
0
0
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Gast
Posten als gast
Inloggen
×
Beoordeel dit bericht:
Reset
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL