PDA

View Full Version : convert bwhebb.ttf to unicode



Andrew Steinmann
11-29-2004, 02:43 PM
Does anyone know of a macro for use in word that will convert Bible Works Hebrew font to Unicode?

Philip Brown
11-29-2004, 07:44 PM
Hi, Andrew,

Galaxie Software (Hampton Keathley) was debuting at ETS a program that does this very thing.

You can find it at http://www.galaxie.com/store/product.asp?ProductID=27

Roy Ciampa
11-30-2004, 10:41 AM
I wish there were more information on the product at the website. It does not say anything about BibleWorks fonts or any fonts other than Galaxie fonts as far as I can tell. If it allows for the conversion of other fonts it would be nice to include that in the product description.

Joe Fleener
11-30-2004, 12:15 PM
I spoke with Hampton @ ETS and got the impression that it was limited to just the conversion of Galaxie fonts.

That could be a wrong impression, but I would think that if could do "any" font that would be a powerful tool and they would advertise it as such.

Michael Hanel
11-30-2004, 01:27 PM
I'm not a font expert by any means, but to get a macro to convert the BibleWorks font to Unicode or vice versa wouldn't it be as "easy" as it is with the Greek-Unicode macro that others have done? In other words, isn't all that is needed just for someone to make the approriate character map so they know what swaps for what and that's your macro?

The other thought i guess is that the new BibleWorks editor should be able to do this automatically from what I've gathered of the descriptions given.

Mike
MDiv Student Concordia Seminary
MA Classics Student Washington University

Joe Fleener
11-30-2004, 02:04 PM
I'm not a font expert by any means, but to get a macro to convert the BibleWorks font to Unicode or vice versa wouldn't it be as "easy" as it is with the Greek-Unicode macro that others have done? In other words, isn't all that is needed just for someone to make the approriate character map so they know what swaps for what and that's your macro?

The other thought i guess is that the new BibleWorks editor should be able to do this automatically from what I've gathered of the descriptions given.

Mike
MDiv Student Concordia Seminary
MA Classics Student Washington University
Your first statement is correct, it is not "rocket science," just takes time.

However, you are correct too, that the new editor has been advertised to take away these issues.

jdarlack
12-01-2004, 10:12 AM
I wish there were more information on the product at the website. It does not say anything about BibleWorks fonts or any fonts other than Galaxie fonts as far as I can tell. If it allows for the conversion of other fonts it would be nice to include that in the product description.
I spoke with Hampton @ ETS and got the impression that it was limited to just the conversion of Galaxie fonts.
I figured I'd point this out:

Also included in this package are font conversion macros for Microsoft Word 2000 or later which allow you to convert many other manufacturer’s “old-fashioned” Greek and Hebrew fonts to the Galaxie “old-fashioned” Greek and Hebrew fonts. And you can then convert Galaxie Greek and Hebrew to Unicode. (Quoted from the Galaxie Software Site on 12.1.04)
So it looks like it will convert BWgrkl/hebb into non-Unicode Galaxie fonts and then convert the non-Unicode Galaxie fonts into Unicode.

Joe Fleener
12-01-2004, 10:36 AM
Jim,

Thanks for the clarification.

Philip Brown
12-01-2004, 02:07 PM
I wish there were more information on the product at the website. It does not say anything about BibleWorks fonts or any fonts other than Galaxie fonts as far as I can tell. If it allows for the conversion of other fonts it would be nice to include that in the product description.
... and here's what he said:

the program handles graeca, graecaII, bwgreek, sgreek, supergreek and the corresponding hebrew versions of each
I also do mounce's fonts.

I thow away hebrew cantillations in the process of converting other fonts to galaxie fonts

I've had a couple customers that extensively tested the graeca/hebraica stuff and it works great. I won't swear that the bwgreek/bwhebrew is perfect, but it should be close - and we're quick to fix problems if customers send us the offending document

The conversion process is - click the "bwgreek" button to get from bwgreek to galaixe greek then click the "Galaxie Greek to Unicode" button to go to Unicode Greek
same 2 step process for hebrew

Hope that's helpful

Roy Ciampa
12-02-2004, 10:45 AM
I guess I missed the info Jim Darlack has now pointed out to me (assuming it was there when I first checked). That and the other clarifications help a great deal.

Thanks!

Roy Ciampa
12-02-2004, 07:40 PM
I do have some old documents full of Graeca. Does anyone know of other macros to convert such fonts to updated unicode or non-unicode fonts? Does anyone know if the new BW update will have such capacities?

