¿Cómo convertir por lotes archivos de formato .doc a .docx en Word?

Suponiendo que ha recibido algunos documentos de Word en formato 97-2003, ¿cómo puede convertir por lotes todos estos documentos en formato .doc a formato .docx a la vez? Este artículo le mostrará dos métodos para resolver este problema.

Convierta por lotes archivos de formato .doc a .docx con código VBA
Convierta por lotes archivos en formato .doc a .docx con Kutools para Word

Convierta por lotes archivos de formato .doc a .docx con código VBA

Esta sección le mostrará el código VBA para convertir todos los documentos en formato .doc en una carpeta específica a documentos .docx a la vez. Haz lo siguiente.

1. Recopile todos los documentos en formato .doc que convertirá a .docx en una carpeta específica.

2. presione el otro + F11 clave para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. En la ventana, haga clic en recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana del Módulo.

Código VBA: convierta por lotes todos los documentos en formato .doc a .docx en una carpeta determinada

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. presione el F5 clave para ejecutar el código. En la apertura Búsqueda de ventana, seleccione la carpeta que contiene los documentos en formato .doc y haga clic en OK. Ver captura de pantalla:

Luego, todos los documentos en formato .doc se convierten a documentos .docx inmediatamente, como se muestra a continuación.

Convierta por lotes archivos en formato .doc a .docx con Kutools para Word

En esta sección se recomendará una práctica utilidad. Con el Doc / Docx utilidad de Kutools for Word, puede convertir fácilmente todos los documentos en formato .doc de una carpeta a documentos .docx. Intente lo siguiente.

Kutools for Word : Con más de 100 útiles complementos de Word, gratis para probar sin límite en 60 días.

1. Recopile todos los documentos en formato .doc en una carpeta específica y haga clic en Kutools Más > Doc / Docx. Ver captura de pantalla:

2. En el Convertidor de formato de documento cuadro de diálogo, debe hacer lo siguiente:

3. Luego aparece un cuadro de diálogo para indicarle cuántos documentos se han convertido correctamente, haga clic en el OK botón y cierre el Convertidor de formato de documento ventana.

Ahora todos los documentos en formato .doc se convierten a archivos .docx. Ver captura de pantalla:

Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.

Kutools para Outlook: trae 100 funciones avanzadas a Outlook y hace que el trabajo sea mucho más fácil.

• Auto CC / BCC por reglas al enviar correo electrónico; Reenvío automático Varios correos electrónicos personalizados; Respuesta automática sin servidor de intercambio y más funciones automáticas ...
• Advertencia de BCC - mostrar mensaje cuando intente responder a todos si su dirección de correo está en la lista CCO; Recordar si faltan archivos adjuntosy más funciones de recordatorio ...
• Responder (todos) con todos los archivos adjuntos en la conversación de correo; Responder muchos correos electrónicos en segundos; Agregar saludo automáticamente cuando responda; Agregar fecha al asunto ...
• Herramientas de archivos adjuntos: administre todos los archivos adjuntos en todos los correos, Desconexión automática, Comprimir todo, Renombrar todo, Guardar todo ... Informe rápido, Contar correos seleccionados...
• Potentes correos electrónicos no deseados por costumbre; Eliminar correos y contactos duplicados... Le permite hacerlo de forma más inteligente, más rápida y mejor en Outlook.

Leer más ... Descargar ahora...