Discussion :

[Delphi-ne]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ShaiLeTroll]

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

Genre DisplayAlerts, Visible ou UserControl

Voir aussi ActiveWindow et Windows

[Pascal Jankowski]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[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