Home for e-Sword Cox Pages

David Cox's My MS Word Macros for use in
e-Sword Module Creation

sidebar
Sitio en Español

 General 

Home
www.e-sword.net
Why I don't link to e-sword.net
General Information (3/07)
Installation: e-Sword (4/07)
Installation: modules
Latest Version: 9.0 upgrade or no?
Version 9 format modules
How e-Sword Works (4/07)
Help Desk FAQs (4/08)
e-Sword on Linux (09/07)
e-Sword on the MAC (3/08)
Copyright Stuff (3/07)
David Cox copyrights (4/07)
Work plans for this site
I now recommend
    THEWORD over e-sword
compare e-sword|theword

  Module Downloads 

 David Cox Created Mods
**Version 9 format modules**

Quick & Dirty Downloads
Bible Modules 
Commentary Mods 
Dictionary Mods 
Devotional Mods 
*  Topic Mods  * 
Bible Reading Plans
Illustrations
Graphic Mods 
STEP Mods 
Request Mods
e-Sword PES (PDAs)

  How to use...? 

How to use e-Sword (4/07)
e-Sword Menu (03/08)
Bibles  (11/07)
Commentaries (03/08)
Dictionaries (03/08)
Study Notes (03/08)
Search all Tops (05/09)
Making Verse Lists (4/07)

e-Sword Utilities

MSWord Macros for s-Sword
esword MEd (11/07)
esword FIn (11/07)
Chads Commentary Creator
Best 2.11 & BPest

   How to Create Modules 

Module Creation Updated!
e-Sword MEd
My Word Macros updated! Jan09
Creating Bible Modules Updated!
Creating Commentaries Mods Updated!
Creating Dictionary Mods Updated!
Creating Topic Mods Updated!
Creating Devotional Mods New!
Creating Illustration Mods New!

Finnish Resources for -Esword
Swedish Resources for e-Sword

 Overview  

I lost count on how many e-Sword modules I have made so far, but I think it is getting close to a thousand. I have not found adequate tools to do what I want, and I have had to resort to making my own tools via using Microsoft Word and Word Basic to do the brute grunt work of formatting. Basically I did this originally all by hand and then I started using Word's Search and Replace, but as time went on, I got more "sophisticated" and "professional" (translated that means I got lazy and tired of doing the same thing over and over again).

DISCLAIMER: I am not responsible for any mess my macros make. You use them at your own risk! Do not write me if it erased or corrupted your text! Please note that I am not responsible for errors or corruptions on your documents. Use these macros on copies not originals!!!

If they cause errors or if they fail to do what they are supposed to do, please write me. If you want me to fix your document, sorry, I don't have time to do that. You should work on backup copies, and review closely the finished document!

RULE #1 Backup everything and only use a copy to experiment on. Always have a backup copy to go back to if you mess up something. These macros sometimes will not do what you want them to, and they will corrupt your text.

Basically my macros are not going to do anything damaging to your computer or text, except for making replacements in the text that maybe shouldn't be made. I am still working on perfecting them and getting the bugs out of them. The principle danger of my macros is that the text it works on will make replacements like LeRev 12:12 instead of Lev 12:12. That kind of thing is the problem that I am constantly working on, and there are problems.

If they have errors, then why use them? Good question. I am working on them, and different original texts have different problems, and until I run into them, I cannot know what is wrong to fix. Basically I started out doing search and replaces in Word, and that would take me literally hours for prepping a book for a module. So when I put the steps into a Macro, it basically cut those hours to about 3 minutes for the longest book I had at the time (over a 500 pages). But most of the time the macros run instantly.

