vba - subrayado - ¿Cómo cambio el texto resaltado a un color diferente en MS Word?

como resaltar imagenes en word

Question

Tengo algunos archivos .doc simples que hice en Word 2007 donde cambié el color del texto y usé los resaltados para comparar algunos textos similares. Lo que me gustaría hacer es cambiar cualquier instancia de texto verde o resaltado gris a diferentes colores respectivos para cada uno.

Estoy seguro de que hay una manera simple de hacer esto con VBA, pero cualquier otro tipo de respuestas también son bienvenidas.

EDITAR: Si bien aprecio las respuestas, una que me permite guardar los archivos .doc como .docs es preferible.

Answer 1

Pensé que se podía resaltar una sección del texto coloreado y luego elegir la opción "seleccionar texto con formato similar" en la opción de menú Seleccionar texto en la pestaña Inicio. Luego solo selecciona el color de texto requerido. Espero que esto funcione.

Answer 2

Esto no es de 2007, pero la idea debería ser adecuada. Este ejemplo cambia cualquier resaltado actual al resaltado predeterminado nuevo (wdBrightGreen) y cualquier texto verde a rojo.

Sub ChangeColor
Options.DefaultHighlightColorIndex = wdBrightGreen

    Selection.Find.ClearFormatting
    Selection.Find.Highlight = True
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Highlight = True
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorBrightGreen
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = wdColorRed
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 3

Siempre puede guardar el archivo como HTML y reemplazar los colores allí. El color se representa con

<span style=''color:red''>...

y resaltar es

<span style=''background:yellow;mso-highlight:yellow''>...

Debe ser fácil de manipular si su documento es lo suficientemente simple.

Editar que responde a la edición en la pregunta: Una vez que haya terminado, vuelva a abrir el archivo y guarde el archivo como .doc.

Answer 4

Esto debería funcionar para su propósito:

Sub RehiliteAll()

    Const YOUR_REQUIRED_COLOR_IDX As Integer = 6 ''RED''
    Dim doc As Range
    Set doc = ActiveDocument.Range

    With doc.Find
        .ClearFormatting ''resets default search options''
        .Highlight = True
        .Wrap = wdFindStop

        While .Execute

            If doc.HighlightColorIndex = YOUR_REQUIRED_COLOR_IDX Then
                doc.Select
                MsgBox doc.HighlightColorIndex
                ''Do stuff here''
            End If

            ''doc has been reassigned to the matching''
            ''range; we do this so word keeps searching''
            ''forward''
            doc.Collapse wdCollapseEnd
        Wend
    End With

    Set doc = Nothing
End Sub

''I am closing comment quotes so that SO formatting''
''does not get messed up too much.''