我以前写过这种东东,送给你吧:
下面的例子是用D5的Server组件:
var Template, TempFalse, ItemIndex, Filename,
FileFormat, Filename2,
SaveChanges, OriginalFormat, RouteDocument: OleVariant;
begin
Template := EmptyParam;
TempFalse := false;
ItemIndex := 1;
......
try
Wordapplication.Connect;
except
ShowMessage('无法启动Word。请检查是否已安装。');
Abort;
end;
Wordapplication.Visible := true;
WordApplication.Caption := Application.Title;
{Open a do
cument}
WordApplication.Documents.Open(Filename,Template,TempFalse,TempFalse,Template,
Template,Template,Template,Template,Template);
{Assign WordDocument component}
WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
// ****************** Save As ***********************
// *** 我是在做保存的工作,你可以打开后想做什么都可以 ***
try
WordDocument.SaveAs(Filename2, FileFormat);
except
ShowMessage('无法保存文档。请检查WORD是否被关闭。');
end;
// ****************** Close do
cument ***********************
SaveChanges := WdDoNotSaveChanges;
OriginalFormat := UnAssigned;
RouteDocument := UnAssigned;
try
WordApplication.Quit(SaveChanges, OriginalFormat, RouteDocument);
WordApplication.Disconnect;
except
ShowMessage('无法关闭文档。请检查WORD是否异常。');
end;
上面的例子一定要安装了OFFICE才可以。如果没有安装而打开WORD文档,
可以用控件,如F1BOOK这些东西。F1BOOK是用于EXCEL的,WORD得用其它控件。
如果你要F1BOOK我有汉化好的,可以奉送。
如果象你所说在服务器上有WORD,客户机没有WORD,而要浏览文档,
可以把WORD转换成其它格式,如HTML格式。就用我上面的例子,再加工一下,
可以用程序控制它自动转换,或一批一批地转换,客户端就都能看了。
WORD的转换功能很强,特别是office2000,可以照原样保存,绝不失真。
缺点是HTML文档只能浏览不能修改。