Word 2013の書誌にハイパーリンクを含める


1

Wordで生成された参考文献にハイパーリンクを追加するのに苦労しています(word 2013を使用しています)。私は次の解決策を思いつきました(テキストのすべてのインスタンス検索し、マクロを含むハイパーリンクにするためのレイスタファリアンの回答からいくつかのコードを借りました

Sub Add_Hyperlinks_Bibliography()
On Error Resume Next
Set rngSearch = ActiveDocument.Range
For I = 1 To ActiveDocument.Bibliography.Sources.Count
   strStyle = "Intensieve benadrukking"
   strSearch = ActiveDocument.Bibliography.Sources.Item(I).Field("URL")
   strAddress = strSearch
   With rngSearch.Find
      Do While .Execute(findText:=strSearch) = 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

これはほとんどのソースでうまくいくように見えますが、残念ながら(そしてなぜこれが起こるのか説明できません)、一部のソースではURLをハイパーリンクに変更していないようです。URLを手動で検索すると、見つかります。たぶん、誰かがコードがハイパーリンクでURLを置き換えない理由を説明できますか?

Webサイトで同様の質問を検索しましたが、このスレッドのみが見つかりました。MicrosoftWord 2013の参照にハイパーリンクを含めましたが、返信はありませんでした。


「Set rngSearch = ActiveDocument.Range」というコードを「Set rngSearch = Selection」に変更することで機能しました
-aroukouth

プロフィールに少し記入して、このコメントを回答として送信し、それを受け入れることができます。私たちは問題に対する答えを見たいので、あなたはあなたの問題に答えたので、これは良いことです。他の人が同じ問題を抱えている可能性があり、あなたの答えがそのように明確にマークされているのを見ると助けになります。
music2myear
弊社のサイトを使用することにより、あなたは弊社のクッキーポリシーおよびプライバシーポリシーを読み、理解したものとみなされます。
Licensed under cc by-sa 3.0 with attribution required.