If you find something that went wrong in the text, please send me what it was originally and what was the corruption (don't send me your entire file, all I need is a short phrase that caused the problem). For example, "Levit. 12:12" is showing up "LeRev 12:12". That is all I need to test and fix. Write me at davidcox (the at sign) davidcox.com.mx.

Note that there are a lot of Bible verse references that I haven't figured out how to "versify", and my macro seeks to do this, but fails. For example II Corinthians 12:1. I have procedures in the versify macro to convert this. But I do not have the Arabic numerals perfected yet. II Corinthians xii. i. That stills is causing me problems. There are still "hairbrain" abbreviation methods that mess me up also, e.g. I1 Cothns. 12., 1. Believe it or not, this kind of stuff is out there, and to be all things to all hairbrains is difficult, but I am getting there.

 What these Macros Seek to Accomplish (Their Purpose)

INSTALLATION: For installing these macros into Word, go here.

IMPORTANT: Most all of these macros will use a submacro routine call DoFindReplace which shortens the code. This internal use macro is not to be run except as a call from another macro. BUT IT MUST BE INSTALLED FOR THE OTHER MACROS TO WORK!!!! Please install it if you install any of the other macros. Go here to install DoFindReplace.

Basically there are specific problems that these macros seek to fix. Here I will give you a brief run down of what the macros are, and what they do (should do).

FixBrokenlines - This basically is a situation where a PDF file or a HTML file has line breaks at the end of every line on the screen, and once copied over to your Microsoft Word Document for touch up, these need to be eliminated. The problem is that some paragraph marks should be there, so the macro seeks to skip those that have a sentence final punctuation mark before the break (period, exclamation mark, or question mark) and replace all the others. It will also seek to remove the hyphenation at the end of the line, and rejoin the word parts. See FixBrokenLines Macro.

Versify - see Versify macro. This is my largest macro with about 800 search and replaces. Still not working perfectly yet though. It will seek to find all the verses in the text and make them into an e-Sword format. Note that this macro includes

(1) Convert all Bible references to their standard e-Sword format. Note that this macro will not make the correct RTF formatting because that is in a separate macro below. 

(2) Convert Arabic numeral references, e.g. John ix. 12.

(3) It also will interpret the series of references in a single book to separate them correctly, e.g.  John 1:2, 12; 3:4. to Joh_1:2; Joh_1:12; Joh_3:4.

RefGreen - This is simple code to make the verse references green underlined for the Microsoft Word Doc. This won't show up in an e-Sword module per say, but it helps to format the text in Word so that you can see the verse references. I say it won't work in e-Sword modules, but if you are making a TOP module, it will work for cut and paste into that module, and it will also work if you save your Microsoft Word document in RTF format and import it into the TOP module. Go to Macro RefGreen

RTFPrepConversion - This makes the Document ready for simple RTF import. Go to Macro RTFPrepConversion

Removecf11 - This is to reverse the RTF formatting (to undo RTFPrepConversion) if that is sometime necessary. Go to Macro Removecf11.

The next 4 macros are helpers to help me find Bible references in a text and check them for correct format or not. Once the text has been versified, run these below. There are two ways of checking, make all the non-Bible reference text invisible, or make all the Bible references invisible. Both have their counter macros to restore the text to normal (visible). I normally work with books that runs hundreds or thousands of pages long. So these macros are very useful to do what I want done. They are "helpers" to quickly allow me to spot exceptions the versify macro didn't convert correctly.

InvisibleRefs - This makes all the correctly formatted verse references invisible. This helps in scanning for verse references that didn't get converted. Go to Macro InvisibleRefs. To restore to all visible run the macro below, VisibleRefs.

VisibleRefs - This returns the invisible refs back to normal black text. (Note: this is the same as selecting the entire document, and setting the text color to automatic.) Go to Macro VisibleRefs

InvisibleWords - This is the companion to the above macro, except it will make invisible all the non-verse reference text. Go to Macro InvisibleWords. To restore to all visible run the macro below, VisibleWords.

VisibleWords - This returns the invisible text back to normal black text. (Note: this is the same as selecting the entire document, and setting the text color to automatic.) Note that this macro will remove any coloring of text in the document. Go to Macro VisibleWords

Convert Romans Numerals to Arabic - This macro Romans will try to convert Roman numerals John 3. xvi to arabic John 3.16. Please note, this will ruin a sermon outline, converting the Roman numerals in it into arabic, corrupting it. Do not use it on documents with outlines! This macro needs the Subroutine DoFindReplace

 Installing the Macros into Word.

INSTALLING IN MSWORD. (Note that my setup is in Spanish XP, so I am guessing at the correct menu options in Word here.)

1. Open MS Word.
2. On the Menu, click, Tools-> Macro-> Visual Basic Editor.
3. Come back to this page, copy below, and then insert in the Visual Basic Editor.
4. On my setup (which may be different for you) I need to put it in Normal -> Modules -> NewMacros for it to be available every time you open Word. (Click on the plus [+] beside Normal to open it, and from the dropdown menu, click on [+] of Modules, then click on [+] of NewMacros.) See graphic at right.
5. Double click on New Macros to open that and then copy and paste into Word. Save and exit Microsoft Visual Basic Editor.

TO REMOVE THIS MACRO FROM WORD

1. On the Menu, click, Tools-> Macro-> Visual Basic Editor. Find the section for the macro you wish to uninstall and delete them. Save and exit.

To use in Word, Alt F8, select the Macro by name from the macro list.

Alternately, to install on the menu bar.

1. Open MS Word.
2. On the MS Word Menu, Click Tools, Personalize.
3. In the popup box (see image below). Note may Word is Spanish, so yours should read 3 tabs, Toolbar, Commands, Options.

   

4. In the "Categories" box on left, find Macros, and in the right box, find Normal.NewMacros.versify, and drag that to the toolbar and location where you want it. While the Personalize box is open, you can right click on the macro "Normal.NewMacros.versify" now on the menu bar, and in the space "Name:" change the name to just "Versify".

TO REMOVE THIS MACRO FROM WORD MENU BAR

1. Open Tools->Personalize. Grab the "Versify" macro on menu bar and drag it back to the Personalize dialog box and it will disappear off the menu bar.

The Individual Macros  

DoFindReplace

Sub DoFindReplace(FindText As String, _
ReplaceText As String, _
bMatchWildcards As Boolean, _
bCase As Boolean, _
bWholeWord As Boolean)

' This is the grunt search and replace subroutine for Versify

With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = FindText
.Replacement.Text = ReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = bCase
.MatchWholeWord = bWholeWord
.MatchWildcards = bMatchWildcards
.MatchSoundsLike = False
.MatchAllWordForms = False
Do While .Execute
'Keep going until nothing found
.Execute Replace:=wdReplaceAll
Loop
'Free up some memory
ActiveDocument.UndoClear
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
End With
End Sub

RefsGreen

What the Macro Does: This macro will format Bible references in MS Word into the lime green color that e-Sword uses for visual inspection of a document. What this macro will do is to mark everything the versify macro will identify as a legitimate e-Sword Bible refence.

To reverse this effect, select all the text in the document, and click on the Highlight button, and click none (automatic) for color.

Sub RefsGreen()
' Green Macro
' Macro recorded on 11/26/2007 by David R. Cox
'
Replace all Verse References
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([0-9A-z]{1,3}_[0-9]{1,3}:[0-9-]{1,7})"
.Replacement.Text = "(openbracket)\1(closebracket)"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With

Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "(openbracket)"
.Replacement.Text = "{\cf11 \ul"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "(closebracket)"
.Replacement.Text = "}"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

' Replace Correct for double coding
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "{\cf11 \ul {\cf11 \ul "
.Replacement.Text = "{\cf11 \ul "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "}}"
.Replacement.Text = "}"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
End Sub

RTFPrepConversion

Removecf11

Sub Removecf11()
'
' Removecf11 Macro
' Macro grabada el 05/12/2007 por David R. Cox
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "\par"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "{\cf11 \ul "
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "}"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "_"
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
Selection.Font.color = wdColorAutomatic
Selection.WholeStory
If Selection.Font.Underline = wdUnderlineNone Then
Selection.Font.Underline = wdUnderlineSingle
Else
Selection.Font.Underline = wdUnderlineNone
End If
End Sub
Sub RTFItalicsOne()
'
' RTFItalics Macro
' Macro grabada el 04/04/2008 por David R. Cox
'
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.TypeText Text:=""" \i0}"
Selection.MoveUp unit:=wdParagraph, Count:=1
Selection.TypeText Text:="{\i """
End Sub

InvisibleRefs

Sub InvisibleRefs()
'
' Invisi Macro for References
' Macro grabada el 26/11/2007 por David R. Cox
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([A-z0-9]{1,3}_[0-9]{1,3}:[0-9-]{1,7})"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Replacement.Font.color = wdColorWhite
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

VisibleRefs

Sub VisibleRefs()
' VisibleRefs Macro
' Macro grabada el 26/11/2007 por David R. Cox
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([A-z0-9]{1,3}_[0-9]{1,3}:[0-9-]{1,7})"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Replacement.Font.color = wdColorBlack
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

InvisibleWords

Sub InvisibleWords()
' Invisi Macro for Words Text
' Macro grabada el 26/11/2007 por David R. Cox
'

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([A-z]{1,3})"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Replacement.Font.color = wdColorWhite
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

VisibleWords

Sub VisibleWords()
'
' Visible Macro for Text
' Macro grabada el 26/11/2007 por David R. Cox
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "([A-z]{1,3})"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Replacement.Font.color = wdColorBlack
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub