Brilliant!  Where do I send the Guiness?

Of course, now I have problems with the RegExp but that will have to wait
until tonight,

Thanks.

/Joel

Pass it as a Range, not a String:

   Dim rng As Range
   Set rng = ActiveDocument.Range(Start:=0,
End:=ActiveDocument.Content.End)
   Call DoSectionHeaders(rng.FormattedText)

Sub DoSectionHeaders(ByRef r As Range)

   Set re = New RegExp

   re.Pattern = "\r(\w{1,8})\r{1}"
   re.IgnoreCase = True
   re.Global = True

   r.Text = re.Replace(r.Text, "\r<h3>\1</h3>\r")

End Sub

Doesn't matter if you pass byref of byval if you use the Range object, too.
I think that applies to all objects, but my theory is a little rusty.

hth,

-Peter

I have done this:

   Dim rng As Range
   Set rng = ActiveDocument.Range(Start:=0,
End:=ActiveDocument.Content.End)
   Call DoSectionHeaders(rng.FormattedText)

The Sub now gets the formatted text, and the RegExp works.  However, when
the Call returns the rng.FormattedText is unchanged even though I explicitly
call it by reference.

/Joel Finkel
finkel@sd-il.com

"Peter" <peterguy -at- hotmail -dot- com> wrote in message
news:uLdqSB91EHA.1188@tk2msftngp13.phx.gbl...
How are you setting up the Selection?

-Peter

Folks,

I have a VBA script that I use to convert articles that I receive in Word
format to simple (and I mean simple) HTML.  The script simply performs a
long series of search-and-replaces by using the Selection.Find object.

However, there are some strings that I need to convert that cannot be parsed
without using a more robust regular expression parser.  For example, I need
to find a single line that comprises 8 or fewer words and that is followed
by only a single ^p and replace it with "^p<h3>the words</h3>^p".

I added a reference to the Microsoft VBScript Regular Expressions 5.5 and
created the following Sub:

Sub DoSectionHeaders(ByRef s As String)

   Set re = New RegExp

   re.Pattern = "\r(\w{1,8})\r{1}"
   re.IgnoreCase = True
   re.Global = True

   s = re.Replace(s, "\r<h3>\1</h3>\r")

End Sub

My question: How do I pass the entire formatted text into this Sub so it can
be processed?

I tried this:

   Call DoSectionHeaders(Selection.FormattedText)

But Selection.FormattedText is an empty string.

Thanks in advance for all suggestions.  Oh yes, I am using Word 2003.

Joel Finkel
finkel@sd-il.com