paxScript Demo. COM support.


paxBasic

Dim WordApp = new ActiveXObject("Word.Application")
WordApp.Visible = true
print WordApp.Visible
WordApp.Documents.Add
Dim Range = WordApp.Documents.Item(1).Range
Range.Text = "This is a column from a spreadsheet: "
for I = 0 to 3
  WordApp.Documents.Item(1).Paragraphs.Add
Next
Range = WordApp.Documents.Item(1).Range(WordApp.Documents.Item(1).Paragraphs.Item(3).Range.Start)
Range.Paste()

paxC

var WordApp = new ActiveXObject("Word.Application");
WordApp.Visible = true;
print WordApp.Visible;
WordApp.Documents.Add();
var Range = WordApp.Documents.Item(1).Range;
Range.Text = "This is a column from a spreadsheet: ";
for (var I = 0; I < 3; I++)
  WordApp.Documents.Item(1).Paragraphs.Add();
Range = WordApp.Documents.Item(1).Range(WordApp.Documents.Item(1).Paragraphs.Item(3).Range.Start);
Range.Paste();

paxPascal

var
  WordApp, Range;

WordApp := ActiveXObject.Create('Word.Application');
WordApp.Visible := true;
print WordApp.Visible;
WordApp.Documents.Add;
Range := WordApp.Documents.Item[1].Range;
print Range;
Range.Text := 'This is a column from a spreadsheet: ';
for I := 0 to 3 do
  WordApp.Documents.Item[1].Paragraphs.Add();
Range := WordApp.Documents.Item[1].Range[WordApp.Documents.Item[1].Paragraphs.Item[3].Range.Start];
Range.Paste;


Copyright © 1999-2006 VIRT Laboratory. All rights reserved.