VBA Module to add Hyperlinks to BibleReferences in Word2010

Page 1 of 1 (1 items)
This post has 0 Replies | 2 Followers

Posts 329
PJ | Forum Activity | Posted: Tue, Apr 15 2014 11:00 AM

1057.modHyperlink.zip

Trying to understand the ComApi I produced the following:

I wrote this to ScanReferences in a Word document and Hyperlink them with a logosres Uri. The UriFromPanel Function can create Uri's from ActivePanel that accept a ref in the Uri eg: logos4:Explorer;ref=Bible.Ge1.1

Import the module in a Word VBAProject and run the Test Procedure on a document with bible references. It doesn't hyperlink the dot notation (Gen 1.1)  yet, but any reference like Gen 1:1 should be Hyperlinked. See the Comments in the module for more details.

Paste this in the Immediate Window (Ctrl+G) and press Enter:

?UriFromPanel ("Gen 1:1",,True)

Follow instructions in Immediate Window: It should be

To Test:  Close All Panels First then Place the Cursor behind the following line and press {Enter}
ExecuteUri("logos4:TheActivePanel;ref=Bible.Ge1.1")
logos4:TheActivePanel;ref=Bible.Ge1.1

Then Paste this and press Enter:

?UriFromPanel ("Gen 1:1",PK_CITEDBY)

Follow instructions in Immediate Window: It should be

To Test:  Close All Panels First then Place the Cursor behind the following line and press {Enter}
ExecuteUri("logos4:CitedBy;ref=Bible.Ge1.1")
logos4:CitedBy;ref=Bible.Ge1.1

This is not bugfree, but a starting point.

Hope someone could make use of it.

Page 1 of 1 (1 items) | RSS