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ě:
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.
