Biblical Illustrator - 4 Books (Matthew, Mark, Luke and John)

Thank you. 

And just to fix the links (they are all opening onto the John link):

http://www.adrive.com/public/cwSdmN.html

http://www.adrive.com/public/36ESfN.html

http://www.adrive.com/public/UJmwfG.html

http://www.adrive.com/public/RRCXDr.html

Peace and Joy and Every Blessing!

                          Thank you!              I look forward to perusing this files more extensively in the future.

Some fascinating "stuff" here and am most grateful!                            *smile*

Maybe JerryM and Robert can add some magic to the files to make them even better .

Perhaps Robert could let me know what his schedule is like.  He did an excellent and timely job last time.  No sense in both of us adding milestones.

p.s. George, I have a wedding I am officiating soon and did a search in my fairly large library, out of curiosity, for wedding sermons and I'll let you guess the only hit I got.  Hint: it  was in Genesis and it was an application style commentary.

Perhaps Robert could let me know what his schedule is like.

Good evening.

Since the Forum apparently has a 4MB or so limit on files, we'll experiment with (what I think is) a new DropBox feature that allows sharing at large with a link.

I have done the John files, one with bible milestones, one with bible milestones and page #s.

The file that doesn't have the page #s is here:

https://www.dropbox.com/sh/gjspyw267tj0jb8/PD5DFDDVZP

The file that does have page #s is here:

https://www.dropbox.com/sh/ue5q3ta4pnyzz0h/khqIAs7T0i

These same folder will have the other 3 files (I think) in a few minutes.

Thanks, George

Since the Forum apparently has a 4MB or so limit on files, we'll experiment with (what I think is) a new DropBox feature that allows sharing at large with a link.

Thanks Robert, the files came down fine. FYI, I have used Dropbox links on these forums before and they work very well!

Thanks again.  I asked for more books and got it.  Thanks, Thanks, Thanks.

Thanks for the great work Robert! Just curious, how did you fix the page number issue? That has irked me in some of my own PBs...

how did you fix the page number issue?

Dominick:

I fixed it by putting a counter in the macro that forces a repagination every 100 pages. I also added Word page numbers in the header (for easy verification) and manually forced a repagination by dragging the scroll button down before running the macro. Oddly, the macro gives up near the end, i.e., in a 900 page doc, the last 3-4 pages didn't have the milestone. (Probably because the page count increases as all the page milestones are added.) But it is a trivial matter to put those in manually. If the real programmers out there promise not to taunt me [:S], the so-called code is below. Basically, I start out using old old Basic flow-control that I learned long ago, and then throw things at it until it does what i want. I also do a lot of "borrowing" from code snipets on the web. ("Good composers borrow, great composers steal" - Stravinsky or Elliot or somebody).

All: FYI:

I would also like to reiterate that these page #s are based simply on Word's pagination and have nothing to do with the original  publications, and therefore would have no meaning in a citation. I put them in to enable the Read Aloud feature, and to provide a relative reference within the resource.

Code:

Sub PageMilestoneWordPagination()

Dim rngPage As Range

Dim iCurrentPage As Integer

Dim iPageCount As Integer

Dim Counter As Integer

Application.ScreenUpdating = False

Selection.HomeKey Unit:=wdStory

Selection.TypeText Text:="[[@Page:1]]"

ActiveDocument.Repaginate

Set docToNumber = ActiveDocument

Set rngPage = docToNumber.Range

iCurrentPage = 1

Counter = 0

iPageCount = docToNumber.Content.ComputeStatistics(wdStatisticPages)

    Do Until iCurrentPage > iPageCount

        If iCurrentPage = iPageCount Then

            rngPage.End = ActiveDocument.Range.End

        Else

            Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1

            Selection.TypeText Text:="[[@Page:" + CStr(iCurrentPage + 1) + "]]"

            rngPage.End = Selection.Start

            Counter = Counter + 1

            If Counter = 100 Then

                ActiveDocument.Repaginate

                Counter = 0

            Else

            End If

        End If

        iCurrentPage = iCurrentPage + 1 'move to the next page

    Loop

Application.ScreenUpdating = True

Selection.HomeKey Unit:=wdStory

End Sub

Very nice, thanks for the code and explanation Robert!

Robert

I'm wondering if the Title Page for Matthew's docx somehow got lopped off; it's the only one in all of them so far that doesn't show a Title Page. No issue on the utility, but it would be nice for consistency's sake.

Michael

Quote

After an unproductive wrestling match with the embedded info, I cut it, grabbed the info from the Mark BI title page, pasted it in and changed the name to Matthew. I'm using LibreOffice which might be why I couldn't run it the same way, but this worked.

But doesn't this make the page numbers inaccurate?

Hi Jack, haven't had time to check, but I don't use them anyway... to me, having the TOC correct was important...