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

Microsoft: FoxPro FAQ

COM and Automation

How to find and replace in Word Document by Mike Gagnon
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
With loSelection.Find
    .Text = cValueToFind
    .Forward = .T.
    .Wrap= 1
Do While .T.
    lValue =   loSelection.Find.Execute
    IF lValue
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