4

これは主に、Delphi 構文に関連する質問です。OLE オブジェクトのメソッドを呼び出すときに、パラメーターを True に設定する必要があります。

Word Automation で設定する必要があります (これはWord Referenceからのものです)。

wdApp.Quit SaveChanges:=wdDoNotSaveChanges

例として、これを実行したいダミーの手順を次に示します (WordApp.Quit に注意してください)。

Procedure GetWordVersion;
    var
      WordApp: OLEVariant;
    begin
      { Create the OLE Object }
      Try
          WordApp := CreateOLEObject('Word.Application');
          WordVersion := WordApp.version;
           WordApp.Quit; // >-- HERE!!!!
      except
        on E: Exception do
        begin
          WordVersion := -1;
        end;
      End;
end;

ここで（受け入れられた回答を確認してください）同じことが行われているようですが、試してみるとコンパイルされません。関連する部分のみをここにコピーします。

Const wdDoNotSaveChanges = 0
[...]

  wdo.Quit wdDoNotSaveChanges 

[...]

End Function

重要: を使用する代わりに

// this is from Word Reference    
wdApp.Quit SaveChanges:=wdDoNotSaveChanges

使用することが可能です

// from Word Reference
wdApp.NormalTemplate.Saved = True

上記の 2 つのアプローチのいずれかが使用されるように、上記の GetWordVersion 手順を変更してください。ありがとう。

4

1 に答える 1

8

あなたは書ける：

Wordapp.Quit(SaveChanges:=wdDoNotSaveChanges);

またはこれを使用します：

word := CreateOleObject('Word.Application'); 

.... 
word.DisplayAlerts := false;
word.Quit;
于 2012-05-24T07:56:06.683 に答える