Création Signet word à partir VBA excel : erreur 450

Version imprimable

je galère sur un problème qui me paraissait simple.
Je veux simplement créer un signet sur une zone sélectionnée dans un word et j'ai l'erreur 450 (Nombre d'arguments incorrect ou affectation de propriété incorrect).

Cela peut provenir du contexte un peu particulier mais je ne pense pas.
En effet, l'objectif est de remplacer dans un document les champs de liaisons par des Signets codifiés.

C'est sur la ligne de création du signet après avoir sélectionné mon champs que j'ai l'anomalie. Cependant j'ai fait plusieurs test et même si je sélection une autre partie de de texte qui n'est pas un champ de liaison j'ai le même problème.

Pouvez-vous m'aider un ne pas perdre plus de cheveux que je n'ai déjà plus beaucoup ???
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 Dim loWordApp As Word.Application Dim loWordDoc As Word.Document Set loWordApp = CreateObject("Word.Application") loWordApp.Visible = True Set loWordDoc = loWordApp.Documents.Open("c:\tempo\toto.docx", ReadOnly:=False) For Each Field In loWordDoc.Fields Field.Select ' Création d'un signet sur le champ sélectionné with loWordDoc .Bookmarks.Add Name:="Signet1", Range:=Selection.Range ' <- ligne avec l'erreur .DefaultSorting = wdSortByName .ShowHidden = False end with ' Remplacement du champ par une valeur' loWordApp.Selection.TypeText Text:="toto" Next Field

25/10/2019, 11h50
Menhir
Citation:

Envoyé par sass666

C'est sur la ligne de création du signet après avoir sélectionné mon champs que j'ai l'anomalie.

Quel est le message d'erreur ?

Citation:

Code:

For Each Field In loWordDoc.Fields

Déjà, donner à un variable le nom d'un objet, c'est vraiment chercher les ennuis.
Citation:
Code:

1 2 3 Field.Select with loWordDoc .Bookmarks.Add Name:="Signet1", Range:=Selection.Range
Cette question devrait être posée dans la rubrique VBA Word.
Je ne suis pas spécialiste de la question mais, dans l'aide Word, je ne vois pas de propriété Range pour les objets Field.
25/10/2019, 12h28
sass666

Pour le nom du signet j'avais mis dans le code "toto" mais pour faire plus propre j'ai remplacé par "Signet1". Ce n'est donc pas cela.

Ta 2ème remarque est plus intéressante.

Effectivement cela peut être lié à la sélection du "Field".
Selon mon approche, la sélection du "Field" car c'est bien lui que je veux remplacer, à pour objectif de sélectionner du texte, texte sur lequel je veux tout d'abord mettre un signet et pour ensuite remplacer par une valeur.

Je ne suis pas sûr que l'anomalie vienne de cela car si je prends la main juste après le "Field.Select" pour sélectionner une autre partie du document word ouvert, j'ai la même anomalie.

Je suis bien sûr prêt a changer l'approche si le résultat est celui attendu.
25/10/2019, 14h00
Menhir

Citation:

Envoyé par sass666

Pour le nom du signet j'avais mis dans le code "toto" mais pour faire plus propre j'ai remplacé par "Signet1". Ce n'est donc pas cela.

Je ne parlais pas de "Signet1" mais de "Field" : c'est une variable à qui tu donnes le nom d'un objet existant.
Ce genre d’ambigüité peut causer des erreurs difficile à démêler alors qu'il est si facile d'éviter ce type de piège dès la conception du code.

A moins que tu imagines que "Field" soit le nom générique qu'il faut utiliser pour gérer ce type d'objet.
Dans ce cas, tu es dans l'erreur. Ce "Field" sera forcément une variable et comme elle n'est pas déclarée, ce sera une variable de type Variant, ce qui ajoute aux risques d'ambiguïté.

Je te conseille donc de remplacer ce nom par n'importe quoi n'étant pas un nom réservé (par exemple "Champ") et de déclarer la variable : Dim Champ As Word.Field.

Pour ce qui est d'associer un Range à un Field, je n'ai pas de certitude (Word n'est pas vraiment mon domaine d'expertise).
Mais l'expérience me dit que lorsqu'une propriété n'est pas dans la liste des membres d'un objet dans l'aide VBA, il est rare qu'il soit possible de l'utiliser.
A lire : https://docs.microsoft.com/fr-fr/off...api/word.field
25/10/2019, 14h41
sass666
J'ai fait un test en simplifiant mon code, je sélectionne simplement un texte dans le Word sans parcourir les champs de liaisons et j'ai la même erreur.

J'ai fait aussi un enregistrement d'action en macro sous Word avec la création d'un signet, cela produit le même code que celui dans mon VBA excel.

Donc, mon problème provient de la manière d'appeler les objets Word à partir d'Excel.
Par exemple le remplacement du texte ce fait au niveau de l'application Word -> loWordApp.Selection.TypeText Text:="toto".
Alors que pour l'ajout des signet je suis au niveau de l'instance du document :
Code:

1 2 with loWordDoc .Bookmarks.Add Name:="Signet1", Range:=Selection.Range ' <- ligne avec l'erreur
Je pense que c'est à ce niveau que je me prend les pieds dans le tapis.
25/10/2019, 15h59
Menhir

J'ai l'impression que tu ne lis pas les messages que j'écris. Il est donc inutile que je poursuive.
Bonne chance pour la suite.

Je ne vois pas pourquoi tu dis cela.

J'ai simplement précisé que cela ne pouvait provenir du Fields. La preuve avec le code suivant épuré c'est pareil

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
26
27
28
29
30
31
Sub test()
'On Error GoTo ListerLiaisonsDoc_Error
 
Dim liNumDoc As Integer
Dim lsNomDoc As String
'Dim loChamps As Word.Document.Fields
Dim x
 
 
Dim liNumLiaison As Integer
 
Dim loWordApp As Word.Application
Dim loWordDoc As Word.Document
 
  Set loWordApp = CreateObject("Word.Application")
  loWordApp.Visible = True
 
lsNomDoc = "c:\tempo\test.docx"
 
 Set loWordDoc = loWordApp.Documents.Open(lsNomDoc, ReadOnly:=False)
 loWordApp.Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
 
        With loWordApp
          .ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="signet1"
          .ActiveDocument.Bookmarks.DefaultSorting = wdSortByName
          .ActiveDocument.Bookmarks.ShowHidden = False
         End With
 
loWordDoc.Bookmarks.Add Range:=Selection.Range, Name:="signet1"
 
End Sub

28/10/2019, 08h42
Menhir

Tu trouves normal d'avoir un code sans Select mais avec des Selections ?
De plus, sans Excel, les Selection font référence à la sélection dans Excel. Donc je ne vois pas comment y accrocher des éléments Word pourrait fonctionner.

Comme "preuve", j'ai vu mieux. :roll: