3 formas de eliminar por lotes el color de relleno de varias formas en su documento de Word

En este post, nos complace mostrarle 3 métodos efectivos para eliminar por lotes el color de relleno de varias formas en su documento de Word.

Al insertar formas en un documento de Word, también puede aplicarles color de relleno. Es fácil agregar o eliminar el color de relleno de una sola forma. Pero cuando se trata de procesamiento por lotes, necesitaremos algún truco.

Esta vez, queremos mostrarle cómo eliminar por lotes el color de relleno de varias formas en un documento. Para que pueda rellenarlos con los colores deseados o simplemente dejar formas en un fondo en blanco. A continuación se muestran 3 métodos que pueden ayudarlo en diferentes casos.

Método 1: eliminar el color de relleno de varias formas en una página

1. En primer lugar, haga clic en la pestaña "Inicio" en la cinta.
2. Luego haga clic en el comando "Seleccionar" en el grupo "Edición".
3. En el menú desplegable, elija "Panel de selección".
4. Ahora, en el panel "Selección y visibilidad", puede ver todos los nombres de las formas en esta página. Presione "Ctrl" para seleccionar las formas que necesita.
5. Luego haga clic en "Formato" en la cinta.
6. A continuación, haga clic en "Relleno de forma".
7. Elija "Sin relleno" en el menú desplegable.

Método 2: Eliminar por lotes el color de relleno de todas las formas de un documento

1. Primero y primeroost, si la pestaña "Desarrollador" está disponible, haga clic en ella y luego haga clic en "Visual Basic" para abrir el editor de VBA. Si el "Desarrollador" no se ha activado, presione "Alt + F11" en su lugar.
2. Ahora, en el editor, haga clic en el proyecto "Normal" en el lado izquierdo.
3. Luego haga clic en "Insertar" en la barra de menú.
4. A continuación, elija "Módulo" en el menú desplegable.
5. Haga doble clic en el nuevo módulo para abrirlo y pegue estos códigos allí:

Sub RemoveAllShapeFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    objShape.Fill.Visible = False
    objShape.Line.Visible = msoTrue
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

6. Por último, haga clic en el botón "Ejecutar" o presione "F5" para ejecutar los códigos.

Método 3: eliminar el color de relleno de todos los cuadros de texto de un documento

Los cuadros de texto pertenecen a la categoría de forma. En caso de que desee eliminar el color de relleno de todos los cuadros de texto pero mantener el de otras formas, puede utilizarlo de esta manera.

1. En primer lugar, repita los pasos del método 2 para instalar y ejecutar una macro.
2. Y esta vez, reemplace esa macro con esta:

Sub RemoveTextBoxFill()
  Dim objShape As Shape
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objShape In objDoc.Shapes
    If objShape.Type = msoTextBox Then
      objShape.Fill.Visible = msoFalse
      objShape.Line.Visible = msoTrue
    Else
      Exit For
    End If
  Next objShape
 
  Application.ScreenUpdating = True
  Set objDoc = Nothing
End Sub

Aquí está el resultado:

Recupere rápidamente documentos dañados

Si alguna vez se encuentra con documentos corruptos, no se asuste. Tenga en cuenta que most los documentos son recuperables. Lo que debe hacer es aprovechar el tiempo y obtener una doc arreglar herramienta. Hoy en día, esta utilidad puede ser de gran ayuda para recuperar sus datos.

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 xls arreglar y pdf reparar productos de software. Para más información visite www.datanumen.com