3 métodos útiles para borrar por lotes todos los estilos de tabla en su documento de Word

En este artículo, nos centraremos en demostrarle 3 métodos útiles para borrar por lotes todos los estilos de tabla en su documento de Word.

De vez en cuando, si una tabla de Word se aplica con un estilo no deseado o reduce el efecto visual de todo el documento, debe borrar su estilo. Ahora le mostraremos cómo realizar dicha tarea.

Método 1: borrar el estilo de una tabla de palabras

1. En primer lugar, mueva el cursor sobre la tabla de destino hasta que vea la cruz en la esquina superior izquierda de la tabla.
2. A continuación, haga clic en el signo de la cruz para seleccionar toda la tabla.
3. Ahora ha activado las "Herramientas de tabla". Haga clic en la pestaña "Diseño".
4. Luego haga clic en el botón "Más" en el grupo "Estilos de tabla" para mostrar el menú desplegable.
5. Elija la opción "Borrar".
6. Ahora se elimina el estilo de la tabla. También lo son todos los bordes de las tablas. Para agregar bordes a la tabla, asegúrese de que la tabla esté seleccionada. Y haga clic en el botón desplegable junto al comando "Bordes".
7. Y elija "Todas las fronteras".

Aquí está el resultado:

Método 2: Borrar por lotes todos los estilos de tabla en un documento

Una vez que hemos hecho la tabla única, no se puede perder el tema del procesamiento por lotes. Primero, veamos cómo borrar todos los estilos de tabla en un documento a través de VBA.

1. Para empezar, pulse “Alt + F11” para mostrar el editor de VBA en Word.
2. A continuación, haga clic en el proyecto "Normal" en la columna de la izquierda.
3. Luego haga clic en "Insertar" en la barra de menú.
4. Y elija "Módulo" en el menú desplegable.
5. Abra el espacio de codificación del módulo haciendo doble clic en él.
6. Ahora pega la siguiente macro allí:

Sub ClearTableStylesInADoc()
  Dim objTable As Table
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objTable In objDoc.Tables
    objTable.Style = "Table Normal"
    objTable.Borders.Enable = True
  Next objTable
 
  Application.ScreenUpdating = True
 
  Set objDoc = Nothing
End Sub

7. Finalmente haga clic en “Ejecutar”.

Esta macro borra todos los estilos de tabla de un documento, les aplica el estilo "Tabla normal" y también agrega bordes de tabla.

Método 3: Borrar por lotes todos los estilos de tabla en varios documentos

Ahora, en caso de que tenga un par de documentos con los que lidiar, aquí está la macro para borrar todos los estilos de tabla en varios documentos.

1. En primer lugar, organice todos los documentos en una carpeta.
2. Repita los pasos del método 2 para instalar y ejecutar una macro.
3. Solo que esta vez, recuerde reemplazar con esta macro:

Sub ClearTableStylesInMultiDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim StrFolder As String
  Dim strFile As String
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Style = "Table Normal"
      objTable.Borders.Enable = True
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Al ejecutar la macro, aparecerá la ventana "Examinar". Seleccione la carpeta en la que almacena el documento en el paso 1 y haga clic en "Aceptar".

Entonces, deja el resto del trabajo a la macro.

Formas de recuperar documentos perdidos

Por documentos perdidos, nos referimos a que los documentos se ven comprometidos debido a Corrupción de palabras o errores humanos. Al tratar con dichos documentos, siempre debe tener en cuenta que se pueden recuperar con la ayuda de alguna herramienta de reparación avanzada.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar xls y pdf reparar productos de software. Para más información visite www.datanumen.com