I have a huge Word document. I want to replace all of its headings with a unique numeric value, say, 10001,10002,10003, and so on. So maybe the heading is h1 or h2 or h3 or h4 or other higher levels, every heading will get replaced with a numeric value that will be unique throughout the document.



Can anyone please help? This is urgent.

You can do this simply enough by applying multi-level list numbering to the headings and, if necessary for your purposes, using a wildcard Find/Replace to delete each heading's text, where:
Find = *
Replace = ^p

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you. But this will not help.

Applying numbering can be done but that will never become part of the heading when I try to use, say Find and Replace, or import the document to another software. The numbering is Field Codes in place. I want the heading's text to be replaced with numbers like 10001, 10002, and so on.

Also, * and ^p doesn't work. Note that I want to change the text in headings only. Can you suggest something else with these details. Note that I want to do this for all heading levels in the document.

OK, what are the rules as to how each heading's text is to be numbered? Are all Heading 1 paras to start at 10001, Heading 2 to start at 20001, and so on, for example, or something else?

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

No rules at all. Headings should get just a unique integer value and better if it is more than 10000. So if the flow is
h1, h2, h2, h3, h1, h2, h3, h4, h5, h6, h2, h3.... then the headings should now be 10001, 10002, 10003, 10004, 10005, 10006, and so on. The numeric value can be any but better if it is at least > 100 or 1000.

You can do this with a fairly simple macro:

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

Thank you so much. It worked but with error:Error 6028: The Range Cannot be Deleted?
I get an option to debug in the error window. I tried changing range from 10000 to 100000 in the code but still the same error. Though the error comes, almost 95% of the headings are converted just fine. Notice that the document has almost 3500 headings.

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]