home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 November / Pcwk1197.iso / LOTUS / Eng-ins / WORDPRO / FINDREPL.TPL < prev    next >
Text File  |  1995-07-30  |  386b  |  16 lines
  1.     .Type "This is a sample.[Enter]"
  2.     .Type "This is another sample."
  3.     
  4.     .FindAndReplace.FindString = "sample"
  5.     .FindAndReplace.ReplaceString = "script sample"
  6.     .InitFindAndReplace True
  7.     
  8.     REM 0 = Found, 4 = NotFound    
  9.     If .Find = 0 Then Messagebox "Found the first item.",, "Skipping"
  10.     
  11.     REM Find the next instance    
  12.     .Find
  13.     
  14.     REM Replace the rest of the words    
  15.     .ReplaceAll
  16.