Saltar al contenido principal

¿Cómo eliminar filas y columnas vacías de tablas en Word?

¿Cómo puede eliminar todas las filas y columnas vacías de las tablas en Word? Este tutorial le mostrará varias formas de eliminar filas y columnas vacías de tablas en un documento de Word.

Eliminar manualmente todas las filas y columnas vacías de las tablas

Elimine todas las filas y columnas vacías de las tablas usando el código VBA

Elimine todas las filas y columnas vacías de las tablas con un clicbuena idea3


Eliminar manualmente todas las filas y columnas vacías de las tablas

Microsoft Office Word no proporciona una forma conveniente de eliminar filas y columnas vacías, y debe eliminarlas seleccionando manualmente cada fila y columna vacías y luego elimínelas una por una.

Paso 1: seleccione la fila vacía o la columna vacía que desea eliminar. Ver captura de pantalla:

doc-removerowsandcols-1

Paso 3: debajo Mesa Herramientas, haga clic en el Disposición Lengüeta;

doc-removerowsandcols-2

Paso 4: en el Filas y columnas grupo, clic Eliminar filas o eliminar columnas.

doc-removerowsandcols-3


Elimine todas las filas y columnas vacías de las tablas usando el código VBA

La función de macro de Word proporciona una forma mucho más conveniente de eliminar todas las filas y columnas vacías de las tablas del documento. Puede eliminar todas las filas y columnas vacías de la siguiente manera.

Paso 1: Prensa "Alt-F11" para abrir la ventana de Microsoft Visual Basic para Aplicación;

Paso 2: Click Módulo en recuadro pestaña, copie y pegue el siguiente código VBA en la ventana del Módulo;

Paso 3: luego haga clic en Ejecutardoc-signo-inverso-6 botón para aplicar el VBA.

El código de VBA para eliminar todas las filas y columnas vacías de las tablas:

Sub DeleteEmptyTablerowsandcolumns ()
Application.ScreenUpdating = False
Dim Tbl como tabla, cel como celda, i tan largo, n tan largo, fEmpty como booleano
Con ActiveDocument
Para cada Tbl en .Tables
n = Tbl.Columnas.Recuento
Para i = n Para 1 Paso -1
fEmpty = Verdadero
Para cada celda en Tbl. Columnas (i). Celdas
Si Len (cel.Range.Text)> 2 Entonces
fEmpty = Falso
Salir para
Si terminar
Siguiente cel
Si fEmpty = True, entonces Tbl.Columns (i) .Delete
Siguiente i
Siguiente Tbl
End With
Con ActiveDocument
Para cada Tbl en .Tables
n = Tbl.Filas.Recuento
Para i = n Para 1 Paso -1
fEmpty = Verdadero
Para cada celda en filas de tablas (i).
Si Len (cel.Range.Text)> 2 Entonces
fEmpty = Falso
Salir para
Si terminar
Siguiente cel
Si fEmpty = True, entonces Tbl.Rows (i) .Borrar
Siguiente i
Siguiente Tbl
End With
Establecer cel = Nada: Establecer Tbl = Nada
Application.ScreenUpdating = True
End Sub


Elimine todas las filas y columnas vacías de las tablas con un clic

Kutools for Word le proporciona la forma más conveniente de eliminar todas las filas y columnas vacías de las tablas en el documento. Solo necesita hacer clic una vez y Kutools for Wordes Delete Rows/Columns La utilidad eliminará todas las filas y columnas vacías de todas las tablas o las seleccionará rápidamente.

Kutools for Word, con más de  funciones prácticas, facilita su trabajo. 

Después de instalar Kutools para Word, haga lo siguiente:(¡Descarga gratis Kutools para Word ahora!)

1. Hacer clic en Kutools Más > Delete Rows/Columns en Table cristal.

doc eliminar columnas de filas en blanco de la tabla 1

2. Luego aparece un cuadro de diálogo, elija el alcance del que desea eliminar las tablas en la sección Buscar en, luego marque Fila opción y Fila en blanco opción, o comprobar Columna opción y Fila en blanco opción que necesite. Si desea eliminar todas las filas y columnas en blanco, debe aplicar esta operación dos veces.

