Page 2 of 2 FirstFirst 12
Results 11 to 14 of 14

Thread: convert bwhebb.ttf to unicode

  1. #11

    Default Other converters for Graeca?

    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.

    ------------------------------------------
    Roy E. Ciampa, Ph.D.
    Associate Professor of New Testament
    Gordon-Conwell Theological Seminary
    130 Essex Street
    South Hamilton, MA 01982

  2. #12

    Default Graeca to Bwgrkl

    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

  3. #13

    Default GraecaII vs. Graeca

    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!

    ------------------------------------------
    Roy E. Ciampa, Ph.D.
    Associate Professor of New Testament
    Gordon-Conwell Theological Seminary
    130 Essex Street
    South Hamilton, MA 01982

  4. #14

    Default Conversion Utility

    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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •