Discussion :

[vincent DD]

Bonjour,

je n'arrive pas à créer de documents word à partir de Delphi 10.2, ça plante à Documents.add :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  WordApp: Variant;
 
...
 
WordApp:=CreateOleObject('Word.Application'); //OK !
      try
        try
 
          if (AtalUtil.CheminModeles <> '') then
            WordApp.Options.DefaultFilePath(wdWorkgroupTemplatesPath) := AtalUtil.CheminModeles;
 
          WordApp.Documents.Add(NomModele,False,wdNewBlankDocument,True);

[ShaiLeTroll]

"ça plante", l'exception, le code d'erreur cela aurait été utile

As-tu essayé avec ou sans modèle ?

[vincent DD]

Bonjour,

J'ai essayé avec un modèle, en fait ça ne plante mais il ne se passe rien... Pas de message d'erreur, Word ne se lance pas.

[ShaiLeTroll]

Essaye ceci

Code :

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

1
2
3
4
 WordApp:=CreateOleObject('Word.Application'); //OK !
 try
      WordApp.UserControl := False;
      WordApp.Visible := True;