Word 2016批量将特定格式圣经经文引用转为超链接的宏实现

一、修复{ HYPERLINK "ref:Mat.1.10" }无法点击的问题 #

• 无法点击大概率是因为当前显示的是域代码而非域结果，按Alt+F9切换到域结果视图即可正常点击。
• 若切换后仍无效，右键点击域选择「更新域」，同时确认超链接地址（如ref:Mat.1.10）无拼写错误。

二、批量处理带°标记的经文引用（查找替换法） #

用Word自带功能即可实现，无需代码：

1. 打开「查找和替换」对话框（快捷键Ctrl+H），点击「更多」并勾选「使用通配符」
2. 「查找内容」输入：°([A-Za-z]{3}) ([0-9]+\.[0-9-]+)°
   • 匹配°包裹的标准经文格式，如°Mat 1.10°或°Mat 1.1-10°
3. 「替换为」输入：^d HYPERLINK "ref:\1.\2"
   • ^d用于插入域，\1对应书卷缩写（如Mat），\2对应章节号（如1.10），自动生成正确的HYPERLINK域
4. 点击「全部替换」，完成后按Alt+F9切换到域结果视图，标记会自动删除，内容转为可点击超链接。

三、VBA宏批量处理（适配更多格式变体） #

如果经文格式有特殊变体，用VBA宏更灵活：

1. 按Alt+F11打开VBA编辑器，插入新模块并粘贴以下代码：

Sub ConvertBibleRefsToHyperlinks()
    Dim doc As Document
    Dim rng As Range
    Dim findText As String
    
    Set doc = ActiveDocument
    findText = "°([A-Za-z]{3}) ([0-9]+\.[0-9-]+)°"
    
    With doc.Content.Find
        .ClearFormatting
        .MatchWildcards = True
        .Text = findText
        .Forward = True
        .Wrap = wdFindContinue
        
        Do While .Execute
            Set rng = doc.Content.Find.Parent
            Dim bookAbbr As String, chapterVerse As String
            bookAbbr = Mid(rng.Text, 2, 3)
            chapterVerse = Mid(rng.Text, 6, Len(rng.Text) - 6)
            doc.Hyperlinks.Add Anchor:=rng, Address:="ref:" & bookAbbr & "." & chapterVerse, TextToDisplay:=bookAbbr & " " & chapterVerse
        Loop
    End With
End Sub

2. 运行宏，所有带°标记的引用会直接转为可点击超链接，自动移除标记。

内容的提问来源于stack exchange，提问作者ElVitti