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

Kako v Wordu paketno pretvoriti datoteke formata .doc v .docx?

Recimo, da ste prejeli nekaj Wordovih dokumentov formata 97-2003, kako lahko paketno pretvorite vse te dokumente formata .doc v .docx format hkrati? Ta članek vam bo pokazal dva načina za rešitev te težave.

Datoteke v formatu .doc pretvorite v .docx s kodo VBA
Datoteke v obliki .doc v paketu pretvorite v .docx s programom Kutools for Word


Datoteke v formatu .doc pretvorite v .docx s kodo VBA

Ta razdelek vam bo prikazal kodo VBA za pretvorbo vseh dokumentov formata .doc v določeni mapi naenkrat v dokumente .docx. Naredite naslednje.

1. V določeno mapo zberite vse dokumente v obliki .doc, ki jih boste pretvorili v .docx.

2. Pritisnite druga + F11 ključ, da odprete Microsoft Visual Basic za aplikacije okno.

3. V oknu kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno modula.

Koda VBA: paketno pretvorite vse dokumente v obliki .doc v .docx v določeni mapi

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. Pritisnite F5 tipko za zagon kode. V uvodu Brskanje izberite mapo, ki vsebuje dokumente v obliki .doc, in kliknite OK. Oglejte si posnetek zaslona:

Nato se vsi dokumenti v .doc formatu takoj pretvorijo v dokumente .docx, kot je prikazano spodaj.


Datoteke v obliki .doc v paketu pretvorite v .docx s programom Kutools for Word

V tem poglavju bo priporočen priročen pripomoček. Z Doc / Docx uporabnost Kutools za Word, vse dokumente v obliki .doc v mapi lahko enostavno pretvorite v dokumente .docx. Poskusite, kot sledi.

Kutools za Word : Z več kot 100 priročnimi dodatki za Word, brezplačno poskusite brez omejitev v 60 dneh.

1. Prosimo, zberite vse dokumente v obliki .doc v določeno mapo in kliknite Kutools Plus > Doc / Docx. Oglejte si posnetek zaslona:

2. V Ljubljani Pretvornik oblike dokumenta pogovorno okno, morate storiti naslednje:

2.1) Izberite mapo, ki vsebuje dokumente formata .doc v Mapa izvorne datoteke odsek;
2.2) Izberite Pretvori dokument v docx Iz Pretvori obliko spustni seznam;
2.3) Privzeto je Ciljna pot enaka izvoru polje je označeno. Če želite vse pretvorjene .docx dokumente shraniti v isto mapo, samo izberite to možnost;
Če želite ločiti dokumente .docx in izvorne dokumente .doc, počistite polje Ciljna pot enaka izvoru in izberite novo mapo, da shranite dokumente .docx v Shrani v škatla;
2.4) Kliknite Začetek . Oglejte si posnetek zaslona:

3. Nato se prikaže pogovorno okno, ki vam pove, koliko dokumentov je bilo uspešno pretvorjenih, kliknite OK in zaprite Pretvornik oblike dokumenta okno.

Zdaj se vsi dokumenti v obliki .doc pretvorijo v datoteke .docx. Oglejte si posnetek zaslona:

Če želite brezplačno preskusiti to orodje, pojdite na brezplačno prenesete programsko opremo najprej in nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (17)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Pohvale! Hvala za deljenje. To je bilo zelo koristno. Imel sem več kot 50 dokumentov, ki jih je bilo treba pretvoriti. Potreboval je le dotik več kot 000 ur, da so vse opravili. Ogromna pomoč. Uporabil sem možnost 39
Ta komentar je moderator na spletnem mestu minimiziral
Odprite Wordov dokument, ki ga želite spremeniti v datoteko PDF. Če želite uvoziti samo ... ConvertOnlineFree - posamezni in paketni pogovori Wordovih dokumentov v PDF ... PDFOnline - brezplačen pretvornik Word (doc, docx in txt) v PDF.

Lep blog, članek, ki ste ga delili, je dober. Ta članek je zelo koristen. Moj prijatelj mi predlaga uporabo tega bloga.

https://customersurveyinfo.com
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, hvala za delitev.
Ta komentar je moderator na spletnem mestu minimiziral
Zanimivosti za branje. Vstrajaj.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Vesel sem, da sem našel te koristne informacije. Hvala, ker delite ta čudovit članek.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo.... Živjo, ta vsebina bloga je zelo tehnična informacija, je eden najboljših blogov, kar jih imam. Zelo zanimivo in opisano na zelo enostaven način.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, gospod,
Všeč mi je ta objava. Resnično cenim to spletno mesto. Vaše informacije so tako dobre in dragocene. Prijazna ideja in koncept za skupno rabo te spletne strani.
To je čudovito spletno mesto. Ta objava je lepa.
Hvala za deljenje
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, lepa objava .. Nadaljujte z deli. Hvala
Ta komentar je moderator na spletnem mestu minimiziral
To je res pronicljiv članek, zelo koristen in informativen
Ta komentar je moderator na spletnem mestu minimiziral
Hvala, ker delite te koristne informacije.
Ta komentar je moderator na spletnem mestu minimiziral
najboljše podjetje za grafično oblikovanje v Indiji
Oblikovanje je obrt komuniciranja besed kot artikulacije. Vizualnost je na naprednem področju pomembnejša od besed.
Strokovnjaki na področju oblikovanja priporočajo, da se ilustracije lažje spominjajo kot besede,
in to je razlog, da oblikovanje spletnih strani in grafika igrata nujno delo.

Ta komentar je moderator na spletnem mestu minimiziral
Hvala za deljenje
Ta komentar je moderator na spletnem mestu minimiziral
Odlične informacije Zelo koristne, hvala za delitev.

Farmtrac 60
Ta komentar je moderator na spletnem mestu minimiziral
Lepo orodje, vendar imam težavo, da ne morem pretvoriti datotek DOC (napisanih z velikimi črkami!) v datoteke docx.
Deluje z doc datotekami.
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Naslednja koda lahko pomaga pri pretvorbi obeh dokumentov. in DOC. datoteke v datoteke docx. Prosim, poskusite. Hvala za povratne informacije.

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
Ta komentar je moderator na spletnem mestu minimiziral
Dobrý den,
já bych potřeboval, ale skript VBA který by fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ENG:
Dober dan,
Potreboval bi skript VBA, ki bi deloval, vključno s podmapami. Ali lahko kdo prosim uredi tudi ta skript? Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Daniel Beneš,
Če želite vključiti podmape, poskusite z naslednjo kodo VBA.
Ko dodate kodo, pojdite na Orodja jeziček, kliknite Reference, v otvoritvi Reference - Projekt pogovorno okno, preverite Izvajanje Microsoftovih skriptov in nato kliknite OK gumb za shranjevanje sprememb. Oglejte si naslednji posnetek zaslona:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Po tem pritisnite na F5 tipko za zagon kode.

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
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije