Difficulté de Style

[hoob91]

Bonjour a tous,
voila la macro que je viens de créer, le problème vient du fait que malgré ma sélection en cas de validation, il ne prend pas le Style " NormalGras" mais il impose le Style Lien Hypertext ?
Ya t'il un moyen de l'obliger à prendre le Style désiré ?

Merci

Dim Stil As String
Dim x As Boolean
response = MsgBox("Désirez vous créer un lien sur votre sélection ?", vbYesNo)
If response = vbNo Then Exit Sub

x = Application.Dialogs(wdDialogInsertHyperlink).Show

If x = True Then
Selection.Style = ("Titre 1") 'Annulation de la transaction
Else
Selection.Style = ("NormalGras") ' Validation, récupère le style Lien Hypertext
End If

End Sub

 

[Robert]

Bonjour,

Je ne suis pas très calé avec VBA sur Word et je n’ai pas résolu ton problème.
Mais je me suis rendu compte que quelle que soit la manière que tu fermes la boite de dialogue “ Insérer un lien hypertexte ”, [Ok], [Annuler] ou [Fermer] la valeur renvoyée par x est toujours : “ Vrai ” (non pas True ou False). Je ne comprends pas car d’après l’aide Visual Basic, x devrait renvoyer (-2 pour [Fermer], -1 pour [OK] ou 0 pour [Annuler]). Ton problème doit être ici.

Pour vérifier
rajoute le code
“Debug.Print x” juste après x=Application… et dans VBA ouvre la fenêtre d’exécution (Ctrl + G ou Affichage / Fenêtre Exécution)
puis exécute ta macro pas à pas détaillé.

Robert

 

[hoob91]

merci de ton aide