在Word插入字符
现在的文档很多都是用Word软件来编辑的，但如果你想在程序中把某些字符插入到Word文档中，那么下面的程序帮你忙：
procedure TForm1.Button1Click(Sender: Tobject);
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');
//连接Word
MSWord.Documents.Open(FileName:='d:/test.doc',
ReadOnly:=True);
//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);
//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');
//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';
//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;
//字体大小
end;
向word文档中粘贴内容
在DELPHI程序中向WORD文档增加内容的方法有几种，一种是直接增加所要的内容，前面已经介绍过了，另一种是将已经写好的内容粘贴到word文档中，下面的方法将创建一个新文档并粘贴内容：
var
v:variant;
begin
RichEdit1.SelectAll;
RichEdit1.CopyToClipboard;
v:=CreateOleObject('Word.Application');
v.documents.add;//创建一个新文档
v.documents.item(1).Sentences.Last.paste;
//将剪贴板中的内容粘贴到文档中
v.documents.item(1).SaveAs('c:/aa.doc');
//保存文档
v.quit;
end;
]
