我一般用OLE方式处理office系列的数据。
一、定义
WordApp: variant;
CurrDoc: variant;
Selection: variant;
二、初始化
WordApp.Visible := true;
CurrDoc := WordApp.documents.Open(AFullFileName, Revert := true, Visible := true);
Selection := CurrDoc.ActiveWindow.Selection;//好处在于不用怕打开关闭其它word文档而出错
三、释放处理
if not VarIsEmpty(CurrDoc) then
begin
try
CurrDoc.save;
CurrDoc.close;
except
end;
end;
CurrDoc := Unassigned;
if not VarIsEmpty(WordApp) then
begin
try
WordApp.quit;
except
end;
end;
WordApp := Unassigned;
Selection := Unassigned;
以上是基本处理。
五、VBA到delphi的处理方法
首先请先下载我的另一博文的Office Vba手册,方便参考。
下面仅举几个例子如何从vba代码中转为delphi代码。
这一部分为VBA代码
//Debug.Print Selection.Information(wdEndOfRangeColumnNumber) ‘17结束列
//Debug.Print Selection.Information(wdEndOfRangeRowNumber) ‘14结束行
//Debug.Print Selection.Information(wdStartOfRangeColumnNumber) ‘16开始列
//Debug.Print Selection.Information(wdStartOfRangeRowNumber) ‘13开始行
Delphi代码:
bCol := Selection.Information[16];//其中Selection是有定义的,看前面才可以有和VBa类似
eCol := Selection.Information[17];//information这是selection的属性。VBA中是用()但是在delphi是用[]
bRow := Selection.Information[13];//调用属性有参数时delphi是[],VBA是()函数或事件都是()
eRow := Selection.Information[14];
VBA转成delphi很多部分可以抄,但是有细微的差别。这个要注意。
六、我的应用中要读取当前光标的是在表格那个位置,但是word的表格数据读取,很麻烦。
我用了这个来处理
Selection.paragraphs.item(1).range.text := ‘‘;