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

Come convertire in batch file in formato .doc in .docx in Word?

Supponendo che tu abbia ricevuto alcuni documenti Word in formato 97-2003, come puoi convertire in batch tutti questi documenti in formato .doc in formato .docx contemporaneamente? Questo articolo ti mostrerà due metodi per risolvere questo problema.

Batch converte file in formato .doc in .docx con codice VBA
Batch converte i file in formato .doc in .docx con Kutools per Word


Batch converte file in formato .doc in .docx con codice VBA

Questa sezione ti mostrerà il codice VBA per convertire tutti i documenti in formato .doc in una cartella specificata in documenti .docx contemporaneamente. Si prega di fare quanto segue.

1. Raccogli tutti i documenti in formato .doc che convertirai in .docx in una cartella specificata.

2. premi il altro + F11 chiave per aprire il Microsoft Visual Basic, Applications Edition finestra.

3. Nella finestra, fare clic su inserire > Modulo. Quindi copia sotto il codice VBA nella finestra del modulo.

Codice VBA: converte in batch tutti i documenti in formato .doc in .docx in una determinata cartella

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. premi il F5 chiave per eseguire il codice. In apertura Scopri la nostra gamma selezionare la cartella contenente i documenti in formato .doc e fare clic su OK. Vedi screenshot:

Quindi tutti i documenti in formato .doc vengono convertiti in documenti .docx immediatamente come mostrato nell'immagine sottostante.


Batch converte i file in formato .doc in .docx con Kutools per Word

In questa sezione verrà consigliata un'utilità pratica. Con il Doc / Docx utilità di Kutools for Word, puoi convertire facilmente tutti i documenti in formato .doc in una cartella in documenti .docx. Si prega di provare come segue.

Kutools for Word : Con oltre 100 utili componenti aggiuntivi di Word, libero di provare senza limitazioni in 60 giorni.

1. Raccogliere tutti i documenti in formato .doc in una cartella specificata, quindi fare clic su Kutools Plus > Doc / Docx. Vedi screenshot:

2. Nel Convertitore formato documento finestra di dialogo, è necessario eseguire le seguenti operazioni:

2.1) Selezionare la cartella che contiene i documenti in formato .doc nel file Cartella del file di origine sezione;
2.2) Seleziona Converti doc in docx dal Formato Converti menu `A tendina;
2.3) Per impostazione predefinita, il file Percorso di destinazione uguale all'origine la casella è selezionata. Se vuoi posizionare tutti i documenti .docx convertiti nella stessa cartella, tieni selezionata questa opzione;
Se desideri separare i documenti .docx dai documenti .doc di origine, deseleziona il file Percorso di destinazione uguale all'origine e selezionare una nuova cartella in cui salvare i documenti .docx nel file Salvare scatola;
2.4) Fare clic su Inizia pulsante. Vedi screenshot:

3. Quindi viene visualizzata una finestra di dialogo per indicare quanti documenti sono stati convertiti correttamente, fare clic su OK e chiudere il Convertitore formato documento finestra.

Ora tutti i documenti in formato .doc vengono convertiti in file .docx. Vedi screenshot:

Se vuoi avere una prova gratuita di questa utility, vai su scarica gratuitamente il software prima, quindi vai ad applicare l'operazione secondo i passaggi precedenti.


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (17)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Questo commento è stato fatto dal moderatore sul sito
Complimenti! Grazie per la condivisione. Questo è stato estremamente utile. Avevo oltre 50 documenti che dovevano essere convertiti. Ci sono voluti solo un tocco in 000 ore per completarli tutti. Aiuto enorme. Ho usato l'opzione 39
Questo commento è stato fatto dal moderatore sul sito
Apri il documento Word che desideri trasformare in un file PDF. Se desideri importare solo ... ConvertOnlineFree - conversazioni individuali e batch di documenti Word in PDF ... PDFOnline - convertitore gratuito di Word (doc, docx e txt) in PDF.

Bel blog, l'articolo che hai condiviso è buono. Questo articolo è molto utile. Il mio amico mi suggerisce di usare questo blog.

https://customersurveyinfo.com
Questo commento è stato fatto dal moderatore sul sito
Ciao, grazie per la condivisione.
Questo commento è stato fatto dal moderatore sul sito
Cose interessanti da leggere. Continuate così.
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Sono felice di trovare queste informazioni utili Grazie per aver condiviso questo fantastico articolo.
Questo commento è stato fatto dal moderatore sul sito
Ciao... Ciao, questo blog contiene informazioni molto tecniche, è uno dei migliori blog che ho. Molto interessante e descrivi in ​​modo molto semplice.
Questo commento è stato fatto dal moderatore sul sito
Ciao signore,
Adoro questo post. Apprezzo molto per questo sito Web. Le tue informazioni sono così buone e preziose. Idea e concetto adorabili per condividere questo sito Web.
Questo è un sito Web fantastico. Questo post è carino.
Grazie per la condivisione
Questo commento è stato fatto dal moderatore sul sito
Post HelloNice .. Continua a condividere. Grazie
Questo commento è stato fatto dal moderatore sul sito
Questo è un articolo davvero perspicace, l'ho trovato molto utile e informativo
Questo commento è stato fatto dal moderatore sul sito
Grazie per aver condiviso questa utile informazione.
Questo commento è stato fatto dal moderatore sul sito
migliore azienda di progettazione grafica in India
Progettare è un mestiere di comunicare le parole come articolazioni. Le immagini contano più delle parole nel campo avanzato.
Gli esperti nel settore della progettazione raccomandano che le illustrazioni siano più semplici da ricordare delle parole,
e questo è il motivo per cui la progettazione e la grafica del sito Web svolgono un lavoro fondamentale.

Questo commento è stato fatto dal moderatore sul sito
Grazie per la condivisione
Questo commento è stato fatto dal moderatore sul sito
Ottime informazioni Molto utile grazie per la condivisione.

Farmtrac 60
Questo commento è stato fatto dal moderatore sul sito
Bello strumento ma ho riscontrato il problema, che non riesco a convertire i file DOC (scritti in maiuscolo!) In file docx.
Funziona con file doc.
Questo commento è stato fatto dal moderatore sul sito
Ciao,
Il codice seguente può aiutare a convertire entrambi i documenti. e DOC. file in file docx. Per favore, provalo. Grazie per il tuo 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
Questo commento è stato fatto dal moderatore sul sito
Ciao
já bych potřeboval, ale scrittura VBA který di fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Dikuji.

ENG:
Buona giornata,
Avrei bisogno di uno script VBA che funzioni, comprese le sottocartelle. Qualcuno può per favore modificare anche questo script? Grazie.
Questo commento è stato fatto dal moderatore sul sito
Ciao Daniel Beneš,
Per includere le sottocartelle, prova il seguente codice VBA.
Dopo aver aggiunto il codice, vai al file Strumenti scheda, fare clic Referenze, in apertura Riferimenti - Progetto finestra di dialogo, selezionare Runtime di script Microsoft casella, quindi fare clic su OK pulsante per salvare le modifiche. Guarda lo screenshot seguente:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Dopodiché, premi il pulsante F5 chiave per eseguire il codice.

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
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite