Why are you doing that instead of using the code as provided? When adding those lines, did you delete or comment-out the following line?
oRng.FormattedText = Source.Sections(j).Range.FormattedText
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|