[Word] Problème de copier/couper/coller suivant les versions

**SkYsO** · 06/12/2005, 15h34

Salut à tous,

Voilà mon problème,
j'ai un code qui est censé à partir d'un document word, copier un texte et le coller dans un autre doc.

Mais voilà le problème est que suivant les versions de Word, j'ai un beau plantage ou non. Cela peut très bien marcher aussi

les bouts de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
// sémectionne tout le contenu
    WordApplication1.Selection.WholeStory;
    // Copie le contenu dans le presse papier
    WordApplication1.Selection.Copy;
    // Ferme sans Sauver le fichier temporaire
    WordApplication1.ActiveDocument.close(wdDoNotSaveChanges);
 
//et la coller qui pose problème
 
WordApplication1.Selection.Paste(0,0,0);

J'ai le message suivant : Nombre de paramètres non valide.
la version de word : 2000 sous sp3

Donc selon vous :

Il y a une autre instruction que peut marcher dans toutes les versions de word ?

merci

**portu** · 06/12/2005, 18h34

Je n'ai jamais aussi très bien compris l'utilisation de OLE Automation avec Office. Chaque version d'Office modifie le nombre de paramètres dans ses procédure - fonctions. Et à ma connaissance, faut faire avec (Réadapter le code pour chaque version)

**Laurent Dardenne** · 06/12/2005, 18h57

Peut-être une autre approche, texte issu de la prochaine version de la FAQ :

[QR]Comment utiliser des arguments nommés et positionnels avec les objets OleAutomation ?
En règle générale on peut appeler une méthode d'un serveur Automation par une interface ou par un variant.

Dans le premier cas l'objet manipulé étant fortement typé on doit donc spécifier tous les paramètres. Ceux optionnels devant être remplacés par EmptyParam :

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 
 MaZone: Range; 
 
 Separator: OleVariant; 
 Tableau : Table; 
 
begin 
  ...
  //Définit le séparateur utilisé lors de la conversion 
 Separator:=';'; 
 MaZone.ConvertToTable(Separator,EmptyParam,EmptyParam,EmptyParam, 
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam, 
                       EmptyParam,EmptyParam,EmptyParam,EmptyParam);

Dans le second cas l'objet manipulé étant de type Variant/OleVariant on peut utiliser les arguments nommés dans l'appel de la méthode.
Cette expression est évaluée uniquement lors de l'exécution (cf. Dispatch.Invoke)
On évite ainsi une liste de paramètres vides (EmptyParam), les paramètres qui ne sont pas spécifiés prennent leur valeur par défaut.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
var 
 MaZone: OleVariant; 
 
 Separator: OleVariant; 
 Tableau : Table; 
 
begin 
  ...
  //Définit le séparateur utilisé lors de la conversion 
 Separator:=';'; 
 MaZone.ConvertToTable(Separator:=';'); 
end;

On peut nommer plusieurs paramètres, l'ordre de leur déclaration n'a pas d'importance.
Ici cette possibilité facilite le portage entre les versions d'Office dans la mesure où les paramètres utilisés sont communs.

Il est aussi possible d'utiliser des arguments positionnels :

Code :

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

1
2
 
 MaZone.ConvertToTable(Separator,NumRows,,,,,,,,,,,,,,DefaultTableBehavior);

Ce qui peut s'écrire

Code :

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

1
2
 
 MaZone.ConvertToTable(Separator,NumRows,,DefaultTableBehavior);

Il reste à définir les paramètres commun au différentes versions.

**SkYsO** · 07/12/2005, 10h42

Salut et merci de vos réponses

Donc si je comprend bien dans le cas mon Paste il faudrait savoir pour chaque version d'office quels sont les arguments qui sont demandés et le cas échéant les préciser ?

Ou bien il faut que je trouve les arguments qui restent identiques à travers les différentes version de words et que je n'indique que ces derniers ?