Word macro for use with Greek fonts
Rodney J. Decker
rdecker at bbc.edu
Wed Jan 20 09:18:08 EST 1999
> On the b-greek mailing list you mentioned a macro you have for Word
>that will convert spaces to Times New Roman so that Greek words do not
>split at the end of lines. I have been doing this same thing manualy.
>Would it be possible for you to email a copy of that macro to me? I
>would greatly appreciate it!
Since I've been asked off-list, perhaps there are others who would be
interested. Here is the portion of the Word 97 macro that I use to convert
the non-breaking Graeca spaces to Times New Roman. It can easily be adapted
to find and replace different fonts or different characters. A "macro-guru"
could probably do it more elegantly than this--I just turned on the macro
recorder and performed the steps necessary. This is actually only one step
of a much longer macro that I use when I bring material originally prepared
in Mac Word 5.1 into WinWord 97 for classroom use. (Colors don't translate
correctly either: blue comes across as turquoise, etc.)
Rod
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Font.Name = "GraecaII"
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Name = "Times New Roman"
With Selection.Find
.Text = ChrW(61472)
.Replacement.Text = " "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
****************************************************
Rodney J. Decker, Th.D. Baptist Bible Seminary
Dept. of NT P.O. Box 800, Clarks Summit, PA 18411
http://faculty.bbc.edu/rdecker/
The *Resources for NT Study* page is accessible at:
http://faculty.bbc.edu/rdecker/rd_rsrc.htm
****************************************************
More information about the B-Greek
mailing list