×
INTELLIGENT WORK FORUMS
FOR COMPUTER PROFESSIONALS

Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here
*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here
Home > Forums > Programmers > DBMS Packages > Microsoft: FoxPro > FAQs

Microsoft: FoxPro FAQ

COM and Automation

How to find and replace in Word Document by Mike Gagnon
faq184-3475
Posted: 20 Apr 03 (Edited 20 Apr 03)

Sometimes recording a macro in Word and using the "translated" code in VFP works well and sometimes it doesn't. The find and replace feature in Word is one of these instances where it doesn't work as expected. Although the find feature works, the replace seems to be ingnored by VFP. You have to resort to Cut and paste to achieve this. Here a function that can be used as a Find and Replace , in a Word document.

wordFindAndreplace("paul","Paul","c:\hello.doc") && For example
FUNCTION wordFindAndReplace
LPARAMETERS cValueTofind,cValueToreplace,cDocument
LOCAL lValue
oWord=Createobject("word.application")
oDocument=oWord.Documents.Open(cDocument)
loSelection=oWord.Selection
With loSelection.Find
    .Text = cValueToFind
    .Forward = .T.
    .Wrap= 1
Endwith
Do While .T.
    lValue =   loSelection.Find.Execute
    IF lValue
      loSelection.Cut
      loSelection.InsertBefore(cValueToReplace)
      loselection.MoveRight
    ELSE
      EXIT
    ENIF
Enddo
ENDFUNC
oWord.Visible =.T.

Mike Gagnon

Back to Microsoft: FoxPro FAQ Index
Back to Microsoft: FoxPro Forum

My Archive
Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close