Ugrás a tartalomra

Hogyan konvertálhatom a .doc formátumú fájlokat .docx formátumba a Wordben?

Ha feltételezzük, hogy néhány 97-2003 formátumú Word dokumentumot kapott, akkor hogyan lehet ezeket a .doc formátumú dokumentumokat egyszerre .docx formátumba konvertálni? Ez a cikk két módszert mutat be a probléma megoldására.

Kötegelt konvertálás .doc formátumú fájlokat .docx formátumba VBA kóddal
Kötegelt konvertálja a .doc formátumú fájlokat .docx formátumba a Kutools for Word segítségével


Kötegelt konvertálás .doc formátumú fájlokat .docx formátumba VBA kóddal

Ez a szakasz bemutatja a VBA kódot, amellyel a megadott mappában található összes .doc formátumú dokumentumot egyszerre .docx dokumentumokká konvertálja. Kérjük, tegye a következőket.

1. Kérjük, gyűjtse össze az összes .doc formátumú dokumentumot, amelyet konvertál .docx formátumba egy megadott mappába.

2. megnyomni a más + F11 kulcs megnyitásához Microsoft Visual Basic for Applications ablak.

3. Az ablakban kattintson a gombra betétlap > Modulok. Ezután másolja a VBA kód alatt a Modul ablakba.

VBA kód: Az összes .doc formátumú dokumentum kötegelt konvertálása .docx formátumba egy bizonyos mappában

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. megnyomni a F5 gombot a kód futtatásához. A megnyitón Tallózás ablakban válassza ki a mappát, amely tartalmazza a .doc formátumú dokumentumokat, és kattintson a gombra OK. Lásd a képernyőképet:

Ezután az összes .doc formátumú dokumentumot azonnal átalakítja .docx dokumentumokká, ahogy az alábbi képernyőképen látható.


Kötegelt konvertálja a .doc formátumú fájlokat .docx formátumba a Kutools for Word segítségével

Ebben a szakaszban hasznos segédprogramot ajánlunk. A ... val Doc / Docx hasznossága Kutools for Word, a mappában található összes .doc formátumú dokumentumot könnyen konvertálhatja .docx dokumentumokká. Kérjük, próbálkozzon az alábbiak szerint.

Kutools for Word : Több mint 100 praktikus Word-bővítménnyel, ingyenesen kipróbálható korlátozás nélkül 60 napok.

1. Kérjük, gyűjtse össze az összes .doc formátumú dokumentumot egy megadott mappában, majd kattintson a gombra Kutools Plus > Doc / Docx. Lásd a képernyőképet:

2. Ban,-ben Dokumentum formátum átalakító párbeszédpanelen a következőket kell tennie:

2.1) Válassza ki a mappát, amely a .doc formátumú dokumentumokat tartalmazza Forrás fájl mappa szakasz;
2.2) Válassza ki Doc konvertálása docx-be tól Formátum konvertálása legördülő lista;
2.3) Alapértelmezés szerint a A célút megegyezik a forrással négyzet be van jelölve. Ha az összes konvertált .docx dokumentumot ugyanabba a mappába kívánja helyezni, tartsa bejelölve ezt az opciót;
Ha el akarja különíteni a .docx dokumentumokat és a forrásdokumentumokat, törölje a jelet A célút megegyezik a forrással mezőbe, és válasszon egy új mappát a .docx dokumentumok mentéséhez a Mentés ide doboz;
2.4) Kattintson a gombra Rajt gomb. Lásd a képernyőképet:

3. Ezután megjelenik egy párbeszédpanel, amely megmondja, hogy hány dokumentum konvertálása sikerült, kattintson a gombra OK gombot, és zárja be a Dokumentum formátum átalakító ablak.

Most minden .doc formátumú dokumentum konvertálódik .docx fájlokká. Lásd a képernyőképet:

Ha szeretné ingyenesen kipróbálni ezt a segédprogramot, kérjük, látogasson el ide: ingyenesen letölthető a szoftver először, majd lépjen a művelet végrehajtására a fenti lépések szerint.


