Convert Bible refs to hyperlinks in Word / Pages

Stephen Harper

I'm sorry if this has been covered elsewhere in this forum, but at present the search facility seems to be broken and I can't search earlier posts.

I'm looking for a simple way to search for all Bible references in a Word document and convert them to logosres or URL links - a bit like reftagger only in a Word document.

Does such a macro exist?  I use Word on both Mac and Windows so have access to either versions of the app as well as Pages

Thanks,

Stephen.

Pieter J.

I know this is an old post but maybe this could help to give a starting point:

Sub FindAllReferences(Optional pDataType As String = "Bible")
'I use latebinding for illustration purposes
Dim Logos As LogosApplication
Dim Launcher As LogosLauncher

On Error Resume Next
'Try to get the running instance of logos first
Set Logos = GetObject(, "LogosBibleSoftware.Application")
'If it is not running, try to execute it using the Logos Launcher
If Err.Number = 429 Then
Set Launcher = CreateObject("LogosBibleSoftware.Launcher")
        Launcher.LaunchApplication
'Wait for the App to load
While Logos Is Nothing
Set Logos = Launcher.Application
Wend
End If

On Error GoTo ErrHandler
Dim LDPRC As LogosDataTypeParsedReferenceCollection
Dim DTPR As LogosDataTypeParsedReference

Set LDPRC = Logos.DataTypes.GetDataType(pDataType).ScanForReferences(ActiveDocument.Range)
For Each DTPR In LDPRC
        Debug.Print DTPR.Reference.Render("long"), DTPR.TextIndex, DTPR.TextLength, DTPR.Reference.Save()
'logosres:esv;ref=BibleESV.Ge1.2
        pos1 = DTPR.TextIndex
        pos2 = DTPR.TextIndex + DTPR.TextLength

'ActiveDocument.Hyperlinks.Add Anchor:=ActiveDocument.Range(pos1, pos2), Address:= _
"logosres:esv;ref=" & DTPR.Reference.Save(), SubAddress:="", ScreenTip:=DTPR.Reference.Render("long")
Next
Exit Sub
ErrHandler:
'Trap unexpected errors
    MsgBox Err.Description
    Err.Clear
End Sub