Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

How to find and replace in Word Document

COM and Automation

How to find and replace in Word Document

by  Mike Gagnon  Posted    (Edited  )
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.
Code: 
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
Register to add this FAQ to your archive
Register to rate this FAQ  : BAD 1 2 3 4 5 6 7 8 9 10 GOOD
Please Note: 1 is Bad, 10 is Good :-)

Part and Inventory Search

Back
Top