Discussion :

[ludo.guy]

Salut tout le monde.

Je voudrais savoir si quelqu'un saurait où trouver la liste de toutes les méthodes disponibles pour OLE.

En fait, je cherche à lancer automatiquement sur un document word la "mise à jour des champs" (en particulier j'ai un champ formule qui, une fois que j'ai placé la bonne valeur dans les signets qui servent d'opérandes doit être mis à jour).

J'espère avoir été clair.

Merci par avance.

[phig]

Salut,

Comment comptes-tu utiliser les méthodes OLE ?
Sinon, un lien qui pourra peut être servir :
http://lfe.developpez.com/Word/

Phig

[SheikYerbouti]

J'ai également cherché la liste des fonctions OLE reconnues par MSWord, et même Microsoft France n'a pu (voulu ?) me fournir cette information...

Réponse automatique : allez chercher sur le site Microsoft ou achetez un contrat de maintenance...

[ludo.guy]

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
17
18
19
20
21
22
23
24
25
 
PROCEDURE PR_REPLACE(MaSelection OLE2.OBJ_TYPE,TexteIn IN VARCHAR2,TexteOut IN VARCHAR2) IS
 
MonFind	OLE2.OBJ_TYPE;
Args	OLE2.LIST_TYPE;
booleen	NUMBER;
 
BEGIN
   MonFind := OLE2.GET_OBJ_PROPERTY(MaSelection,'Find');
   args:=OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, TexteIn); --- FindText
   OLE2.ADD_ARG(args, 1);       --- MatchCase
   OLE2.ADD_ARG(args, 1);       --- MatchWholeWord
   OLE2.ADD_ARG(args, 0);       --- MatchWildcards
   OLE2.ADD_ARG(args, 0);       --- MatchSoundsLike
   OLE2.ADD_ARG(args, 0);       --- MatchAllWordForms
   OLE2.ADD_ARG(args, 1);       --- Forward
   OLE2.ADD_ARG(args, 1);	--- wrap = 1 wdFindContinue
                                --- La recherche se poursuit si le début ou la fin de la sélection est atteint.
   OLE2.ADD_ARG(args, 0);       --- Format
   OLE2.ADD_ARG(args, TexteOut);--- ReplaceWith
   OLE2.ADD_ARG(args, 2);       --- Replace
   booleen := OLE2.INVOKE_NUM(MonFind, 'execute', args);
   OLE2.DESTROY_ARGLIST(args);
END;

Voici par exemple la procédure qui me permet de remplacer TextIn par TextOut dans mon document. Dans le même état d'esprit, après tous mes remplacements, je voudrai mettre à jour les champs calculés.

[ludo.guy]

J'ai trouvé une solution... un peu bidouille , mais bon :

1) Créer une macro dans le document de base (macro qui sélectionne tout le document et fait "Mise à jour des champs")

2) Exécuter la macro depuis l'application Forms via OLE2 :

Code :

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

1
2
3
4
5
6
7
8
9
declare
     Args   OLE2.LIST_TYPE;
begin
   -- Exécute la macro appelée TOTO
   args:=OLE2.CREATE_ARGLIST;
   OLE2.ADD_ARG(args, 'TOTO');
   OLE2.INVOKE(UneApplication,'Run',args);
   OLE2.DESTROY_ARGLIST(args);
end;

J'ai encore un problème en suspend, mais c'est spécifique WORD.

Je mets le tag résolu, mais je ne serais pas contre une solution plus propre, c'est à dire qui pourrait s'effectuer sans modifier le document WORD.

[orafrance]

j'ai pas bien compris le rapport avec Oracle

[SheikYerbouti]

Connaissez-vous le mot-clé OLE Word à mettre dans la fonction INVOKE ?

[ludo.guy]

j'ai pas bien compris le rapport avec Oracle

Désolé c'est de ma faute, je n'ai pour l'instant à proprement parler que fait du développement Forms et Report sous Oracle, alors j'ai tendance à trop facilement faire l'amalgame entre SGBD et outils de développement.

Connaissez-vous le mot-clé OLE Word à mettre dans la fonction INVOKE ?

Pas compris la question... Tu veux faire quoi exactement ?

[SheikYerbouti]

Et bien quelque chose du style :

Code :

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

ole2.INVOKE(MyDocument,'UpdateFields');

Bref, le mot clé OLE qui demande à Word de faire la mise à jour des champs.

[ludo.guy]

Ahhhh, j'ai compris

Ben non, je connais pas , et comme dit plus haut : j'arrive pas à mettre la main sur la liste des fonctions OLE qu'on peut invoquer.. affaire à suivre

[benicourt]

C'est la commande OLE : ActiveDocument.Fields.Update()
Plus d'infos sur : http://msdn.microsoft.com/en-us/libr...ffice.11).aspx