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;

From:http://tw.wingwit.com/Article/program/Delphi/201311/24770.html