Hi Binar,

Appropos our previous discussion, you need to do a two-step Find/Replace. First, ensure all of the existing headings you want to modify have a period at the end, via the wildcard Find/Replace, where:
Find = ([!.])(^13)
Replace = \1.\2
and specify the relevant Heading Style for the 'Find'. Make sure the 'Replace' option doesn't have any format specified. After that, do another wildcard Find/Replace, where:
Find = .^13
Replace = ^&
again with the 'Find' format specified as the relevant Heading Style, but this time with the 'Replace' format specified as not underlined. This wildcard Find/Replace is equivalent to the standard one I specified originally - it just means you don't have to keep toggling the wildcard option on/off.

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