S
scorpion1105
Unregistered / Unconfirmed
GUEST, unregistred user!
我初学DELPHI，最近作了个ADO+ACCESS，加用word输出数据库数据。。。
小弟遇到了一些问题。。。走投无路。。。急求各位大虾相助。。。
问题如下：
1、我用的是WORD宏输出数据库数据。用的是WORDAPPLICATION控件，一直不知[red]wordapplication和worddocuments这两个控件有什么区别[/red]，除了前者多了个连接启动WORD功能外，其它对word的控制wordapplication也都能和worddocuments一样啊。。。
2、我用的word制作了输出表的操作，用wordapplication语句实现再DELPHI中控制生成。。初期没什么问题，可再插入文本框时，[red]函数出了问题：
[black][/black]wordapplication1.activedocuments.shaps.addtextbox(Orientation, Left, Top, Width, Height, [Anchor]);[/red]
Orientation是应该声明为TOLEENUM,可我不知道oleenum属于哪个类，不知道该 uses什么，所以就定义var Orientation
leVariant;可是我再查看帮助时Anchor说是可选参数。可是我省略它后就出错。提示“没有足够的实参”。。。由于Anchor：oleVariant;
所以就用默认值emptyparam.可运行就提示emptyparam数值超出界限。[
]
我的语句：wordapplication1.activedocuments.shaps.addtextbox(msoTextOrientationHorizontal, 23, 45, 22, 56, emptyparam);
3、由于用的是宏，生成的表，可当我把数据库的数据和图片插入表中时，设计好的表就变形得面目全非。。。心痛啊，，，生成表用的是固定表大小啊，不知道该怎么设置?
我下了个源码，是加载模板后，在插入，我运行后，加多长的字符表都不变行。。。怎么老天就对我。。。。。是表的哪个参数没设置吗？？？？
4、在VBA中wordapplication1.activedocuments.shaps.addtextbox(msoTextOrientationHorizontal, 23, 45, 22, 56＃, emptyparam);中的56＃是什么意思啊，在DELPHI中如何实现啊。。。
我只用了wordapplication控件。。。。
由于自己不会怎么总结，问题太长了，请各位高手见凉。。。。小弟实在是着急。。。。时间不够了。。。。先谢谢各位。。。。。
小弟遇到了一些问题。。。走投无路。。。急求各位大虾相助。。。
问题如下：
1、我用的是WORD宏输出数据库数据。用的是WORDAPPLICATION控件，一直不知[red]wordapplication和worddocuments这两个控件有什么区别[/red]，除了前者多了个连接启动WORD功能外，其它对word的控制wordapplication也都能和worddocuments一样啊。。。
2、我用的word制作了输出表的操作，用wordapplication语句实现再DELPHI中控制生成。。初期没什么问题，可再插入文本框时，[red]函数出了问题：
[black][/black]wordapplication1.activedocuments.shaps.addtextbox(Orientation, Left, Top, Width, Height, [Anchor]);[/red]
Orientation是应该声明为TOLEENUM,可我不知道oleenum属于哪个类，不知道该 uses什么，所以就定义var Orientation
leVariant;可是我再查看帮助时Anchor说是可选参数。可是我省略它后就出错。提示“没有足够的实参”。。。由于Anchor：oleVariant;所以就用默认值emptyparam.可运行就提示emptyparam数值超出界限。[
]我的语句：wordapplication1.activedocuments.shaps.addtextbox(msoTextOrientationHorizontal, 23, 45, 22, 56, emptyparam);
3、由于用的是宏，生成的表，可当我把数据库的数据和图片插入表中时，设计好的表就变形得面目全非。。。心痛啊，，，生成表用的是固定表大小啊，不知道该怎么设置?
我下了个源码，是加载模板后，在插入，我运行后，加多长的字符表都不变行。。。怎么老天就对我。。。。。是表的哪个参数没设置吗？？？？
4、在VBA中wordapplication1.activedocuments.shaps.addtextbox(msoTextOrientationHorizontal, 23, 45, 22, 56＃, emptyparam);中的56＃是什么意思啊，在DELPHI中如何实现啊。。。
我只用了wordapplication控件。。。。
由于自己不会怎么总结，问题太长了，请各位高手见凉。。。。小弟实在是着急。。。。时间不够了。。。。先谢谢各位。。。。。
