关于word中OleVariant的赋值问题

[genispan]

定义如下：
VAR2,VAR3,VAR4: OleVariant;
如果设
VAR2:=emptyparam;
VAR3:='test';
则 WordDoc.Application.Selection.Find.Execute(VAR3,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2,VAR2)
可以找到指定的字符串。

但设置 VAR3:=Query1.Fields.Fields[0].AsString后，却无法找到对应的字符串，Query1.Fields.Fields[0].AsString的内容也为‘test’。
有人知道原因吗？ 谢谢牛人指点！！！

[jishubenchi]

VAR3:=Query1.Fields.Fields[0].Value可以的

[starluck]

VAR3:=Query1.Fields.Fields[0].Value;

你要確定 VAR3:=Query1.Fields.Fields[0] 有值。

[bdmh]

用TWordApplication

wordApp.Selection.Find.Text := Query1.Fields.Fields[0].AsString;
wordApp.Selection.Find.Execute(EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam)

上面是我在网上找到的,说是可以解决