var NewDoc: Variant; V: OleVariant; begin V := CreateOleObject('Word.Application'); NewDoc :=V.Documents.Open(FileNameTemp); end;
delphi里有控件可以连接office的。
1、 to GARNETT2183(極品狼王):你说的这个方法只能打开已存在的word文档,不能实现我说的功能。还有没有其他方法? 2、kongguangming(Fly) :我知道有接口,可就是不知道怎么写,麻烦你详细指点!!!
var tmpWord:variant; path:string; begin path:=ExtractFilePath(application.ExeName); tmpWord:=CreateOleObject('Word.Application'); tmpWord.Documents.Add; tmpword.visible:=true; tmpWord.Selection.InsertFile(path+'word1'); end;
NewDoc: Variant;
V: OleVariant;
begin
V := CreateOleObject('Word.Application');
NewDoc :=V.Documents.Open(FileNameTemp);
end;
2、kongguangming(Fly) :我知道有接口,可就是不知道怎么写,麻烦你详细指点!!!
tmpWord:variant;
path:string;
begin
path:=ExtractFilePath(application.ExeName);
tmpWord:=CreateOleObject('Word.Application');
tmpWord.Documents.Add;
tmpword.visible:=true;
tmpWord.Selection.InsertFile(path+'word1');
end;