[AccessD] Question about Sending RTF to Word and bolding specific text

I am using the following code to send a report to Word, then conduct a
search and replace for the search phrase used to create the report.
 
The problem:  This only works once, then I have to reboot in order for
it to work again.... Any one know a reliable way to do this
repetitively?
 
Search, send results to word, then bold the search phrases.
 
Thanks,
 
 
 
    DoCmd.RunCommand acCmdOutputToRTF
        
        With Selection.Find
            .ClearFormatting
        With .Replacement
'            .ClearFormatting
            .Font.Name = "Arial"
            .Font.Size = 24
            .Font.AllCaps = True
            .Font.Bold = True
        End With
            .Forward = True
            .Wrap = wdFindContinue
            .Execute FindText:=strCriteria(0), _
            Replace:=wdReplaceAll, ReplaceWith:=Trim(strCriteria(0))
         End With

 

Julie Alley
Emerald City Computer Solutions, Inc. 

 <mailto:Juliea at eccs-seattle.com> Juliea at eccs-seattle.com

Cell: 206-235-0954
Office: 206-932-6618
Fax: 206-938-7941
Web site:  <http://www.eccs-seattle.com/> http://www.eccs-seattle.com
 
WARNING: The information contained in this e-mail is confidential.  The
information is intended only for the use of the individual or entity to
whom it is addressed.  If you are not the intended recipient, or the
employee or agent responsible for delivering it to the intended
recipient, you are hereby notified that any use, dissemination,
distribution or copying of this communication is strictly prohibited.
If you have received this e-mail in error, please immediately notify us
by a collect telephone call to 206.932.6618 and return the original
message to us by e-mail.  Thank you.
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030313/edd4717c/attachment-0001.html>