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

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 (15)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
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
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
Tento komentář byl moderátorem webu minimalizován
Dobrý den, děkujeme za sdílení.
Tento komentář byl moderátorem webu minimalizován
Zajímavé věci ke čtení. Jen tak dál.
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.
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.
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í
Tento komentář byl moderátorem webu minimalizován
Dobrý den, pěkný příspěvek .. Sdílejte dál. Děkuji
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í
Tento komentář byl moderátorem webu minimalizován
Děkujeme za sdílení těchto užitečných informací.
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.

Tento komentář byl moderátorem webu minimalizován
Děkuji za sdílení
Tento komentář byl moderátorem webu minimalizován
Skvělé informace Velmi užitečné díky za sdílení.

Farmtrac 60
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.
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
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění