delphi实现在Word插入字符

delphi实现在Word插入字符2008-02-02现在的文档很多都是用Word软件来编辑的，但如果你想在程序中把某些字符插入到Word文档中，那么下面的程序帮你忙：

procedure TForm1.Button1Click（Sender: Tobject）;
var MSWord: Variant;
begin
MSWord := CreateOLEObject（Word.Application）;//连接Word
MSWord.Documents.Open（FileName:=d:	est.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;