How to turn off Word warning messages?

[loaded]

Hi All,
When I close Excel after creating a new document and adding content in Excel, the process results as I want without any warning.
But when I create a document in Word, add content and then close the document, the "Save Changes" dialog box appears.
It turns out that the ...DisplayAlerts statement works in Excel, but has no effect on Word!!!
What else can be done about the subject?

Sample code snippet;

Code: Pascal  [Select][+][-]

1. procedure TForm1.Button1Click(Sender: TObject);
2. var
3.   Excel:olevariant; //add uses comobj
4. begin
5.   Excel:=CreateOleObject('Excel.Application');
6.   Excel.Visible:=True;
7.   Excel.displayalerts:=false;  // effective
8.   Excel.Workbooks.Add;
9.   Excel.ActiveSheet.Cells[1,1]:='Dede';
10. end;
11.  
12. procedure TForm1.Button2Click(Sender: TObject);
13. var
14.   Word,Prg:olevariant; //add uses comobj
15. begin
16.   Word := CreateOleObject('Word.Application');
17.   Word.Visible := True;
18.   Word.DisplayAlerts := false;  //ineffective
19.   Word.Documents.Add;
20.   Prg := Word.ActiveDocument.Content.Paragraphs.Add;
21.   Prg.Range.Text := 'Dede';
22. end;  

[noszone]

Check this out first:
https://stackoverflow.com/questions/47866522/saving-a-word-document-and-setting-displayalerts-to-disable-prompt-to-save
Pay attention to last message in thread.

Then this:
https://forum.lazarus.freepascal.org/index.php/topic,56550.msg420751.html#msg420751
The idea of this to disable review mode, if enabled.

Hope it helps somehow.

[loaded]

Thank you very much for the quick reply noszone, I checked the links, unfortunately there is no solution for now.

Code: Pascal  [Select][+][-]

1. Private Sub CommandButton1_Click()
2. Dim oWord As Word.Application
3. Set oWord = New Word.Application
4. oWord.Documents.Add
5. oWord.Options.WarnBeforeSavingPrintingSendingMarkup = False
6. oWord.Visible = True
7. If oWord.Options.WarnBeforeSavingPrintingSendingMarkup Then MsgBox "Aktif" Else MsgBox "Pasif"
8. End Sub

Even the code I run with vba from within word cannot turn off the warnings. 

[noszone]

Are you sure that used the:

Code: Pascal  [Select][+][-]

1. Word.ActiveDocument.Save;

[loaded]

For work, I create continuously variable word files, send to printer and that's it, I don't need to save to disk.
If I had to save it to disk there would be no problem.

However, when I use the

Code: Pascal  [Select][+][-]

1. oWord.ActiveDocument.Save

code, the save dialog box appears.

[Thaddy]

Yes. Tested. But that is a Microsoft issue and does not belong on THIS forum.
Ask Microsoft.

[Zvoni]

RTFM
https://docs.microsoft.com/en-us/office/vba/api/word.document.save

Remarks

If a document has not been saved before, the Save As dialog box prompts the user for a file name.

If you just want to close Word without saveing, use Quit
https://docs.microsoft.com/en-us/office/vba/api/word.application.quit(method)

[Thaddy]

How I read this is simply allow the save but do not show the dialog.

[ccrause]

The document.close method takes optional parameters, the first of which is called SaveChanges, which you can set to wdDoNotSaveChanges.

[Zvoni]

How I read this is simply allow the save but do not show the dialog.

Not quite.
The only way to escape the SaveAs-Dialog for an unsaved and untitled document is to check if it has been already saved once, and then to provide the filename in a (separate) SaveAs2-Call

[Zvoni]

The document.close method takes optional parameters, the first of which is called SaveChanges, which you can set to wdDoNotSaveChanges.

This doesn't close the Word-Application, just the document

[loaded]

Thaddy,Zvoni and ccrause thank you very much for the reply.
I had a similar problem with Lazarus and VB6 before. Naturally, when the problem occurred, I initially thought there was a problem with the component object model.
But when I went deeper, I saw that WORD was about itself.

Yes. Tested. But that is a Microsoft issue and does not belong on THIS forum. Ask Microsoft.

You're right Thaddy, the problem is windows, but if you don't mind, let's not delete the message, maybe it will make someone like me wake up early to such an error.