讨论一下B/S结构下internet嵌入WORD问题

[yuanyu368]

B/S结构下internet嵌入WORD、对WORD进行各种操作，大家帮忙想想，我应该从哪方面着手。或哪有这方面的例子，谢了，

[cbdiy]

activeform + ole可以吧。

[klbt]

用ole

[yuanyu368]

晕，怎么没人啊，大家谈谈意件啊，UP有分

[Tal]

ActiveForm

procedure TActiveFormX.ActiveFormCreate(Sender: TObject);
begin
OleWord := GetOrCreateObject('Word.Basic');
end;

procedure TActiveFormX.closeword;
begin
try
OleWord.FileExit;
except
end;
end;

procedure TActiveFormX.openword(const filename: WideString);
begin
if (length(filename)>0) then
begin
try
OleWord.FileOpen(filename);
OleWord.AppShow;
except
end;
end;
end;

procedure TActiveFormX.EditBookmark(const name, content: WideString);
var
s:String;
begin
try
OleWord.EditBookmark(name,0,0,0,1);
if(content='') then
OleWord.Insert(' ');
if(content='null') then
OleWord.Insert(' ');
OleWord.Insert(content);
except
end;
end;


procedure TActiveFormX.saveword;
begin
try
OleWord.FileSave;
except
end;
end;

[Tal]

两种技术在OA中的应用
大富翁论坛版权所有
KeyLife富翁笔记
(此作品参加“Borland ALM 产品开发者竞赛参赛”