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

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

2.1) Seleccione la carpeta que contiene documentos en formato .doc en el Carpeta de archivo de origen sección;
2.2) Seleccionar Convertir doc a docx from the Formato Convertir la lista desplegable;
2.3) Por defecto, el Ruta de destino igual que la fuente la casilla está marcada. Si desea colocar todos los documentos .docx convertidos en la misma carpeta, mantenga esta opción seleccionada;
Si desea separar los documentos .docx y los documentos .doc de origen, desmarque la casilla Ruta de destino igual que la fuente cuadro y seleccione una nueva carpeta para guardar los documentos .docx en el Guardar en... caja;
2.4) Haga clic en Home botón. Ver captura de pantalla:

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.
tiro kutools outlook kutools pestaña 1180x121
tiro kutools outlook kutools plus pestaña 1180x121
 
Comentarios (17)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
¡Prestigio! Gracias por compartir. Esto fue extremadamente útil. Tenía más de 50 000 documentos que necesitaban ser convertidos. Tomó solo un toque durante 39 horas para hacerlo todo. Gran ayuda. Usé la opción 1
Este comentario fue minimizado por el moderador en el sitio
Abra el documento de Word que desea convertir en un archivo PDF. Si desea importar solo... ConvertOnlineFree: conversaciones individuales y por lotes de documentos de Word a PDF... PDFOnline: convertidor gratuito de Word (doc, docx y txt) a PDF.

Buen blog, el artículo que has compartido es bueno. Este artículo es muy útil. Mi amigo me sugiere que use este blog.

https://customersurveyinfo.com
Este comentario fue minimizado por el moderador en el sitio
Hola, gracias por compartir.
Este comentario fue minimizado por el moderador en el sitio
Cosas interesantes para leer. Seguid así.
Este comentario fue minimizado por el moderador en el sitio
Hola,
Me alegra encontrar esta información útil. Gracias por compartir este increíble artículo.
Este comentario fue minimizado por el moderador en el sitio
Hola...Hola, Este blog contiene información muy técnica, es uno de los mejores blogs que tengo. Muy interesante y describe de una manera muy fácil.
Este comentario fue minimizado por el moderador en el sitio
Hola señor,
Me encanta esta publicación. Realmente aprecio este sitio web. Su información es muy buena y valiosa. Una idea y un concepto adorables para compartir este sitio web.
Este es un sitio web increíble. Esta publicación es agradable.
Gracias por compartir
Este comentario fue minimizado por el moderador en el sitio
Hola. Buena publicación. Sigue compartiendo. Gracias.
Este comentario fue minimizado por el moderador en el sitio
Este es un artículo realmente perspicaz, lo encontré muy útil e informativo.
Este comentario fue minimizado por el moderador en el sitio
Gracias por compartir esta útil información.
Este comentario fue minimizado por el moderador en el sitio
mejor empresa de diseño gráfico en la india
Diseñar es un oficio de comunicar palabras como articulaciones. Las imágenes importan más que las palabras en el campo avanzado.
Los expertos en el negocio del diseño recomiendan que las ilustraciones sean más fáciles de recordar que las palabras,
y esa es la razón por la que el diseño de sitios web y los gráficos juegan un trabajo imperativo.

Este comentario fue minimizado por el moderador en el sitio
Gracias por compartir
Este comentario fue minimizado por el moderador en el sitio
Excelente información Muy útil gracias por compartir.

Farmtrac 60
Este comentario fue minimizado por el moderador en el sitio
Buena herramienta, pero tengo el problema de que no puedo convertir archivos DOC (¡escritos en mayúsculas!) en archivos docx.
Funciona con archivos doc.
Este comentario fue minimizado por el moderador en el sitio
Hola,
El siguiente código puede ayudar a convertir tanto doc. y DOC. archivos en archivos docx. Por favor inténtalo. Gracias por tus comentarios.

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
Este comentario fue minimizado por el moderador en el sitio
¡Hola
já bych potřeboval, ale VBA script který por fungoval včetně podsložek. Umíte někdo prosím upravit i tento skript? Děkuji.

ESP:
Buenos días,
Necesitaría un script de VBA que funcionara, incluidas las subcarpetas. ¿Puede alguien editar este script también? Gracias.
Este comentario fue minimizado por el moderador en el sitio
Hola Daniel Beneš,
Para incluir subcarpetas, intente con el siguiente código VBA.
Después de agregar el código, vaya a la Herramientas pestaña, clic Referencias, en la apertura Referencias - Proyecto cuadro de diálogo, verifique Tiempo de ejecución de secuencias de comandos de Microsoft cuadro, y luego haga clic en el OK botón para guardar los cambios. Vea la siguiente captura de pantalla:
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/check-scripting_runtime.png
Después de eso, presione el F5 clave para ejecutar el código.

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
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas