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
Comments
-
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 ...
Orthodox Bishop Alfeyev: "To be a theologian means to have experience of a personal encounter with God through prayer and worship."; Orthodox proverb: "We know where the Church is, we do not know where it is not."
0 -
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
And he will turn the hearts of fathers to their children and the hearts of children to their fathers (Mal 4:6a)
0 -
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 Sub0 -
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?
All Scripture is breathed out by God and profitable for teaching, for reproof, for correction, and for training in righteousness,
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?”
0 -
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
0
