Passage List

For many years I have exported my passage lists to a new Word Document. This appears as a table with two columns, one the reference, the other the text.

I had created a macro in Word to convert from table to text, change paragraph settings, font size etc and put the results into two columns ready for printing landscape (priprinter then allows me to print each page as if A5). This gives me an A4 I can fold sideways to take into the pulpit with me as a quick reference of verses I wish to read without Bible flipping or filling up my sermon note sheet.

Tonight, following my usual practice, I suddenly get a whole bunch of hyperlinks - everywhere a reference is mentioned. How did that happen? More importantly - how can I prevent it happening again. It turned a quick 2 minutes workflow into a 3/4 hour nightmare.

Any help greatly appreciated,

David

Find more posts tagged with

Desktop App

Comments

MJ. Smith

I'd need to see a screen shot of the messed up document. My Passage Lists appear to work fine and/or of the Passage list exported ...

John Connell

I would dearly love to get hold of your Word macro. I spend a lot of time playing around with passage lists in Word to put them into useable form.

-john

David Bayne

https://community.logos.com/discussion/comment/1016184#Comment_1016184

Hi John,

Using Word 2010. I didn't code the following macro - just wrote out the steps I wanted until the workflow worked and then recorded a macro of what I did.

Looking at View, Macro, Edit this is what I find. It is of any use - great. It gives a 2 column result in A4 pages. By using Priprinter, I can then print two of those pages side by side on one A4 landscape. You could probably modify the macro to change orientation to landscape, set 4 columns, change the font, and then print.

Sub Passglist()
'
' Passglist Macro
'
'
End Sub
Sub PsgList()
'
' PsgList Macro
' For Passage Lists
'
Selection.Rows.ConvertToText Separator:=wdSeparateByTabs, NestedTables:= _
True
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^t"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p^p"
.Replacement.Text = " ^p^p"
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchKashida = False
.MatchDiacritics = False
.MatchAlefHamza = False
.MatchControl = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type <> wdPrintView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveDocument.Range(Start:=Selection.Start, End:=Selection.Start). _
InsertBreak Type:=wdSectionBreakContinuous
Selection.Start = Selection.Start + 1
ActiveDocument.Range(Start:=Selection.End, End:=Selection.End).InsertBreak _
Type:=wdSectionBreakContinuous
With Selection.PageSetup.TextColumns
.SetCount NumColumns:=2
.EvenlySpaced = True
.LineBetween = False
.Width = CentimetersToPoints(7.83)
.Spacing = CentimetersToPoints(0.25)
.FlowDirection = wdFlowLtr
End With
With Selection.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1.27)
.BottomMargin = CentimetersToPoints(1.27)
.LeftMargin = CentimetersToPoints(1.27)
.RightMargin = CentimetersToPoints(1.27)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1.25)
.FooterDistance = CentimetersToPoints(1.25)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.SectionStart = wdSectionContinuous
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False
.TwoPagesOnOne = False
.BookFoldPrinting = False
.BookFoldRevPrinting = False
.BookFoldPrintingSheets = 1
.GutterPos = wdGutterPosLeft
.SectionDirection = wdSectionDirectionLtr
End With
Selection.Font.Size = 18
End Sub

David Bayne

https://community.logos.com/discussion/comment/1016175#Comment_1016175

HI,

This is what I get when I produce the print/export page, and then export to a new Word document (see below)

Only it isn't!!!!! This is what I used to get before Saturday!. When I copied and pasted into this reply, all the hyperlink text is missing - and now I only see the blue text references and verse numbers - as I want.

What I am now actually seeing is the following

{HYPERLINK "https://ref.ly/logos/bibleESV.2Ti3.16"} instead of the reference below in the first column of the table

In the next row down I get the same for the reference in column one, but in column two I get the hyperlink showing for the verses numbers 25 and 26 as well

If I copy from my Word document and then paste here into this reply, it all looks fine. I'm unaware of anything changing in my Word templates etc but ??

Any advice greatly appreciated.

Thanks

Canon of Scripture

What are the boundaries?

2 Timothy 3:16

All Scripture is breathed out by God and profitable for teaching, for reproof, for correction, and for training in righteousness,

Luke 24:25–26

25 And he said to them, “O foolish ones, and slow of heart to believe all that the prophets have spoken! 26 Was it not necessary that the Christ should suffer these things and enter into his glory?”

David Bayne

https://community.logos.com/discussion/comment/1016512#Comment_1016512

My apologies everyone - I realise what happened. I had looked some fields in a Word document and it retained the setting for displaying fields.

Alt + F9 hid them - and everything is now back to normal. The fields didn't show as shaded (which I thought they usually did) and I thought it was displaying text.

All a learning experience I suppose!

Thanks,

David