Macro qui ouvre la boite 'insérer lien hypertexte'
5 réponses
elise
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien
hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur
compléter le texte.
J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du
processus de crétaion du lien
Mon code : Selection.SetRange Start:=Selection.Words(1).Start,
End:=Selection.Words(1).End - 1
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"codedoc-10num|nomfichier.htm", SubAddress:="nomsignet",
ScreenTip:="" _
, TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ?
Merci pour votre aide, bonne journée
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Circé
Bonjour elise,
Pour simplement afficher la boîte de dialogue d'insertion de lien hypertexte c'est :
Dialogs(wdDialogInsertHyperlink).Show
Tu trouveras, entre autres, pas mal d'exemples de macros sur la faq : http://faqword.free.fr
Circé http://faqword.free.fr
elise a exprimé avec précision :
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur compléter le texte. J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du processus de crétaion du lien Mon code : Selection.SetRange Start:=Selection.Words(1).Start, End:=Selection.Words(1).End - 1 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ "codedoc-10num|nomfichier.htm", SubAddress:="nomsignet", ScreenTip:="" _ , TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ? Merci pour votre aide, bonne journée
Bonjour elise,
Pour simplement afficher la boîte de dialogue d'insertion de lien
hypertexte c'est :
Dialogs(wdDialogInsertHyperlink).Show
Tu trouveras, entre autres, pas mal d'exemples de macros sur la faq :
http://faqword.free.fr
Circé
http://faqword.free.fr
elise a exprimé avec précision :
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien
hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur
compléter le texte.
J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du
processus de crétaion du lien
Mon code : Selection.SetRange Start:=Selection.Words(1).Start,
End:=Selection.Words(1).End - 1
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"codedoc-10num|nomfichier.htm", SubAddress:="nomsignet",
ScreenTip:="" _
, TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ?
Merci pour votre aide, bonne journée
Pour simplement afficher la boîte de dialogue d'insertion de lien hypertexte c'est :
Dialogs(wdDialogInsertHyperlink).Show
Tu trouveras, entre autres, pas mal d'exemples de macros sur la faq : http://faqword.free.fr
Circé http://faqword.free.fr
elise a exprimé avec précision :
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur compléter le texte. J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du processus de crétaion du lien Mon code : Selection.SetRange Start:=Selection.Words(1).Start, End:=Selection.Words(1).End - 1 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ "codedoc-10num|nomfichier.htm", SubAddress:="nomsignet", ScreenTip:="" _ , TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ? Merci pour votre aide, bonne journée
elise
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ? With Dialogs(wdDialogInsertHyperlink) .Address = "toto.htm" .Show End With il refuse .address, idem avec . subadress
Bonjour elise,
Pour simplement afficher la boîte de dialogue d'insertion de lien hypertexte c'est :
Dialogs(wdDialogInsertHyperlink).Show
Tu trouveras, entre autres, pas mal d'exemples de macros sur la faq : http://faqword.free.fr
Circé http://faqword.free.fr
elise a exprimé avec précision :
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur compléter le texte. J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du processus de crétaion du lien Mon code : Selection.SetRange Start:=Selection.Words(1).Start, End:=Selection.Words(1).End - 1 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ "codedoc-10num|nomfichier.htm", SubAddress:="nomsignet", ScreenTip:="" _ , TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ? Merci pour votre aide, bonne journée
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire
pour présenseigner le nom du fichier ?
With Dialogs(wdDialogInsertHyperlink)
.Address = "toto.htm"
.Show
End With
il refuse .address, idem avec . subadress
Bonjour elise,
Pour simplement afficher la boîte de dialogue d'insertion de lien
hypertexte c'est :
Dialogs(wdDialogInsertHyperlink).Show
Tu trouveras, entre autres, pas mal d'exemples de macros sur la faq :
http://faqword.free.fr
Circé
http://faqword.free.fr
elise a exprimé avec précision :
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien
hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur
compléter le texte.
J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du
processus de crétaion du lien
Mon code : Selection.SetRange Start:=Selection.Words(1).Start,
End:=Selection.Words(1).End - 1
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"codedoc-10num|nomfichier.htm", SubAddress:="nomsignet",
ScreenTip:="" _
, TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ?
Merci pour votre aide, bonne journée
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ? With Dialogs(wdDialogInsertHyperlink) .Address = "toto.htm" .Show End With il refuse .address, idem avec . subadress
Bonjour elise,
Pour simplement afficher la boîte de dialogue d'insertion de lien hypertexte c'est :
Dialogs(wdDialogInsertHyperlink).Show
Tu trouveras, entre autres, pas mal d'exemples de macros sur la faq : http://faqword.free.fr
Circé http://faqword.free.fr
elise a exprimé avec précision :
Bonjour,
Je voudrais une macro qui sur un mot, ouvre la boite 'insérer un lien hypertexte' avec des valeurs préremplies et qui laisse l'utilisateur compléter le texte. J'ai un code qui crée le lien, or je voudrais qu'on n'aille ps au bout du processus de crétaion du lien Mon code : Selection.SetRange Start:=Selection.Words(1).Start, End:=Selection.Words(1).End - 1 ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _ "codedoc-10num|nomfichier.htm", SubAddress:="nomsignet", ScreenTip:="" _ , TextToDisplay:=Selection.Text
D'une façon générale, existe-il un site avec des exemples de macros ? Merci pour votre aide, bonne journée
Geo
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list" Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire marcher cette possibilité.
-- A+
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire
pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list"
Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire
marcher cette possibilité.
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list" Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire marcher cette possibilité.
-- A+
Brel Patrice
Bonsoir,
Je ne sais pas si la démarche serait considérée comme très orthodoxe mais voici une approche donnant peut-être le résultat souhaité.
Plutôt que de gérer la boîte de dialogue, je vous invite à gérer le lien. Un lien créé peut être édité et donc dévoiler ses valeurs. Les véritables valeurs seraient vos valeurs par défaut.
Principe: 1 - créer un lien hypertexte 2 - afficher la boîte de dialogue générée à partir de ce lien
Sub address_par_defaut() 'Positionnez le curseur à l'endroit où vous souhaitez insérer le lien ou 'sélectionnez les mots sur lesquels le lien sera basé
'Création du lien avec des valeurs par défaut Dim texte_defaut, adresse_defaut
textselected = "" textselected = Selection.Range If textselected <> "" Then texte_defaut = textselected Else texte_defaut = "defaut" End If '-_-_ NB si le texte sélectionné comprend une marque de fin de paragraphe, ' l'option "TextToDisplay" n'est pas active
'Affichage de la boîte de dialogue avec les paramètres à éditer...
Dialogs(wdDialogInsertHyperlink).Show End Sub
Cordialement
-- Brel Patrice
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list" Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire marcher cette possibilité.
-- A+
Bonsoir,
Je ne sais pas si la démarche serait considérée comme très orthodoxe mais
voici une approche donnant peut-être le résultat souhaité.
Plutôt que de gérer la boîte de dialogue, je vous invite à gérer le lien.
Un lien créé peut être édité et donc dévoiler ses valeurs. Les véritables
valeurs seraient vos valeurs par défaut.
Principe:
1 - créer un lien hypertexte
2 - afficher la boîte de dialogue générée à partir de ce lien
Sub address_par_defaut()
'Positionnez le curseur à l'endroit où vous souhaitez insérer le lien ou
'sélectionnez les mots sur lesquels le lien sera basé
'Création du lien avec des valeurs par défaut
Dim texte_defaut, adresse_defaut
textselected = ""
textselected = Selection.Range
If textselected <> "" Then
texte_defaut = textselected
Else
texte_defaut = "defaut"
End If
'-_-_ NB si le texte sélectionné comprend une marque de fin de paragraphe,
' l'option "TextToDisplay" n'est pas active
'Affichage de la boîte de dialogue avec les paramètres à éditer...
Dialogs(wdDialogInsertHyperlink).Show
End Sub
Cordialement
--
Brel Patrice
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire
pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list"
Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire
marcher cette possibilité.
Je ne sais pas si la démarche serait considérée comme très orthodoxe mais voici une approche donnant peut-être le résultat souhaité.
Plutôt que de gérer la boîte de dialogue, je vous invite à gérer le lien. Un lien créé peut être édité et donc dévoiler ses valeurs. Les véritables valeurs seraient vos valeurs par défaut.
Principe: 1 - créer un lien hypertexte 2 - afficher la boîte de dialogue générée à partir de ce lien
Sub address_par_defaut() 'Positionnez le curseur à l'endroit où vous souhaitez insérer le lien ou 'sélectionnez les mots sur lesquels le lien sera basé
'Création du lien avec des valeurs par défaut Dim texte_defaut, adresse_defaut
textselected = "" textselected = Selection.Range If textselected <> "" Then texte_defaut = textselected Else texte_defaut = "defaut" End If '-_-_ NB si le texte sélectionné comprend une marque de fin de paragraphe, ' l'option "TextToDisplay" n'est pas active
'Affichage de la boîte de dialogue avec les paramètres à éditer...
Dialogs(wdDialogInsertHyperlink).Show End Sub
Cordialement
-- Brel Patrice
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list" Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire marcher cette possibilité.
-- A+
elise
Merci beaucoup, ça correspond parfaitement à mon besoin. Bonne journée à tous
Bonsoir,
Je ne sais pas si la démarche serait considérée comme très orthodoxe mais voici une approche donnant peut-être le résultat souhaité.
Plutôt que de gérer la boîte de dialogue, je vous invite à gérer le lien. Un lien créé peut être édité et donc dévoiler ses valeurs. Les véritables valeurs seraient vos valeurs par défaut.
Principe: 1 - créer un lien hypertexte 2 - afficher la boîte de dialogue générée à partir de ce lien
Sub address_par_defaut() 'Positionnez le curseur à l'endroit où vous souhaitez insérer le lien ou 'sélectionnez les mots sur lesquels le lien sera basé
'Création du lien avec des valeurs par défaut Dim texte_defaut, adresse_defaut
textselected = "" textselected = Selection.Range If textselected <> "" Then texte_defaut = textselected Else texte_defaut = "defaut" End If '-_-_ NB si le texte sélectionné comprend une marque de fin de paragraphe, ' l'option "TextToDisplay" n'est pas active
'Affichage de la boîte de dialogue avec les paramètres à éditer...
Dialogs(wdDialogInsertHyperlink).Show End Sub
Cordialement
-- Brel Patrice
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list" Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire marcher cette possibilité.
-- A+
Merci beaucoup, ça correspond parfaitement à mon besoin.
Bonne journée à tous
Bonsoir,
Je ne sais pas si la démarche serait considérée comme très orthodoxe mais
voici une approche donnant peut-être le résultat souhaité.
Plutôt que de gérer la boîte de dialogue, je vous invite à gérer le lien.
Un lien créé peut être édité et donc dévoiler ses valeurs. Les véritables
valeurs seraient vos valeurs par défaut.
Principe:
1 - créer un lien hypertexte
2 - afficher la boîte de dialogue générée à partir de ce lien
Sub address_par_defaut()
'Positionnez le curseur à l'endroit où vous souhaitez insérer le lien ou
'sélectionnez les mots sur lesquels le lien sera basé
'Création du lien avec des valeurs par défaut
Dim texte_defaut, adresse_defaut
textselected = ""
textselected = Selection.Range
If textselected <> "" Then
texte_defaut = textselected
Else
texte_defaut = "defaut"
End If
'-_-_ NB si le texte sélectionné comprend une marque de fin de paragraphe,
' l'option "TextToDisplay" n'est pas active
'Affichage de la boîte de dialogue avec les paramètres à éditer...
Dialogs(wdDialogInsertHyperlink).Show
End Sub
Cordialement
--
Brel Patrice
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire
pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list"
Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire
marcher cette possibilité.
Merci beaucoup, ça correspond parfaitement à mon besoin. Bonne journée à tous
Bonsoir,
Je ne sais pas si la démarche serait considérée comme très orthodoxe mais voici une approche donnant peut-être le résultat souhaité.
Plutôt que de gérer la boîte de dialogue, je vous invite à gérer le lien. Un lien créé peut être édité et donc dévoiler ses valeurs. Les véritables valeurs seraient vos valeurs par défaut.
Principe: 1 - créer un lien hypertexte 2 - afficher la boîte de dialogue générée à partir de ce lien
Sub address_par_defaut() 'Positionnez le curseur à l'endroit où vous souhaitez insérer le lien ou 'sélectionnez les mots sur lesquels le lien sera basé
'Création du lien avec des valeurs par défaut Dim texte_defaut, adresse_defaut
textselected = "" textselected = Selection.Range If textselected <> "" Then texte_defaut = textselected Else texte_defaut = "defaut" End If '-_-_ NB si le texte sélectionné comprend une marque de fin de paragraphe, ' l'option "TextToDisplay" n'est pas active
'Affichage de la boîte de dialogue avec les paramètres à éditer...
Dialogs(wdDialogInsertHyperlink).Show End Sub
Cordialement
-- Brel Patrice
Bonjour,
Merci pour l'aide, je suis désolée de revenir à la charge mais comment faire pour présenseigner le nom du fichier ?
On ne peut pas, cette boite de dialogue n'a pas d' "Argument list" Il faudrait passer par le sendkeys, mais je n'ai jamais réussi à faire marcher cette possibilité.