Help in finding/developing a macro to markup and apply styles to a Word document

[RavindraBanthia]

Hi,



I need help and or advice on a locating/developing a VB script for the following:

1) Marking up all words/phrases/sentences that have a particular format (italics, bold, etc.) with say user-defined delimiters such as “<” and “>”

2) Applying formatting (italics, bold, etc.) or user-created styles to all words/phrases/sentences that are delimited with user-defined delimiters such as “<” and “>”

I have browsed the excellent sites of both Gregory K. Maxey and Graham Mayor, but I was unable to apply those macros for the above purposes.

Thank you.

[macropod]

See, for example: https://www.msofficeforums.com/126958-post8.html

[RavindraBanthia]

Thank you, Macropod.

I am a newcomer to VBA, but the code seems to make sense.

[RavindraBanthia]

Hello Macropod,

The first routine works perfectly except when the paragraph mark itself is bold/italics.

So, I’d first need to clean up all para marks.

Also, if the space beyond the italicized element (word/phrase/sentence) is bold/italics, the space is included in the tag.

The second routine works like a charm and correctly formats the document based on the tags.

Thank you. That helps reduce a lot of the mundane Find/Replace/Insert work.

I wonder if the first routine can be easily modified to ignore formatted paragraph marks and formatted space that comes after the relevant formatted text.

Also, in both routines, it would be great if we could use a user-defined style for selection of text to be tagged and subsequently the tagged material to be formatted.

Even if the routines cannot be extended (easily), thank you indeed.

Ravi

[macropod]

Originally Posted by RavindraBanthia

The first routine works perfectly except when the paragraph mark itself is bold/italics.

On the contrary, it handles those paragraph marks correctly, precisely because that is how they have been formatted. To exclude the paragraph marks, change:
.Text = ""
to:
.Text = "[!^13]{1,}"

See the notes in the linked post.

[RavindraBanthia]

Thank you, Macropod.

I see this in the note:

As coded, that macro will also insert the </i>, etc. after any formatted paragraph mark. To exclude the paragraph marks, change:
.Text = ""
to:
.Text = "[!^13]{1,}"

Thank you for giving me a great starting point.

I’ll try to study VBA and extend the code a little.