convert bwhebb.ttf to unicode

[Roy Ciampa]

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]

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]

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]

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.