Note: The other languages of the website are Google-translated. Back to English
Přihlásit se Registrace

Jak hromadně převádět soubory ve formátu .doc na .docx v aplikaci Word?

Za předpokladu, že jste obdrželi nějaké dokumenty Wordu ve formátu 97-2003, jak můžete hromadně převést všechny tyto dokumenty ve formátu .doc do formátu .docx najednou? Tento článek vám ukáže dvě metody řešení tohoto problému.

Dávkový převod souborů ve formátu .doc do .docx pomocí kódu VBA
Dávkově převádějte soubory ve formátu .doc do .docx pomocí Kutools pro Word

Dávkový převod souborů ve formátu .doc do .docx pomocí kódu VBA

Tato část vám ukáže kód VBA pro převod všech dokumentů ve formátu .doc v určené složce na dokumenty .docx najednou. Postupujte prosím následovně.

1. Shromážděte prosím všechny dokumenty ve formátu .doc, které převedete do .docx, v určené složce.

2. zmáčkni Další + F11 klávesa pro otevření Microsoft Visual Basic pro aplikace okno.

3. V okně klikněte na Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: Dávkový převod všech dokumentů ve formátu .doc do .docx v určité složce

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. zmáčkni F5 klíč ke spuštění kódu. V otvoru Procházet v okně vyberte složku obsahující dokumenty ve formátu .doc a klikněte na OK. Viz snímek obrazovky:

Poté jsou všechny dokumenty ve formátu .doc okamžitě převedeny na dokumenty .docx, jak je uvedeno níže.

Dávkově převádějte soubory ve formátu .doc do .docx pomocí Kutools pro Word

V této části bude doporučen užitečný nástroj. S Doc / Docx užitečnost Kutools pro Word, můžete snadno převést všechny dokumenty ve formátu .doc ve složce na dokumenty .docx. Zkuste to prosím následovně.

Kutools pro Word : S více než 100 užitečnými doplňky Wordu, zdarma vyzkoušet bez omezení do 60 dnů.

1. Shromážděte prosím všechny dokumenty ve formátu .doc do určené složky a klikněte na Kutools Plus > Doc / Docx. Viz snímek obrazovky:

2. V Převaděč formátu dokumentu dialogové okno, musíte postupovat následovně:

2.1) Vyberte složku obsahující dokumenty ve formátu .doc v Složka zdrojového souboru sekce;
2.2) Vyberte Převést doc na docx z Převést formát rozbalovací seznam;
2.3) Ve výchozím nastavení je Cílová cesta stejná jako zdroj políčko je zaškrtnuto. Pokud chcete umístit všechny převedené dokumenty .docx do stejné složky, ponechte tuto možnost vybranou;
Pokud chcete oddělit dokumenty .docx a zdrojové dokumenty .doc, zrušte zaškrtnutí políčka Cílová cesta stejná jako zdroj a vyberte novou složku pro uložení dokumentů .docx do složky Uložit do krabice;
2.4) Klikněte na Home knoflík. Viz screenshot:

3. Poté se zobrazí dialogové okno s informacemi o tom, kolik dokumentů bylo úspěšně převedeno, klepněte na ikonu OK tlačítko a zavřete Převaděč formátu dokumentu okno.

Nyní jsou všechny dokumenty ve formátu .doc převedeny na soubory .docx. Viz screenshot:

Chcete-li mít bezplatnou zkušební verzi tohoto nástroje, přejděte na software si stáhněte zdarma nejprve a poté přejděte k použití operace podle výše uvedených kroků.

Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (17)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
BigB7v1
BigB7v1
Tento komentář byl moderátorem webu minimalizován
Sláva! Děkuji za sdílení. To bylo nesmírně užitečné. Měl jsem přes 50 000 dokumentů, které bylo potřeba převést. Trvalo více než 39 hodin, než byly všechny hotové. Obrovská pomoc. Použil jsem možnost 1
odpověď
0
0
Richard876
Richard876     BigB7v1
Tento komentář byl moderátorem webu minimalizován
Otevřete dokument aplikace Word, který chcete převést na soubor PDF. Pokud si přejete importovat pouze ... ConvertOnlineFree - individuální a dávkové konverzace dokumentů Word do PDF ... PDFOnline - bezplatný převodník Word (doc, docx a txt) do PDF.

