Hi Tony,

Here is the original code that I am trying to improve:
----------------------------------------------------------------------------
--------------------
Private Sub ConvertDegrees (FCDegree as string)     ' degree symbol and F or
C
   Dim J As Integer
   Dim DegreeText As String
   Dim FindText As String

   DegreeText  = "[Dd][Ee][Gg][Rr][Ee][Ee]"

   For J = 1 To 4
       Select Case J                                              ' Define
Search Text
            Case 1
                FindText = "-" & DegreeText & ">"
            Case 2
                FindText = " " & DegreeText & ">"
            Case 3
                FindText = "-" & DegreeText & "[Ss]>"
            Case 4
                FindText = " " & DegreeText & "[Ss]>"
       End Select

       Selection.HomeKey Unit:= wdStory            ' Start Search at start
of Document
       With Selection.Find                                     ' Check if
any FindText string
            .ClearFormatting
            .Text = FindText
           .MatchWildCards = True

           If .Execute Then                                     ' If  True
then FindString in Document
               With Dialogs(wdDialogEditReplace)   ' Use Dialogs for
interaction to determine
                                                                         '
replace or no replace
                    .Find = FindText
                    .Replace = FCDegree
                    .PatternMatch = True
                    SendKeys "%F", True                   ' Initialize
Dialog to first FindString
                    On Error Resume Next                 ' Probably do not
need, leave for now
                    If (.Show = 0) Then Exit For         ' Search & Replace
cancelled
               End With
           End If
       End With
   Next J
   Selection.HomeKey Unit:=wdStory                ' Set to start of
document for next conversion step
End Sub
----------------------------------------------------------------------------
--------------------
What I have now seems to work but there has to be a better way, especially
when I have "tons" of documents to convert.

Thanks for your help.

Jerry Bodoff

Hi Graham,

Thanks a lot.  After analyzing the documents I realized that the only
conversions are when the "degree" string is preceded by any digit followed
by 1 or more "-" or blank.  Therefore, I was able to completely eliminate
the Dialogs interaction by using the following:

Search      ([0123456789])[- ]{1,}<[dD]{1}[egrEGR]{4}[eEsS]{1,2}>
Replace    \1°F   or   \1°C        (F or C passed as an argument)

I assume that the {4} after [egrEGR] also encompasses the [dD]{1}
expression.

Really appreciate your help.

Jerry Bodoff