¿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.