A legjobb irodai hatékonyságnövelő eszközök

Kutools az Outlook számára - Több mint 100 hatékony funkció az Outlook feltöltéséhez

🤖 AI Mail Assistant: Azonnali profi e-mailek mesterséges intelligencia varázslattal – egyetlen kattintással zseniális válaszok, tökéletes hangnem, többnyelvű elsajátítás. Alakítsa át az e-mailezést könnyedén! ...

???? E-mail automatizálás: Hivatalon kívül (POP és IMAP esetén elérhető)  /  Ütemezze az e-mailek küldését  /  Automatikus CC/BCC szabályok szerint e-mail küldésekor  /  Automatikus továbbítás (Speciális szabályok)   /  Automatikus üdvözlet hozzáadása   /  A több címzettnek szóló e-mailek automatikus felosztása egyedi üzenetekre ...

📨 Email Management: Könnyen visszahívhatja az e-maileket  /  Blokkolja az alanyok és mások átverő e-mailjeit  /  Törölje az ismétlődő e-maileket  /  Részletes keresés  /  Mappák összevonása ...

📁 Attachments ProKötegelt mentés  /  Batch Detach  /  Batch tömörítés  /  Automatikus mentés   /  Automatikus leválasztás  /  Automatikus tömörítés ...

🌟 Interface Magic: 😊További szép és menő hangulatjelek   /  Növelje Outlook termelékenységét a füles nézetekkel  /  Minimalizálja az Outlookot a bezárás helyett ...

👍 Csodák egy kattintással: Válasz mindenkinek a bejövő mellékletekkel  /   Adathalászat elleni e-mailek  /  🕘A feladó időzónájának megjelenítése ...

👩🏼‍🤝‍👩🏻 Névjegyek és naptár: Névjegyek kötegelt hozzáadása a kiválasztott e-mailekből  /  Egy kapcsolattartó csoport felosztása egyéni csoportokra  /  Távolítsa el a születésnapi emlékeztetőket ...

Több, mint 100 Jellemzők Várja felfedezését! Kattintson ide, ha többet szeretne megtudni.

 

 

Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dobrý den,
já bych potřeboval, ale VBA script který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Good day,
I would need a VBA script that would work including subfolders. Can someone please edit this script as well? Thank you.
This comment was minimized by the moderator on the site
Hi Daniel Beneš,
To include subfolders, please try the following VBA code.
After adding the code, go to the Tools tab, click References, in the opening References - Project dialog box, check the Microsoft Scripting Runtime box, and then click the OK button to save the changes. See the following screenshot:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
After that, press the F5 key to run the code.

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
This comment was minimized by the moderator on the site
Nice tool but I got the problem, that I can't convert DOC files (written in capitals!) into docx files.
It works with doc files.
This comment was minimized by the moderator on the site
Hi,
The following code can help to convert both doc. and DOC. files into docx files. Please give it a try. Thanks for your 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
This comment was minimized by the moderator on the site
Thanks for sharing
This comment was minimized by the moderator on the site
best graphic design company in india
Designing is a craft of communicating words as articulations. Visuals matter more than words in the advanced field.
The experts in the designing business recommend that illustrations are simpler to recall than words,
and that is the reason Website designing and Graphics play an imperative job.

This comment was minimized by the moderator on the site
Thanks for sharing this useful information.
This comment was minimized by the moderator on the site
This is really insightful article , found it very helpful and informational
This comment was minimized by the moderator on the site
HelloNice post .. Keep sharing.Thank You
This comment was minimized by the moderator on the site
Hello sir,
I love with this post.I really appreciate for this website.Your information is so good and valuable.Lovable idea and concept for sharing this website.
This is an amazing website.This post is nice.
Thanks for sharing
This comment was minimized by the moderator on the site
Hi....Hi, This blog content very technical information, it is on of the best blog i have got. Very interesting and describe in a very easy way.
This comment was minimized by the moderator on the site
Hello,
I am glad to find this useful information Thanks for sharing this amazing article.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations