Word = .OLEObject~New("Word.Application")

Word~Visible = .TRUE

Document = Word~Documents~Add

/*get the selection object*/
Selection = Word~Selection

/*type two lines of text and new paragraph*/
Selection~TypeText("Hello everyone! Your participants will be saved in this document.")
Selection~TypeParagraph
/*
Say "This will be a list of participants at your conference. How many guest will come?"
Pull numberofparticipants
*/


LOOP forever
	SAY "Type the name of the Participant: "
	SAY "If you wanna leave, type 'exit' . "
	PARSE PULL name 

	IF name = "exit" THEN leave
	ELSE
	DO 
	Selection~TypeText(name)
	Selection~TypeParagraph

SAY "The name is saved!"
SAY

END
END


SAY "Type in the name of the file. "
PARSE PULL namevomfile


/*get the environment variable TEMP and create filename to save*/
TempDir =  VALUE( "TEMP",,ENVIRONMENT)
FileName = TempDir || "\" || namevomfile

Document~SaveAs(FileName)
Word~Quit

SAY "Created" FileName". Press enter to continue"
PULL

SAY It is Done!!!