Mac Automator / Word 2016 macro: tratando de crear un flujo de trabajo / macro que elimine los puntos destacados de Word 2016 para Mac

Question

Mac Automator / Word 2016 macro: tratando de crear un flujo de trabajo / macro que elimine los puntos destacados de Word 2016 para Mac

#1 de brokeharvard (1 votos)

0

EL PROBLEMA
Estoy trabajando en Microsoft Word 2016 para Mac en un gran contorno de viñeta en el que a menudo necesito resaltar texto. Si resalto todo el texto en un punto de viñeta, word también resalta automáticamente el punto de viñeta. Esto se debe a que Word de forma predeterminada hace que sus viñetas adquieran los estilos de su texto asociado, incluidos los resaltados. Este comportamiento predeterminado siempre me ha molestado un poco porque encuentro que el resaltado resultante de los puntos de bala me distrae y es descuidado.

ANEXOS MANUALES ANTERIORES
Anteriormente, he arreglado manualmente el problema. Por ejemplo, a veces resalto solo una parte del texto asociado y luego resalto el resto del texto (solucionando parcialmente el problema ex ante, pero no me permite resaltar todo el texto que quería de una vez). Otras veces, solucionaría el problema ex post: destacaría todo el texto asociado, lo que provocaría que el punto de la viñeta quedara resaltado, pero luego eliminaría el punto de la viñeta, alinearía mi texto con el punto de la viñeta no resaltado anterior y luego haría clic "enter" para crear un nuevo punto de viñeta no destacado (esto funcionó porque el texto asociado con el punto de viñeta anterior no estaba completamente resaltado).

LA NECESIDAD DE AUTOMATIZACIÓN
Ahora, sin embargo, estoy tratando con un documento muy largo y arreglar repetidamente el problema sería demasiado ineficaz. Por lo tanto, ahora estoy buscando una solución que corrija / evite el resaltado de viñetas sin que tenga que hacer cambios individuales arduos cada vez que resalte todo el texto asociado con un punto de viñeta.

Mi esperanza es que pueda crear un flujo de trabajo de Automator o una macro de Microsoft Word 2016 (para Mac) que, al activarse, pueda: (i) resaltar solo el texto asociado de un punto de viñeta, dejando el punto de viñeta sin resaltar --o (ii) elimina automáticamente el resaltado de un punto resaltado resaltado, dejando el texto asociado resaltado. Con respecto a la opción (ii), me complacería con un flujo de trabajo / macro que (a) eliminó el resaltado de un punto de viñeta individual o (b) eliminó el resaltado de todos los puntos de viñeta en un documento determinado, aunque este último es probablemente preferible. ¿Alguien tiene alguna idea de si alguna de estas opciones es factible y, de ser así, cuál sería la más fácil de implementar?

ms-office sierra automation automator

pregunta brokeharvard 11.02.2017 - 18:38

1 respuesta

Lea otras preguntas en las etiquetas ms-office sierra automation automator

Maximizar ventana de safari ¿Por qué mi iPhone todavía figura en iCloud aunque borré todo el contenido y la configuración del dispositivo?

score 1 · Answer 1

Descubrí cómo hacerlo con una macro de Word (VBA). Lo siguiente resaltará solo el texto (y no el punto de viñeta) del párrafo / texto asociado donde se encuentra el cursor. Puedes enlazar la macro para hacer esto bastante rápido. Sin embargo, esta no es la solución más rápida porque no le permite resaltar en masa , pero ciertamente es mucho más rápido que hacerlo manualmente.

¡Espero que esto pueda ayudar a alguien que se encuentre con el mismo problema que yo tenía!

Sub Highlighter_Macro()
'
' Highlighter_Macro Macro
'
'
    Selection.EndKey Unit:=wdLine
    Selection.MoveUp Unit:=wdParagraph, Count:=1
    Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Options.DefaultHighlightColorIndex = wdTurquoise
    Selection.Range.HighlightColorIndex = wdTurquoise
    Selection.EndKey Unit:=wdLine
    Selection.MoveLeft Unit:=wdCharacter, Count:=3, Extend:=wdExtend
    Options.DefaultHighlightColorIndex = wdTurquoise
    Selection.Range.HighlightColorIndex = wdTurquoise
    Selection.EndKey Unit:=wdLine
End Sub