Pěkný blog, článek, který jste sdíleli, je dobrý. Tento článek je velmi užitečný. Můj přítel mi doporučil používat tento blog.

https://customersurveyinfo.com
odpověď
Zpráva
0
0
Radha
Radha     Richard876
Tento komentář byl moderátorem webu minimalizován
Dobrý den, děkujeme za sdílení.
odpověď
0
0
George56
George56
Tento komentář byl moderátorem webu minimalizován
Zajímavé věci ke čtení. Jen tak dál.
odpověď
0
0
Traktor Massey
Traktor Massey
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Jsem rád, že jsem našel tyto užitečné informace. Díky za sdílení tohoto úžasného článku.
odpověď
0
0
Lipika
Lipika
Tento komentář byl moderátorem webu minimalizován
Ahoj....Ahoj, Tento blog obsahuje velmi technické informace, je to jeden z nejlepších blogů, které mám. Velmi zajímavé a popsané velmi jednoduchým způsobem.
odpověď
0
0
Radha
Radha
Tento komentář byl moderátorem webu minimalizován
Dobrý den pane,
Líbí se mi tento příspěvek. Opravdu oceňuji tento web. Vaše informace jsou tak dobré a cenné. Pěkný nápad a koncept pro sdílení tohoto webu.
To je úžasný web.Tento příspěvek je pěkný.
Děkuji za sdílení
odpověď
0
0
shriya gupta
shriya gupta
Tento komentář byl moderátorem webu minimalizován
Dobrý den, pěkný příspěvek .. Sdílejte dál. Děkuji
odpověď
0
0
uaevisaonline
uaevisaonline
Tento komentář byl moderátorem webu minimalizován
Toto je opravdu poučný článek, zjistil jsem, že je velmi užitečný a informativní
odpověď
Zpráva
0
0
ajumas
ajumas
Tento komentář byl moderátorem webu minimalizován
Děkujeme za sdílení těchto užitečných informací.
odpověď
Zpráva
0
0
narendra
narendra
Tento komentář byl moderátorem webu minimalizován
nejlepší společnost zabývající se grafickým designem v Indii
Navrhování je umění sdělovat slova jako artikulace. Vizuální informace jsou v pokročilém oboru důležitější než slova.
Odborníci v oblasti návrhářství doporučují, aby se ilustrace vybavovaly snadněji než slova,
a to je důvod, proč navrhování webových stránek a grafika hrají zásadní roli.

odpověď
Zpráva
0
0
stylový
stylový
Tento komentář byl moderátorem webu minimalizován
Děkuji za sdílení
odpověď
0
0
Muž
Muž
Tento komentář byl moderátorem webu minimalizován
Skvělé informace Velmi užitečné díky za sdílení.

Farmtrac 60
odpověď
0
0
Marco
Marco
Tento komentář byl moderátorem webu minimalizován
Pěkný nástroj, ale mám problém, že nemohu převést soubory DOC (psané velkými písmeny!) na soubory docx.
Pracuje se soubory doc.
odpověď
0
0
krystal
krystal     Marco
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Následující kód může pomoci převést oba dokumenty. a DOC. soubory do souborů docx. Zkuste to prosím. Děkujeme za vaši odezvu.

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
odpověď
Zpráva
0
0
Daniel Beneš
Daniel Beneš
Tento komentář byl moderátorem webu minimalizován
Dobrý je,
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:
Dobrý den,
Potřeboval bych VBA skript, který by fungoval včetně podsložek. Může prosím někdo upravit i tento skript? Děkuji.
odpověď
0
0
krystal
krystal     Daniel Beneš
Tento komentář byl moderátorem webu minimalizován
Ahoj Daniel Beneš,
Chcete-li zahrnout podsložky, vyzkoušejte následující kód VBA.
Po přidání kódu přejděte na Tools klepněte na kartu Reference, v otvoru Reference - projekt V dialogovém okně zaškrtněte Microsoft Scripting Runtime a poté klikněte na OK tlačítko pro uložení změn. Podívejte se na následující snímek obrazovky:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Poté stiskněte tlačítko F5 klíč ke spuštění kódu.

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
odpověď
Zpráva
0
0
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Host
Odesílání jako host
Přihlášení
×
Ohodnoťte tento příspěvek:
resetovat
0   Postavy
Doporučená umístění