Find with wildcard with style

[martin.plantec]

Hello,

I want to do a simple word-to-html converter, and I thought I could use
a macro with recorded Find-Replace operations.

If "This is a title" has the style "Title 1", I want to change it into
"<h1>This is a title</h1>".

I tried to use:

Find: (*) [specifying that the style must be "Title 1"]
Replace: <h1>\1</h1>

However, this doesn't do what I need. It actually matches single
characters in the specified style, and then replace them by <h1></h1>.

I am aware that I could use ^13 to force Word to match the whole title
line. However this will not work when I will need to replace "words in
italics" by <i>words in italics</i>.

Any idea how I should proceed?

Thanks.

Martin