🚀 go-pugleaf

Her,e in a nut-shell, is the essence of the macro I asked for help on this
morning. While it works, the programmer in me cringes at the idea of using
a Goto to both make a loop and jump out of it. Surely there must be a better
way!

	Sub MAIN
	Rem Enlarge al occurences of "the"
	Activate "Test.Doc"
	StartOfDocument
	here:
	EditFind .Find = "the", .WholeWord = 1, .Direction = 2
	If Not EditFindFound() Then Goto bye
	a$ = Selection$()
	FontSize(18)
	Goto here
	bye:
	End Sub

It seems that one could do with a Repeat....Until command.

Any ideas wellcome!

Dennis.

+---------------------------------------------------------------------------+
|/\/\/\/\/\/\/\/|               Dennis Hartley              |\/\/\/\/\/\/\/\|
|  Telephone:   | Languages Centre, University of Liverpool |     Fax:      |
| 051 794 2756  |      P.O. Box 147, Liverpool L69 3BX      | 051-794-2748  |
|\/\/\/\/\/\/\/\|          dennis1@.liverpool.ac.uk         |/\/\/\/\/\/\/\/|
+---------------------------------------------------------------------------+