testoleparams.out

来自「格式化源码的最新板」· OUT 代码 · 共 30 行

unit testoleparams;

interface

implementation

uses comobj;

procedure wordup;
var
  msword: variant;
begin
  msword := createoleobject('Word.Basic');
  msword.appshow;
  msword.filenew;
  msword.insert('Foo');
  msword.lineup(2, 1);
  msword.texttotable(convertfrom := 2, numcolumns := 3);
end;

procedure w_app;
var
  wordapp: variant;
begin
  wordapp := createoleobject('Word.Application');
  wordapp.documents.Open('foo', , , , 'bar');
end;

end.