Thread: Replace each heading with a unique numeric value
View Single Post
 
Old 05-06-2013, 03:29 AM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
I suggest you check the offending heading. Comment-out or delete:
Application.ScreenUpdating = False
and insert:
Rng.Select
before:
Rng.Text = 10000 + I
With these changes, the code should fail with the problem range selected. I suspect you'll find it's either an empty paragraph or there is something else non-standard about it.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote