怎么样才能使数据库或者是MEMO中的数据转成WORD格式输出？(30分)

同上<br>

var<br>VarWord: Variant;// 创建 WORD时所用<br>begin<br>try<br>// 1. 建立 OleObject，连接 word97<br>VarWord:=CreateOleObject('word.basic');<br>// 2. 建立 Word97的新文件<br>VarWord.FileNew;<br>// 3. 设置 Word97的基本状态<br>VarWord.ViewZoom75; //设置显示比例为 75%<br>VarWord.ViewPage; //改为页面显示方式<br>// 4. 将当前数据控件上的信息发送至 Word97<br>// 4.1 发送文号数据<br>VarWord.CenterPara; //居中<br>Varword.font('宋体 '); //设置字体<br>VarWord.FontSize(14); //设置字号<br>varword.insert(#13+#13+ Edit1.Text+#13+#13+#13);<br>// 4.2 发送标题数据<br>VarWord.font('黑体 ');<br>VarWord.Fontsize(16);<br>VarWord.insert( Edit1.text+#13);<br>// 4.3 发送收文单位数据<br>VarWord.LeftPara; //左对齐<br>VarWord.Font('宋体 ');<br>VarWord.fontSize(14);<br>VarWord.Insert(#13+ Edit1.Text+'： '+#13);<br>// 4.5 发送正文数据<br>VarWord.fontSize(14);<br>VarWord.Insert( Edit1.Text+#13);<br>// 4.6 发送发文单位数据<br>VarWord.RightPara; //右对齐<br>VarWord.fontSize(14);<br>VarWord.Insert( Edit1.Text+#13);<br>// 5 最后设置<br>VarWord.StartOfdocument; //到文首<br>VarWord.AppMaxiMize; //设置窗口最大化<br>VarWord.AppShow; //显示应用程序<br>except<br>showmessage('运行 Microsoft Word 失败！ ');<br>end; //end of try<br>end;<br>//end：数据发送到 word事件 <br><br>