我想用DELPHI寫一個程式去取代WORD中某些文字. 那些SERVERS的OFFICE 元件要怎麼使用啊 高手們救救我吧

hsiang1218您好:   我用[控制WORD]當關鍵字幫您尋一些資料您參考看看   http://delphi.ktop.com.tw/topic.php?topic_id=22331 Delphi&Word第一章Word部分BY delphiwww http://delphi.ktop.com.tw/topic.php?topic_id=25166 用delphi控制word新增文字或尋找字串 BY cmf http://delphi.ktop.com.tw/topic.php?topic_id=28371 Delphi如何控制Word與Excel的自我學習方式 BY delphiwww 順心 <>～我也是在學習的階段,所以請您多多見諒與指教～

Hi hsiang1218兄試試這個: 將C:\test.Doc  word檔裡的<%NAME%>改成Miles 存成c:\test2.Doc

Uses Comobj;
var
   WordApp, WordDocu, myRange: variant;
begin
   WordApp := CreateOleObject('Word.Application');
   WordApp.Visible := True;
   WordDocu := WordApp.Documents.Open('c:\Test.Doc');
   myRange := WordDocu.Content;
   myRange.Find.Execute(FindText := '<%NAME%>', ReplaceWith := 'Miles', Replace := 2);
   WordDocu.SaveAs(FileName := 'c:\test2.Doc');
   WordApp.Quit;
end;

我不是高手, 高手是正在銀幕前微笑的人.

------


我不是高手, 高手是正在銀幕前微笑的人.