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

Hur batchkonverterar .doc-formatfiler till .docx i Word?

Om du antar att du har fått några Word-dokument i 97-2003-format, hur kan du konvertera alla dessa .doc-formatdokument till .docx-format på en gång? Den här artikeln visar två metoder för att lösa detta problem.

Batchkonvertera .doc-formatfiler till .docx med VBA-kod
Batchkonvertera .doc-formatfiler till .docx med Kutools för Word


Batchkonvertera .doc-formatfiler till .docx med VBA-kod

Detta avsnitt kommer att visa dig VBA-koden för att konvertera alla .doc-formatdokument i en viss mapp till .docx-dokument på en gång. Gör så här.

1. Samla alla dokument i .doc-format som du konverterar till .docx i en angiven mapp.

2. tryck på andra + F11 nyckel för att öppna Microsoft Visual Basic för applikationer fönster.

3. Klicka på i fönstret Insert > Modulerna. Kopiera sedan VBA-koden nedan till modulfönstret.

VBA-kod: Batchkonvertera alla .doc-formatdokument till .docx i en viss mapp

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. tryck på F5 för att köra koden. I öppningen Bläddra välj den mapp som innehåller dokumenten .doc-format och klicka OK. Se skärmdump:

Sedan konverteras alla .doc-formatdokument till .docx-dokument omedelbart enligt nedanstående skärmdump.


Batchkonvertera .doc-formatfiler till .docx med Kutools för Word

Ett praktiskt verktyg rekommenderas i detta avsnitt. Med Doc / Docx nytta av Kutools för Wordkan du enkelt konvertera alla .doc-formatdokument i en mapp till .docx-dokument. Försök enligt följande.

Kutools för Word : Med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsningar

dagar.

1. Samla alla .doc-format i en angiven mapp och klicka sedan på Kutools Plus > Doc / Docx. Se skärmdump:

2. I Dokumentformatkonverterare i dialogrutan måste du göra enligt följande:

2.1) Välj den mapp som innehåller .doc-formatdokument i Mapp för källfil sektion;
2.2) Välj Konvertera doc till docx från Format Konvertera rullgardinsmeny
2.3) Som standard är Destinationsväg samma som källa kryssrutan är markerad. Om du vill placera alla konverterade .docx-dokument i samma mapp, håll bara det här alternativet valt;
Om du vill separera .docx-dokumenten och källdokumenten, avmarkera kryssrutan Destinationsväg samma som källa och välj en ny mapp för att spara .docx-dokumenten i Spara till låda;
2.4) Klicka på Start knapp. Se skärmdump:

3. Sedan dyker en dialogruta upp för att berätta hur många dokument som har konverterats framgångsrikt, klicka på OK och stäng knappen Dokumentformatkonverterare fönster.

Nu konverteras alla .doc-format till .docx-filer. Se skärmdump:

Om du vill ha en gratis testversion av det här verktyget, gå till ladda ner programvaran gratis först och sedan tillämpa operationen enligt ovanstående steg.


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Sortera kommentarer efter
Kommentarer (14)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Beröm! Tack för att du delar med dig. Detta var oerhört hjälpsamt. Jag hade över 50 000 dokument som behövde konverteras. Tog bara en knapptryckning över 39 timmar att få allt gjort. Stor hjälp. Jag använde alternativ 1
Denna kommentar minimerades av moderatoren på webbplatsen
Intressanta saker att läsa. Fortsätt så.
Denna kommentar minimerades av moderatoren på webbplatsen
Hallå,
Jag är glad över att hitta denna användbara information. Tack för att du delar med dig av denna fantastiska artikel.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej....Hej, Det här blogginnehållet är mycket teknisk information, det är en av de bästa bloggarna jag har. Mycket intressant och beskriv på ett väldigt enkelt sätt.
Denna kommentar minimerades av moderatoren på webbplatsen
Hello Sir,
Jag älskar det här inlägget. Jag uppskattar verkligen för den här webbplatsen. Din information är så bra och värdefull. Älskvärd idé och koncept för att dela denna webbplats.
Det här är en fantastisk webbplats. Det här inlägget är trevligt.
Tack för att du delar med dig
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Trevligt inlägg.. Fortsätt dela.Tack
Denna kommentar minimerades av moderatoren på webbplatsen
Detta är verkligen insiktsfull artikel, tyckte att den var mycket användbar och informativ
Denna kommentar minimerades av moderatoren på webbplatsen
Tack för att du delar med dig av denna användbara information.
Denna kommentar minimerades av moderatoren på webbplatsen
bästa grafiska designföretaget i Indien
Att designa är ett hantverk att kommunicera ord som artikulationer. Visuella saker betyder mer än ord i det avancerade området.
Experterna inom designbranschen rekommenderar att illustrationer är enklare att komma ihåg än ord,
och det är anledningen till att design av webbsidor och grafik är ett viktigt jobb.

Denna kommentar minimerades av moderatoren på webbplatsen
Tack för att du delar med dig
Denna kommentar minimerades av moderatoren på webbplatsen
Bra verktyg men jag fick problemet att jag inte kan konvertera DOC-filer (skrivna med versaler!) till docx-filer.
Det fungerar med doc-filer.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Följande kod kan hjälpa till att konvertera båda doc. och DOC. filer till docx-filer. Vänligen ge det ett försök. Tack för din 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
Denna kommentar minimerades av moderatoren på webbplatsen
Dobry den,
já bych potřeboval, ale VBA skript který av fungoval včetně podsložek. Finns det inga problem att uppgradera till ett skript? Děkuji.

SWE:
God dag,
Jag skulle behöva ett VBA-skript som skulle fungera inklusive undermappar. Kan någon snälla redigera detta script också? Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Daniel Beneš,
För att inkludera undermappar, försök med följande VBA-kod.
När du har lagt till koden, gå till verktyg fliken, klicka referenser, i öppningen Referenser - Projekt dialogrutan, kolla på Microsoft Scripting Runtime och klicka sedan på OK knappen för att spara ändringarna. Se följande skärmdump:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Efter det, tryck på F5 för att köra koden.

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
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL