[OLE] Lancer la mise à jour des champs automatiquement

Version imprimable

22/04/2004, 10h31
ludo.guy

[OLE] Lancer la mise à jour des champs automatiquement

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.
22/04/2004, 11h17
phig

Salut,

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

Phig
22/04/2004, 11h31
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...

Code:

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.

J'ai trouvé une solution... un peu bidouille :wink: , 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:

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.

22/04/2004, 15h39
orafrance

j'ai pas bien compris le rapport avec Oracle :roll:
22/04/2004, 15h57
SheikYerbouti

Connaissez-vous le mot-clé OLE Word à mettre dans la fonction INVOKE ?
22/04/2004, 16h16
ludo.guy

Citation:

Envoyé par orafrance

j'ai pas bien compris le rapport avec Oracle :roll:

:oops: 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.

Citation:

Envoyé par SheikYerbouti

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

Pas compris la question... :? Tu veux faire quoi exactement ?
22/04/2004, 17h11
SheikYerbouti

Et bien quelque chose du style :

Code:

ole2.INVOKE(MyDocument,'UpdateFields');

Bref, le mot clé OLE qui demande à Word de faire la mise à jour des champs.
22/04/2004, 18h03
ludo.guy

Ahhhh, j'ai compris :lol:

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

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