Surrounding text of specific color

[fuzzek]

Hi folks, I've searched some groups for answer, but couldnt find any.
I have a large document, where some parts of text are in red. Now I
have to export whole document to plain text, but I have to keep the
selection by surrounding it with some tags (like <sel></sel>).


Is there any way I can deal with it without manual work?

 

[Shasur]

Hi

You can probably search for the font in the document and 'tag' it

Sub Color_Red_Text()

Selection.HomeKey wdStory, wdMove
Selection.ClearFormatting
Selection.Find.Font.Color = wdColorRed
Selection.Find.Execute ""
Do Until Selection.Find.Found = False
Selection.InsertBefore "<sel>"
Selection.InsertAfter "</sel>"
Selection.MoveRight
Selection.Find.Execute ""
Loop
End Sub


Cheers