The problem doesn't have anything to do with intra-paragraph returns, but with the fact you have empty paragraphs. To work around that, change:
.Paragraphs(i).Range.Words.First = i
to:
If .Paragraphs(i).Range.Words.Count > 2 Then .Paragraphs(i).Range.Words.First = i
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|