Help in function creation

[ADS_SDF]

Hello everyone I need to write a VBA function that performs the following tasks:

- enter "<p>" before each capital letter at the beginning of the sentence.
- enter "<strong>" before each capital letter within a sentence, and "</strong> at the end of that word.
- After each dot, type "</p>"

Can anyone help me?
Thank you so much!

 

[ADS_SDF]

Ok, so the mid-sentence capital M in Maree does not get a <strong> before it.

And a letters followed by "-" do not get a </strong> between but letters followed by "." or "," or "!" or "?" do get a </strong> between. Could we have definitive lists of other non-letter characters that do/don't get the </strong> before them? Are any of these characters possible in your data and if so which category do they fit in?
@ # $ % ^ & * ( ) _ { } [ ] < > : ; " ' / | \
Could digits be involved in the text? If so, some examples of data and results?

To help confirm the rules, the result for my second example in post 4 would be?

I forgot to answer to your second question.

The output of the sentence What is on ABC today? should be
<p>What is on <strong>ABC</strong> today?</p>

 

[Peter_SSs]

This sort of thing is notoriously difficult. A human can usually identify a sentence pretty easily but to tell Excel how to do that is not so easy. In a paragraph it would be easy to say that a break between sentences is identified by a "." followed by a space followed by an upper case letter, but ..
a. As demonstrated in my examples, a sentence can end with characters other then "."
b. A "." followed by a space followed by an upper case letter does not necessarily mean a sentence break anyway (eg "I like poetry by J. Blake and his brother.")

There is also some discrepancy in your example below

The result of the function I would need is
<p>Today is <strong>Wednesday</strong>, <strong>December</strong>21. </p><p>Tomorrow will be <strong>Thrusday</strong>!</p><p>Is that you <strong>Ann-Maree</strong>?</p>

You have retained the space character before the first "</p>" but omitted it before the second "</p>"

I have assumed that it should be omitted. So you could give this UDF a try.

Function AddTags(para As String) As String
  With CreateObject("VBScript.RegExp")
    .Global = True
    .Pattern = "(^|[.?!] )(?=[A-Z])"
    AddTags = .Replace(para, "$1<p>")
    .Pattern = "([.?!] |$)"
    AddTags = .Replace(AddTags, "$1</p>")
    .Pattern = "( )(?=[A-Z])"
    AddTags = .Replace(AddTags, "$1<strong>")
    .Pattern = "(<strong>[^, .?!]+)([, .?!])"
    AddTags = Replace(.Replace(AddTags, "$1</strong>$2"), " </p", "</p")
  End With
End Function

ADS_SDF.xlsm
	A	B
1	Today is Wednesday, December 21. Tomorrow will be Thursday! Is that you Ann-Maree?	<p>Today is <strong>Wednesday</strong>, <strong>December</strong> 21.</p><p>Tomorrow will be <strong>Thursday</strong>!</p><p>Is that you <strong>Ann-Maree</strong>?</p>
2	What is on ABC today?	<p>What is on <strong>ABC</strong> today?</p>
Sheet1

Cell Formulas
Range	Formula
B1:B2	B1	=AddTags(A1)