Saltar al contenido principal

¿Cómo aceptar cambios de seguimiento de formato solo en documentos de Word?

Si tiene un documento de Word que está en modo de seguimiento de cambios, cuando aplique el Aceptar todos los cambios función, se aceptarán todos los cambios de pista. Pero, a veces, solo desea aceptar los cambios de la pista de formato sin aceptar las inserciones o eliminaciones. Este artículo hablará sobre cómo resolver esta tarea en un documento de Word.

Acepte solo cambios de seguimiento de formato en Word con código VBA

Acepte solo cambios de seguimiento de formato en Word con la función Mostrar marcado


Acepte solo cambios de seguimiento de formato en Word con código VBA

El siguiente código VBA puede ayudarlo a aceptar los cambios de seguimiento de formato solo en el documento de Word, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código VBA: acepte cambios de seguimiento de formato solo en documentos de Word

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. Y luego presione F5 para ejecutar este código, y solo los cambios de seguimiento de formato se han aceptado en el documento de Word activo de inmediato. Ver captura de pantalla:

doc aceptar formato 1


Acepte solo cambios de seguimiento de formato en Word con la función Mostrar marcado

En un documento de Word, también puede aplicar el Mostrar marcado función para terminar este trabajo, siga los siguientes pasos:

1. En el archivo de modo de cambios de pista, haga clic en Revisar > Mostrar marcadoy luego desmarque la Comentarios y Inserciones y eliminaciones opciones, y deje el Maquetación opción marcada, ver captura de pantalla:

doc aceptar formato 2

2. Y ahora, puede ver los cambios de formato registrados, luego, haga clic en Revisar > Aceptar > Aceptar todos los cambios mostrados como se muestra en la siguiente captura de pantalla:

doc aceptar formato 3

3. Y todos los cambios de la pista de formato han sido aceptados, ahora, debe regresar en el Comentario, Inserciones y eliminaciones opciones marcándolas desde el Mostrar marcado lista desplegable, ver captura de pantalla:

doc aceptar formato 4

4. Ahora, puede ver que se han aceptado los cambios de seguimiento de formato y que aún se mantienen otros cambios de seguimiento, vea la captura de pantalla:

doc aceptar formato 1

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations