Highlights in Word are not saved

[twckfa16]

Hello -

I have a macro that is working fine but doesn't seem to save highlights that are applied to a Word Document.
The macro works like this:
if a particular string is inputted in Column B, take the value in Column A and find
the string in a Word Document. Highlight the string with a particular color.

The macro works (using .hithighlights) but when i go to save the Word document, the highlights disappear.

Should I try another method? Save the document as something else?

Please tell me if I need to move this to another forum etc.

Thanks !

[macropod]

It would be really, really, helpful if you actually posted the code you're using; without it, no one can do more than guess what the issue might be...

[twckfa16]

It would be really, really, helpful if you actually posted the code you're using; without it, no one can do more than guess what the issue might be...

Hello -

Below is the code I am using. The macro is sufficient
for what I need - the issue is when I do a manual save
and reopen the file the highlights are gone.
CODE
Dim worddoc As Word.Document
Dim wrng As Word.Range
Dim erng As Range
Set erng = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
Workbooks("test.xlsm").Activate
Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy
Set worddoc = ActiveDocument
worddoc.Paragraphs(2).Range.PasteSpecial Link:=False, DataType:=wdPasteText
worddoc.Paragraphs.SpaceAfter = 0
Workbooks("test.xlsm").Activate
For Each a In Sheets("Sheet1").Range("B1:B3")
If a.Value = "yes" Then
Set wrng = worddoc.Range
With wrng.Find
.HitHighlight (a.Offset(0, -1).Value), wdColorLightGreen
End With
ElseIf a.Value = "no" Then
Set wrng = worddoc.Range
With wrng.Find
.HitHighlight (a.Offset(0, -1).Value), wdColorRed
End With
Else
End If

Next a
/CODE

Thank you !

[macropod]

Try:

Please Login or Register  to view this content.

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had.