delphi如何打開wps文件?(通過Import wps_tlb.pas單元)

[肥仔胧]

裝了金山Office, Import 了一個單元 wps_Tbl.pas
發現TDocument們有代開*.wps的方法
請問要如何用delphi代碼控制,打開一個wps文件呢?

[肥仔胧]

裝了金山Office, Import 了一個單元 wps_Tbl.pas
發現TDocument沒有打開*.wps的方法
請問要如何用delphi代碼控制,打開一個wps文件呢?

[lovelymelon]

没做过，那你就引用这个单元wps_Tbl.pas
然后调用里面的过程函数

[肥仔胧]

試了半天,就是不向word_tlb.pas裡面有open那樣直接用

[肥仔胧]

終於搞定了

[肥仔胧]

procedure TForm1.Button2Click(Sender: TObject);
var
wpsapp: _Application;
begin
if not OpenDialog1.Execute then Exit;
wpsapp := CreateCOMObject(CLASS_Application) as Application;
wpsapp.Visible := True;
wpsapp.Documents.Open(OpenDialog1.FileName, False,
True, true, '', '', False, '', '', 0, 0, True, True, 0, False);
//wpsapp.Quit();
end;

[lovelymelon]

恭喜，把这段代码保留了，万一哪天也要操作wps，也好借用一下。

[lovelymelon]

恭喜，把这段代码保留了，万一哪天也需要操作wps，也可以借用一下。