Since the expression:
If Len(Trim(.TextFrame.TextRange.Text)) > 1 Then
is unchanged from the previous working version of the macro, I can't see why you'd get a error 5917 unless you changed something else in the code. What is the error message and what does StrType contain at that point?
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
|