COMオートメーションを使用せずにWord文書を使用するにはどうすればよいですか？

Question

私はこの問題に関する複数の投稿を読んでおり、まったく私の質問にまともな結論は出ていないようです。 （おそらく、最近何かが現れたかどうかを確認しようとしています）

私は約束を処理する小さなチャリティアプリを持っています。そうするには、文書を扱い、印刷する必要があります。

Wordがバックグラウンドで開いていると、アプリケーションスレッドがハングしてWordの終了に応答せず、手動でロールバックして単語を閉じる必要があります。もちろん、すべて正常に動作しますが、ユーザーマニュアルに指示を入れても、エンドユーザーがWordを閉じることは保証できません。

私はスピードについてあまり心配していませんが、それが強化できれば、ちょっとしたボーナスになると思います。

ドキュメントのオープン、編集、印刷、保存を可能にするライブラリがDelphi用にリリースされましたか？そうでない場合は、開いたときにWordの別の開いているハンドルと競合しないようにWord Automationを使用する方法がありますか？

Answer 1

GetActiveOleObjectを使用すると、Wordの実行インスタンスが取得されます。 CreateOleObjectを使用すると、新しいインスタンスが作成され、実行中の他のインスタンスによって問題が発生することはありません。

TWordApplicationラッパーを使用する場合は、ConnectKindをckNewInstanceに設定してください。デフォルトでは、TWordApplicationは実行中のインスタンスに接続しようとします。

Answer 2

Word文書の編集と印刷を開いて、RTF形式を使用していても構わない場合は、TRichViewを調べてください。

MS Wordでサポートされている形式の1つであるRTF形式の豊富なドキュメントを生成します。私はそれが直接.DOCファイルを読むとは思わないが、ほとんどの単純なファイルでは.DOCと.DOCXをRTFに変換できますが、特定の高度なフォーマット機能は変換で失われます。

文書処理を行うマシンにMS Wordをインストールする必要はありません。レシートやその他の簡単な書類を作成するには、これは最も信頼できる方法です。 Wordを直接使用しないでください。

Answer 3

procedure PrintViaWord (const filename: string); 
const 
wdUserTemplatesPath = 2; 

var 
    wrdApp, wrdDoc, wrdSel: variant; 

begin 
wrdApp:= CreateOleObject ('Word.Application'); // create new instance 
sleep (5000); // this fixes a bug in Word 2010 to do with opening templates 
wrdDoc:= wrdApp.documents.add (
      wrdApp.Options.DefaultFilePath[wdUserTemplatesPath] + '\mytemplate.dot'); 

wrdDoc.Select; 
wrdSel:= wrdApp.selection; 
wrdApp.Options.CheckSpellingAsYouType:= 0; 
wrdSel.paragraphformat.alignment:= 1; 
wrdSel.typetext ('This is a program demonstrating how to open Word in the background' 
        + ' and add some text, print it, save it and exit Word'); 
wrdDoc.SaveAs (filename + '.doc'); 
wrdApp.ActivePrinter:= 'Konica Minolta 211'; 
wrdApp.PrintOut; 
WrdDoc.SaveAs (filename + '.doc'); 
wrdApp.quit; 

wrdSel:= unassigned; 
wrdDoc:= unassigned; 
wrdApp:= unassigned 
end;