Script example

The following example uses objects from the Microsoft Word Object Library to create a table in a new document, RESM.DOC. The script adds a record displayed in the Buyers window of the Real Estate Sales Manager application to a row in the table.

local Word.Application app;
local Word.Document document;
local Word.Table wordTable;
local Word.Range wordRange;

{If Word is running, use it. Otherwise, create a new instance.}
app = COM_GetObject("Word.Application");
if(app = null) then
	app = new Word.Application();
end if;

{Make Word visible.}
app.Visible = true;

{Create a new document.}
document = app.Documents.Add();

{Add a table with two rows and four columns to the document.}
wordRange = document.Range(0,0);
wordTable = document.Tables.Add(wordRange, 2, 4);

{Set the values of the cells in the first row in the table.}
wordRange = wordTable.Cell(1,1).Range;
wordRange.InsertAfter("Buyer ID");
wordRange = wordTable.Cell(1,2).Range;
wordRange.InsertAfter("Buyer First Name");
wordRange = wordTable.Cell(1,3).Range;
wordRange.InsertAfter("Buyer Last Name");
wordRange = wordTable.Cell(1,4).Range;
wordRange.InsertAfter("Phone");

{If record is not displayed, warn user. Otherwise, add the record.}
if 'Buyer ID' = "" then
	warning "Please display a record in the Buyers window.";
else
	wordRange = wordTable.Cell(2,1).Range;
	wordRange.InsertAfter('Buyer ID');
	wordRange = wordTable.Cell(2,2).Range;
	wordRange.InsertAfter('Buyer First Name');
	wordRange = wordTable.Cell(2,3).Range;
	wordRange.InsertAfter('Buyer Last Name');
	wordRange = wordTable.Cell(2,4).Range;
	wordRange.InsertAfter(Phone);
end if;

{Close the document and prompt the user for a document name.}
document.Close(Word.wdPromptToSaveChanges);

{Close the application.}
app.Quit();

{Clear the variables.}
clear wordRange;
clear wordTable;
clear document;
clear app;

 


Documentation Feedback