Este artículo ilustra cómo convertir documentos de Word en hojas de cálculo Excel manteniendo el mismo formato. Supongamos que necesita dar formato u ordenar los datos que se encuentran en un documento de Word. Obviamente, Excel es la mejor opción para hacer eso. Afortunadamente, usted no tiene que escribir los datos de nuevo en el nuevo archivo de Excel. Sólo tiene que convertir el documento de Word en una hoja de cálculo Excel, manteniendo el mismo formato.Formatea. La siguiente imagen pone de relieve el propósito de este artículo. Échale un vistazo rápido para aprender a hacerlo fácilmente.

Descargar el cuaderno de prácticas

Puede descargar el cuaderno de prácticas desde el botón de descarga que aparece a continuación.

Conversión de Word a Excel.xlsm

2 maneras de convertir Word a Excel con el mismo formato

Imagina que tienes el siguiente documento de Word. Ahora quieres convertirlo en una hoja de cálculo Excel. Entonces sigue los métodos que se indican a continuación.

1. Convertir Word a Excel con Copiar y Pegar

Para ello, basta con copiar los datos del documento de Word y pegarlos en la hoja Excel, siguiendo los pasos que se indican a continuación.

📌 Pasos

• En primer lugar, vaya al archivo word. A continuación, pulse CTRL+A para seleccionar todo el documento. También puede seleccionar un rango concreto sólo si es necesario.
• A continuación, pulse CTRL+C para copiar los datos como se muestra a continuación.

• A continuación, ve a la hoja de cálculo Excel. Después, selecciona la celda superior izquierda del rango donde quieres obtener los datos.
• Ahora, pulse CTRL+V para pegar los datos. Como alternativa, puede hacer clic con el botón derecho del ratón en esa celda. A continuación, seleccione Mantener formato de fuente (K) del Opciones de pegado .
• A continuación, obtendrá el siguiente resultado.

Más información: Cómo copiar de Word a Excel en varias celdas (3 maneras)

2. Convertir Word a Excel con VBA

Puede hacer lo mismo con Excel VBA. Siga los pasos que se indican a continuación para ello.

📌 Pasos

• En primer lugar, añada una nueva hoja de cálculo. A continuación, guarde el libro de trabajo como archivo libro de trabajo habilitado para macros .
• A continuación, pulse ALT+F11 para abrir la ventana VBA.
• A continuación, seleccione Insertar>> Módulo para crear un nuevo módulo como se muestra en la siguiente imagen.

• A continuación, copie el siguiente código con el botón de copia.

 Sub WordToExcelWithFormatting() Dim Document, Word As Object Dim File As Variant Dim PG, Range Application.ScreenUpdating = False File = Application.GetOpenFilename _ ("Word file(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Please Select") If File = False Then Exit Sub Set Word = CreateObject("Word.Application") Set Document = Word.Documents.Open(Filename:=File, ReadOnly:=True)Document.Activate PG = Document.Paragraphs.Count Set Range = Document.Range(Start:=Document.Paragraphs(1).Range.Start, _ End:=Document.Paragraphs(PG).Range.End) Range.Select On Error Resume Next Word.Selection.Copy ActiveSheet.Range("B2").Select ActiveSheet.Paste Document.Close Word.Quit (wdDoNotSaveChanges) Application.ScreenUpdating = True End Sub 

• A continuación, pegue el código copiado en la ventana del módulo como se muestra a continuación.

• Ahora, pulse F5 para ejecutar el código. También puede hacerlo desde la página Ejecutar
• Después de eso, se le pedirá que seleccione el archivo de Word que desea convertir.
• A continuación, vaya a la ubicación del documento de Word que desee, seleccione el archivo y haga clic en Abrir .

• Finalmente, obtendrás un resultado similar al del método anterior.

🔎 ¿Cómo funciona el código?

Sub WordToExcelConFormato()

Dim Document, Word As Object

Dim File As Variant

Dim PG, Gama

Declarar las variables necesarias.

Aplicación.ScreenUpdating = False

Archivo = Aplicación.GetOpenFilename _

("Archivo Word(*.doc;*.docx) ,*.doc;*.docx", , "ExcelWIKI.Com - Por favor, seleccione")

If File = False Then Salir de la sub

Set Word = CreateObject("Word.Aplicación")

Esto establece el Palabra variable como documento word.

Set Document = Word.Documents.Open(Nombre de archivo:=Archivo, Sólo lectura:=Verdadero)

Esto asigna el Documento al objeto o archivo al que hace referencia el usuario.

Documento.Activar

PG = Document.Paragraphs.Count

Esta línea de código asigna el PG variable al número de párrafos del documento word

Set Rango = Document.Rango(Inicio:=Document.Párrafos(1).Rango.Inicio, _ Fin:=Document.Paragraphs(PG).Range.End)

Rango.Seleccionar

En caso de error Reanudar siguiente

Word.Selección.Copiar

ActiveSheet.Range("B2").Select

ActiveSheet.Paste

Documento.Cerrar

Word.Quit (wdDoNotSaveChanges)

Aplicación.ScreenUpdating = True

Fin Sub

Más información: Cómo convertir una tabla de Word en una hoja de cálculo de Excel (6 métodos)

Cosas para recordar

• También puede guardar el archivo Word como PDF y, a continuación, utilizar su editor PDF para convertirlo en una hoja de cálculo Excel.
• No olvide guardar el libro de trabajo como archivo .xlsm De lo contrario, perderá el código.

Conclusión

Ahora, usted sabe cómo convertir un documento de Word a una hoja de cálculo Excel y mantener el formato también. Por favor, háganos saber si este artículo le ha ayudado a resolver su problema. También puede utilizar la sección de comentarios para más consultas o sugerencias. No deje de visitar nuestro ExcelWIKI blog para explorar más sobre excel. Quédate con nosotros y sigue aprendiendo.