l’ordinateur
  1. l’ordinateur
  3. Y compris les hyperliens dans les références Microsoft Word 2013
Intereting Posts
Comment exécuter Cmd.exe en silence? Ajouter tous les mots-clés de Firefox en même temps? Comment puis-je mettre à jour / rincer / réinitialiser mes enregistrements DNS dans Windows? Le document Microsoft Office est "verrouillé pour l'édition par 'un autre utilisateur'" Une adresse MAC peut-elle être tracée? Configuration incorrecte de Linksys WRT54GL en tant que routeur filaire avec Linsys WRT54GS comme point d'accès sans fil Exécuter plusieurs commandes sur ssh sans se reconnecter Comment faire pour déplacer une partition vers la fin en gparted? Comment puis-je copier un gros fichier d'une machine Windows vers un autre transfert de vitesse limite? Où se trouve le dossier démarrage (démarrage automatique) dans Windows 8 Désactiver les vignettes dans Windows XP? Exécution d'un exécutable dans une machine virtuelle à l'aide d'une machine de base Comment imprimer avec la feuille de style de l'écran? Comment puis-je obtenir des programmes 16 bits sur une Windows 64 bits? Comment activer Intel VT-x?

Y compris les hyperliens dans les références Microsoft Word 2013

J'utilise la fonctionnalité de citations dans Microsoft Word et je crée une liste de références à la fin de mon document. Un exemple de référence générée est:

  1. USDOT. Base de données sur les avantages sociaux. ITS Knowldege Resources. [En ligne] [Cité: 7 6, 2016.] www.itsbenefits.its.dot.gov.

Existe-t-il un moyen de faire en sorte que l'url (www.itsbenefits.its.dot.gov) soit un hyperlien généré automatiquement, car c'est quand je tape les URL dans le texte principal du document? Si oui, comment puis-je faire cela? À l'heure actuelle, il ne me permet même pas de modifier l'entrée pour faire de l'URL un lien, et si cela le faisait, je le perdrais chaque fois que j'avais mis à jour automatiquement les références.

J'utilise Word 2013.

Le code macro suivant semble fonctionner pour moi: 

Sub Add_Hyperlinks_Bibliography() On Error Resume Next Set rngSearch = Selection For I = 1 To ActiveDocument.Bibliography.Sources.Count Selection.HomeKey Unit:=wdStory strStyle = "Intensieve benadrukking" strSearch = ActiveDocument.Bibliography.Sources.Item(I).Field("URL") strAddress = strSearch With rngSearch.Find Do While .Execute(findText:=strSearch, MatchCase:=False, MatchWholeWord:=False) = True With rngSearch 'we will work with what is found as it will be the selection ActiveDocument.Hyperlinks.Add Anchor:=rngSearch, Address:=strAddress .Style = ActiveDocument.Styles(strStyle) 'throw the style on it after the link End With rngSearch.Collapse Direction:=wdCollapseEnd 'keep it moving Loop End With Next I On Error GoTo 0 Set rngSearch = Nothing End Sub

Évidemment, vous devriez exécuter ce code chaque fois que vous actualisez le champ de bibliographie