Fermer une fenêtre Word via OLE

Version imprimable

Je dois convertir des fichiers .doc en .pdf
J'ai donc le code suivant :
Code:

1 2 3 4 5 if FileExists(LC_NomPDF) then DeleteFile(LC_NomPDF); LO_Doc := LO_Word.Documents.Open(LC_NomDOC); Application.ProcessMessages; LO_Doc.ExportAsFixedFormat(LC_NomPDF, wdExportFormatPDF);
Il fonctionne parfaitement
Par contre certains fichiers Word lorsqu'il s'ouvrent provoque,t l'ouverture d'une fenêtre avec un message d'information.
Je voudrais fermer cette fenêtre par programme

L'idéal aurait été d'éviter l'ouverture.
Donc il faut que j'identifie la fenêtre qui vient de s'ouvrir
J'utilise EnumWindowsCallback mais je ne vois pas comment identifier à coup sûr la bonne fenêtre et comment la fermer ensuite.

Merci de vos conseils

10/07/2013, 11h24
ShaiLeTroll

Il n'y aurait pas un mode silencieux pour Word OLE ?

Genre DisplayAlerts, Visible ou UserControl

Voir aussi ActiveWindow et Windows

La joie de des méthodes avec très peu de paramètres. Il faut bien utiliser le Open mais celle qui dispose de nombreux paramètres en entrée.

Directement extrait de l'un de mes codes:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Doc := WordApplication.Documents.Open(
        FileName,
        ConfirmConversions,
        ReadOnly,
        AddToRecentFiles,
        PasswordDocument,
        PasswordTemplate,
        Revert,
        WritePasswordDocument,
        WritePasswordTemplate,
        Format,
        Encoding,
        Visible,
        OpenAndRepair,
        DocumentDirection,
        NoEncodingDialog);

Initialisé de la façon suivante dans mon cas.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
      FileName := AFileName;
      ConfirmConversions := False;
      ReadOnly := False;
      AddToRecentFiles := False;
      PasswordDocument := '';
      PasswordTemplate := '';
      Revert := False;
      WritePasswordDocument := '';
      WritePasswordTemplate := '';
      Format := 0;
      Encoding := False;
      Visible := True;
      OpenAndRepair := False;
      DocumentDirection := 0;
      NoEncodingDialog := True;

Teste ce code avec Visible à False, normalement cela devrait convenir.

10/07/2013, 14h21
Delphi-ne

Exact !
Je venais de le trouver un peu par hasard.
Là au moins je sais qu'il y a bien une explication

Merci beaucoup