|
|
|
|
Bonjour,
J'ai besoin de faire un compte-rendu de référencement Google sous Word.
Pour cela j'ai fait 2 colonnes. La première comprend l'ensemble des mots-clés et la deuxième révèle les différents positionnements.
Je souhaite mettre un lien hypertexte sur chaque mots-clés, de manière à arriver sur la page de résultat Google.
Ce compte-rendu ne concerne que google donc l'adresse url varie uniquement en fonction du mot-clé : http://www.google.fr/search?hl=fr&q=informatique&btnG=Recherche+Google&meta=
J'ai une liste de plus de 1000 mots-clés alors l'idéal serait de taper le mot-clé sous word et que les liens hypertextes se génèrent automatiquement en fonction du mot-clé.
J'espère trouver un petit génie pour m'aider ! :)
Merci d'avance.
Salut,
Sub insert_link()
Dim sMotCle As String
sMotCle = InputBox("Entre un mot clé")
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:= _
"http://www.google.fr/search?hl=fr&q=" & sMotCle & _
"&btnG=Recherche+Google&meta=" _
, SubAddress:="", ScreenTip:="", TextToDisplay:= _
"http://www.google.fr/search?hl=fr&q=" & sMotCle & _
"&btnG=Recherche+Google&meta= "
Selection.TypeParagraph
End Sub
Cependant taper 1000 mots clé ce n'est pas une chose à faire. Tu peux donner la liste de mots (donc les 1000 mots) ensuite avec un script on pourra faire mieux ou avec une variable tableau. Le code que je t'ai donné insère au fur à mesure les liens. C'est ça que tu demande. alors l'idéal serait de taper le mot-clé sous word et que les liens hypertextes se génèrent automatiquement en fonction du mot-clé. Si tu as déjà la liste ça sera plus facile. A toi de voir. lami20j |
Bonjour,
|