请教delphi操作word输出字符的问题!!!!!!!!!!!!!!!!!!!!!!????????????????????
请教delphi操作word输出字符的问题!!!!!!!!!!!!!!!!!!!!!!????????????????????
wordapp:= CreateOleObject('word.Application');
在上面代码中创建Variant对像后怎样输出文字??
例如我想输出下面的文字:
关于核销XXXXXXXX公司 (格式为居中,字体为宋体,size为19,加粗)
(换行)
(换行)
(空格两个字符)根据交银办........(格式为两端对齐,字体为宋体,size为14)
销工作的通知》的规定，现.........
翔实业发展公司呆坏帐贷款.........
.................
...............
..................
请给各位高手给出详细的代码,感激万分!!!!!!!!!!!!!!!!!!!!!!!!!!!!
问题点数：20、回复次数：4Top
1 楼DelphiBird（爱你等于爱自己）回复于 2003-09-04 12:02:34 得分 0
用VBA吧
然后在Delphi中调用Top
2 楼zhangyu1108（张昱）回复于 2003-09-04 12:15:50 得分 0
不知这段代码有用吗？
str: string;
myWord: olevariant;
begin
str := '字符';
MyWord := wordapp;
MyWord.insert(str);
end;Top
3 楼bxh2dai（希望明天会有些改变）回复于 2003-09-06 20:25:14 得分 20
兄弟，怎么还没解决了，我不是都给你代码了吗？
呵呵Top
4 楼go_my_sky（凡石）回复于 2003-09-06 22:28:23 得分 0
向Word表格插入数据并打印预览.
要分别声明variant对象.
var
word,Doc,FormField:variant;
begin
word:=createoleobject('word.application');
word.visible:=true;
Doc :=word.documents.open('c:\dd.doc');
FormField := Doc.tables.Item(1);
FormField.cell(1,1).range.text:='dddddd';//插入数据
FormField.Cell(1,2).Range.InsertAfter('qq');//打印
doc.PrintPreview;//打印预览.
end;Top
