delphi實現在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;