Comment ouvrir un document Word ?
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
1 pièce(s) jointe(s)
Réponse à la question "Comment ouvrir word"
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:
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:
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+ :D
