请教delphi操作word输出字符的问题!!!!!!!!!!!!!!!!!!!!!!????????????????????

Question

请教delphi操作word输出字符的问题!!!!!!!!!!!!!!!!!!!!!!????????????????????    wordapp:= CreateOleObject('word.Application'); 在上面代码中创建Variant对像后怎样输出文字??
例如我想输出下面的文字:
      关于核销XXXXXXXX公司  (格式为居中,字体为宋体,size为19,加粗)(换行)
(换行)(空格两个字符)根据交银办........(格式为两端对齐,字体为宋体,size为14) 
销工作的通知》的规定，现.........
翔实业发展公司呆坏帐贷款.........         .................
   ...............
  ..................         
      
请给各位高手给出详细的代码,感激万分!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

用VBA吧
然后在Delphi中调用

Answer 2

不知这段代码有用吗？
  str: string;
  myWord: olevariant;
begin
    str := '字符';
    MyWord := wordapp;
    MyWord.insert(str);
end;

Answer 3

向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;