Thanks.

Philip Brown
12-04-2004, 11:40 AM
Hi, Roy,

I don't think there is much if any difference between GraecaII and Graeca. Somebody correct me if I'm wrong.

Here the macro I wrote to convert Graeca to Bwgrkl.

Sub GraecaIIToBwgrkl()
'
' GraecaIIToBwgrkl Macro
' Macro recorded 10/4/2003 by Dr. A. Philip Brown II
'
Options.AutoFormatAsYouTypeReplaceQuotes = False
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
'Left parenthesis
.Text = "("
.Replacement.Text = "$"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'comma
.Text = ","
.Replacement.Text = "("
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'Right parenthesis
.Text = ")"
.Replacement.Text = "%"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'Period
.Text = "."
.Replacement.Text = ")"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'accute accent
.Text = "v"
.Replacement.Text = ","
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'smooth breathing mark
.Text = "j"
.Replacement.Text = "v"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'final sigma
.Text = """"
.Replacement.Text = "j"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'alternate final sigma
.Text = "~"
.Replacement.Text = "j"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'rough breathing by capital letter
.Text = "ď"
.Replacement.Text = "~"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'circumflex + rough breathing mark
.Text = "|"
.Replacement.Text = "-"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'iota subscript
.Text = "/"
.Replacement.Text = "|"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'circumflex
.Text = "'"
.Replacement.Text = "/"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'alternate circumflex
.Text = "`"
.Replacement.Text = "/"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'rough breathing mark
.Text = "J"
.Replacement.Text = "`"
.MatchCase = True
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'grave accent
.Text = ";"
.Replacement.Text = "."
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'smooth breathing mark + acute accent
.Text = "["
.Replacement.Text = ";"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'rough breathing mark + acute accent
.Text = "{"
.Replacement.Text = "["
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'smooth breathing mark + grave accent
.Text = "]"
.Replacement.Text = "'"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'rough breathing mark + grave accent
.Text = "}"
.Replacement.Text = "]"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'smooth breathing mark + circumflex
.Text = "\"
.Replacement.Text = "="
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'semi-colon
.Text = ":"
.Replacement.Text = "\"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'Close smooth breathing mark for Capitals
.Text = "Ć"
.Replacement.Text = "V"
.MatchCase = True
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'diaeresis + acute accent
.Text = "?"
.Replacement.Text = "<"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'diaeresis
.Text = ">"
.Replacement.Text = "?"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'diaeresis + grave accent
.Text = "Ö"
.Replacement.Text = ">"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'Greek question mark
.Text = "É"
.Replacement.Text = "*"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'Greek dash
.Text = "-"
.Replacement.Text = "&"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
'Close smooth breathing mark + acute accent
.Text = "Ň"
.Replacement.Text = ":"
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
'Replace all GraecaII with Bwgrkl
.Text = ""
.Replacement.Text = ""
.Font.Name = "GraecaII"
.Replacement.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ") ) )"
.Replacement.Text = ")))"
.Font.Name = "Bwgrkl"
End With
Selection.Find.Execute Replace:=wdReplaceAll
' With Selection.Find
' .Text = ". . ."
' .Replacement.Text = "..."
' .Font.Name = "Times New Roman"
' End With
' Selection.Find.Execute Replace:=wdReplaceAll

Options.AutoFormatAsYouTypeReplaceQuotes = True
End Sub

Roy Ciampa
12-05-2004, 09:13 PM
Thanks Philip, but they do work differently and the macro doesn't do the trick. It turns everything into boxes. (As I guessed, since the same thing happens when I try to reformat Graeca texts as GraecaII texts.

I appreciate the attempt to help though!

Kevin Townsend
12-30-2004, 07:15 PM
I'm not sure if this is relevant to you (it's probably a lot 'bigger' than the solution you want), but I had recently posted a small program I wrote to convert BW6 Hebrew text to XML in Unicode format.

The problem is whether an XML file is useful to you so far as getting the Hebrew Unicode data out. The program can convert XML to any other text format with a thing called 'XSL', and I've included a very quick example to make an HTML file. I've also posted the conversion rules to change CCAT Hebrew characters to Unicode, but this doesn't apply to the BW Hebrew Font (which is more complicated to convert to Unicode because of the word/letter ordering being backwords, and the problem this introduces of seperating vowels from consonants, etc.).

This is probably more than you are looking for (and a bit more work as well), but you can find the program referenced here:

http://www.bibleworks.com/forums/showthread.php?t=604
Kevin Townsend.