delphi编程实现在Word插入字符

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

procedure TFormButtonClick(Sender: Tobject);

var MSWord: Variant;

begin

MSWord := CreateOLEObject(WordApplication);//连接Word

MSWordDocumentsOpen(FileName:=d:\testdoc ReadOnly:=True);//打开外部Word文档

MSWordVisible := ;//是否显示文件编辑

MSWordActiveDocumentRange(Start:= End:=);//开始改变的启止位置

MSWordActiveDocumentRangeInsertAfter(Text:=Title);//在Word中增加字符Title

MSWordActiveDocumentRangeInsertParagraphAfter;

MSWordActiveDocumentRangeFontName := Arial;//字体名称

MSWordActiveDocumentRangeFontSize := ;//字体大小

end;