Discussion :

[sofianoo]

est ce que c'est possible d'ouvrir un document word avec delphi,je m'explique: je suis entrain de faire une application sur l'offre des prix (j'ai déja posté la problématique"aide sur une application") et comme à mon avi c'est trés compliqué à réalisé et j'ai peu de temps pour le faire, je me suis dis pourquoi pas le faire avec le word et l'utilisation de l'application ça sera juste pour la consulation des documents.
merci

[qi130]

http://delphi.developpez.com/faq/?page=worddelphi

[sofianoo]

j'ai pas trouvé

[Pedro]

j'ai pas trouvé

Merci de faire un minimum de recherche.

http://delphi.developpez.com/faq/?pa...#worddocouvrir

[sofianoo]

je suis au boulot et j'avais pas le temps, vous comprenez.
je vous remercie

[sofianoo]

mais svp est ce que ya pas un moyen simple pour ouvrir un doc word? c.a.d que le document existe déjas sous word.

[qi130]

mais svp est ce que ya pas un moyen simple pour ouvrir un doc word? c.a.d que le document existe déjas sous word.

Simple, simple

Ha, mais si :
Depuis l'explorateur de fichiers, un double-clic sur le doc et hop, il s'ouvre avec Word.
On peut aussi lancer Word avec un ShellExecute sous Delphi, avec le doc en paramètre; mais c'est beaucoup plus compliqué...

[sofianoo]

est ce que c'est possible de donner un numéro à un doc word, et par le biais d'une application delphi qd je veux consulter le doc je saisi juste son numéro(comme clé). merci

[Pedro]

Ca dépend de ce que tu veux faire, de comment tu veux le faire. Telle qu'est écrite ta question il y a 10 façons d'y répondre...
Bref, soit un peu plus précis s'il te plait.
Un peu de recherche n'a jamais fait de mal non plus.

[Gilbert Geyer]

Bonjour,

En supposant que l'objectif n'est pas seulement d'ouvrir Word depuis un .exe Delphi mais également de piloter un certain nombre d'actions (ex : y ouvrir un document ou en générer un avec du texte même à indices ou exposants, y créer un tableau, y insérer une image ou un lien hypertexte, etc ... ) vous pouvez récupérer le fichier PiloterWord.zip de :

Auteur : Firejocker (Jean-Baptiste Demonte)
Site : http://www.firejocker.com (en cours de dev a ce jour)
Mirroir : http://www.phidels.com

Je l'ai testé il fonctionne.

Comme c'est la première fois que j'apporte une réponse et que je découvre qu'on peut ajouter des pièces-jointes je vais en faire l'essai. (en cas d'échec prière de le téléchrager depuis FireJocker ou Phidels.com)

EDIT du 11/01/2009 : Ce code fonctionnait à merveille sous Windows 98.

Ayant entre-temps migré vers Windows XP j'ai constaté qu'il ne fonctionnait plus, par contre en y remplaçant la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
// Cette procedure permet de creer une Instance de Word
   { procedure CreerInstanceDeWord(Var Instance : Variant; Visible : Boolean); //<-OK sous Windows 98 mais pas avec Windows XP
    begin
       try
          Instance := GetActiveOleObject('Word.Application');  <- Provoque message d'erreur sous Window XP
          (Envoie le msg "Le projet .. a provoqué une classe d'exception EOleSysError avec
                          le message 'Opération non disponible'. Processus stoppé...." )
 
       except
          Instance := CreateOleObject('Word.Application');
       end;
       Instance.Visible := True;
    end; }

... par celle-ci :

Code :

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

1
2
3
4
5
6
7
8
9
    procedure CreerInstanceDeWord(Var Instance : Variant; Visible : Boolean); // OK marche sous Windows XP
    begin
       try
          Instance := CreateOleObject('Word.Application'); 
       except
          ShowMessage('Exception');
       end;
       Instance.Visible := True;
    end;

le code fonctionne donc aussi bien sous Wondows XP que sous Wondows 98.
Donc pour XP faudra introduire le remplacement ci-dessus dans le code inclu dans le Zip ci-joint qui contient la version pour Windows 98.

A+

[firejocker]

Il n'est pas directement accessible depuis mon site, vous le trouverez ici : Unit pour piloter Word par OLE sur phidels.com

jb.