在Delphi中使用CreateOleObject方法對WORD文件進行操作

　使用CreateOleObject方法對WORD文檔操作具有先天所具備的優勢與delphi所提供的那些控件方式的訪問相比CreateOleObject方法距離WORD核心的操作更近因為它直接使用OFFICE所提供的VBA語言對WORD文檔的操作進行編程

　　以下是我在本機上所做的實驗機器軟件配置如下

Windows XP+delphi+OFFICE

　　這個程序很簡單在頁面上放置了一個edit和一個button每單擊一次按鈕就會自動把edit中的內容添加在後台中的word文檔中程序關閉時文件自動保存在當前程序的主目錄中

unit main;

interface

//如果要使用CreateOleObject的辦法對WORD文檔進行操作應該在uses
//語句中加入Comobj聲明和WordXP聲明
uses
Windows Messages SysUtils Variants Classes Graphics Controls Forms
Comobj WordXP Dialogs StdCtrls;

type
TForm = class(TForm)
Button: TButton;
Edit: TEdit;
procedure ButtonClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
// procedure ButtonClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form: TForm;
//把這兩個變量聲明為全局變量
FWord: Variant;
FDoc: Variant;

implementation

{$R *dfm}

procedure TFormButtonClick(Sender: TObject);
begin
FWordSelectionTypeParagraph;
FWordSelectionTypeText(Text := formEditText);
end;

procedure TFormFormCreate(Sender: TObject);
begin
//首先創建對象如果出現異常就作出提示
try
FWord := CreateOleObject(WordApplication);
//WORD程序的執行是否可見值為False時程序在後台執行
FWordVisible := False;
except
ShowMessage(創建word對象失敗！);
Exit;
end;

//先在打開的Word中創建一個新的頁面然後在其中鍵入Hello+回車＋World！
try
FDoc := FWordDocumentsAdd;
FWordSelectionTypeText(Text := Hello);
FWordSelectionTypeParagraph;
FWordSelectionTypeText(Text := World! );

except
on e: Exception do
ShowMessage(eMessage);
end;
end;

//在程序關閉時把文件內容保存到當前目錄中並以testdoc命名
//同時關閉WORD程序
procedure TFormFormClose(Sender: TObject; var Action: TCloseAction);
begin
FDocSaveAs(ExtractFilePath(applicationExeName) +testdoc);
FWordQuit;
FWord := Unassigned;
end;

end

　　此外對OFFICE其他文件的操作都比較類似不在贅述通過對WORD文件中更復雜的VBA宏的引用這個方法還可以完成更復雜的文檔操作

From:http://tw.wingwit.com/Article/program/Delphi/201311/24730.html