Code behavior re highlighting differs in 2000/2003

[Mark Tangard]

The following code works in Word 2000, but when run in 2003 the first
part of the 'If' statement doesn't work; that is, existing highlight in
the paragraph is not removed.

If Selection.End = Selection.Start Then
Selection.Paragraphs(1).Range.HighlightColorIndex = wdNoHighlight
Else
Selection.Range.HighlightColorIndex = wdNoHighlight
End If

This rather strange and apparently wasteful variation is what works in
Word 2003:

Dim r as Range
If Selection.End = Selection.Start Then
For Each r In Selection.Paragraphs(1).Range.Characters
r.HighlightColorIndex = wdNoHighlight
Next
Selection.Paragraphs(1).Range.HighlightColorIndex = wdNoHighlight
Else
Selection.Range.HighlightColorIndex = wdNoHighlight
End If

Any idea why?

TIA


Mark Tangard
"Life is nothing if you're not obsessed." --John Waters

 

[Klaus Linke]

Hi Mark,

Seems to work fine for me (Word 2003)...

Maybe there's something special about your document, or the current paragraph?

Is the first branch entered at all?

Does this work...
If Selection.Type = wdSelectionIP Then
?

Regards,
Klaus

 

[Mark Tangard]

Hi Klaus,

Predictably, it works just fine today using either method!

Is testing Selection.Type = wdSelectionIP preferable (smarter/safer/etc) to
testing whether Selection.End and Selection.Start are the same? Besides being
more concise, I mean?

Thanks,
Mark

 

[Klaus Linke]

Let's hope it keeps working

I suggested Selection.Type only because I was confounded, hoping it might turn
up something weird about the selection you were working on.

Regards,
Klaus