doc kutools eliminar filas en blanco 2  doc kutools eliminar filas en blanco 3 

Ahora aparece un cuadro de diálogo para recordarle cuántas tablas se han tratado, haga clic en OK para cerrar, y las filas y columnas en blanco se han eliminado de las tablas.
doc kutools eliminar filas en blanco 4

Propina.Si desea eliminar filas en blanco de la hoja de Excel, el Eliminar filas en blanco La utilidad de Kutools for Excel puede ayudarlo.

Las mejores herramientas de productividad de oficina

Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!

🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido  /  Reescribir texto  /  Resumir documentos  /  Solicite información basado en el documento, todo dentro de Word

📘 Dominio del documento: Dividir páginas  /  Combinar documentos  /  Exportar selección en varios formatos (PDF/TXT/DOC/HTML...)  /  Convertir por lotes a PDF  /  Exportar páginas como imágenes  /  Imprima varios archivos a la vez...

Edición de contenidos: Buscar y reemplazar por lotes en varios archivos  /  Cambiar el tamaño de todas las imágenes  /  Transponer filas y columnas de tabla  /  Convertir tabla en texto...

🧹 Limpieza sin esfuerzo: barrer Espacios extra  /  Saltos de sección  /  Todos los encabezados  /  Cuadros de texto  /  Los hipervínculos  / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...

Inserciones creativas: Insertar Mil Separadores  /  Casillas de verificación  /  Botones de radio  /  Código QR   /  Barcode  /  Tabla de líneas diagonales  /  Título de la ecuación  /  Captura de imagen  /  Pie de tabla  /  Varias imágenes  / Descubre más en el Insertar grupo...

🔍 Selecciones de precisión: Localizar páginas específicas  /  tablas  /  formas  /  párrafos de encabezado  / Mejorar la navegación con más, Seleccionar características...

Mejoras de estrellas: Navegue rápidamente a cualquier ubicación  /  insertar automáticamente texto repetitivo  /  alternar sin problemas entre ventanas de documentos  /  11 herramientas de conversión...

👉 ¿Quieres probar estas funciones? Kutools para Word ofrece una prueba gratuita de 60 días.¡Sin limitaciones! 🚀
 
Comments (16)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi
Many many thanks. Its 100% worked.
This comment was minimized by the moderator on the site
Hi, thanks for the CODE, it worked on a document with only one table.

but when launching it on a word document with different tables from different sizes, i got this error : "Run-time error '5992' Cannot access individual columns in this collection because the table has mixed cell widths"

Can anybody help, please
This comment was minimized by the moderator on the site
Bonjour,

Quand j'exécute le programme, l'erreur suivante s'affiche " Erreur de compilation : Instruction incorrecte à l'extérieur d'une procédure"

Quelqu'un a une solution s'il vous plait ?
This comment was minimized by the moderator on the site
I found this macro and it works great when it comes to a table with single empty rows.
Is it possible to change it to work on a table with split rows as well?
I would very much thank you if you have a solution for me.
This comment was minimized by the moderator on the site
Hi, shimon, I don't not understand your question, please give me examples or describe the question with more details.
This comment was minimized by the moderator on the site
You just saved me a zillion hours of frustration, THANK YOU!
This comment was minimized by the moderator on the site
u know you can just resize the table right? just filter and sort your data to top check how many rows have data, click table tools and the click resize and adjust the last number to whatever you need OR go to the bottom of the table the very last cell and use the tine blue triangle to drag and resize,
This comment was minimized by the moderator on the site
Except I have multiple page document with a table with varying information in each. Furthermore, it is a merge document so different each week. I need an automated method :)
This comment was minimized by the moderator on the site
Hi, the macro is working, BUT:

After deleting all rows, all the columns of the tables with empty rows open up very wide.

How can i fix the code so that this does not happens?


I am using Office 2016.


Thank you!
This comment was minimized by the moderator on the site
Hi All, I am looking for function in word wherein, if I remove specific word then it should remove that row as well.
This comment was minimized by the moderator on the site
Thanks for the code, really useful.
This comment was minimized by the moderator on the site
Is there a macro that will delete a row if only one of the cells in that row is empty or contains a zero?
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations