Thanks for your last post Macropod. I have been busy testing it and now I'm hoping you can advise me how to modify your code below:

Find = ([!.])(^13)
Replace = \1.\2

Let me say that your code makes quick work of adding a period at the end with no underline applied as long as I specify HEADING 2. Below is an example of the successful result I got for Heading 2:

3.2 Para Title With Heading 2 Specified.

However, if I specify HEADING 3, 4, 5 or Heading 6, I get incorrect results. Below is an example of the incorrect result I get when I specify HEADING 5 style:

3.6.5.5.5 Para Title With Heading 5 Specified.

It is incorrect because the "d" located at the end is missing the underline. Below is the correct result the Military Standard specifies for Heading 5:

3.6.5.5.5 Para Title With Heading 5 Specified.

My hope is you can advise me how to modify your code below:

Find = ([!.])(^13)
Replace = \1.\2

So that what it successfully does for Heading2 it can also do the same for HEADING 3, 4, 5 or Heading 6.

Any help will be greatly appreciated. Thanks