Results 1 to 2 of 2

Thread: Word macro to convert bwgrkl font to Unicode available

  1. #1
    Join Date
    Apr 2006
    Posts
    12

    Default Word macro to convert bwgrkl font to Unicode available

    I've developed an extensively tested (in Windows, not Mac) a Microsoft Word macro to convert bwgrkl font to Unicode, using the output font of your choice from those installed on your system. I'm making it available on a shareware basis: pay what you think it's worth for your particular application, from zero to whatever. All remuneration appreciated, no questions and no complaints!

    You can find it at www.ntgreekguy.com. Scroll down to the appropriate part of the home page and click for more information and to download.

    I would be happy to see information about this macro posted elsewhere on the internet, with no restrictions that I can think of.

    Randy Leedy
    Greenville SC

  2. #2

    Default A further enhancement

    That's really very nice, Randy.

    Users might also find the following macro useful to remove Word's spellchecking markup by changing the converted Unicode text to Greek language. Feel free to incorporate it into your work.

    Blessings,

    John

    -----------------
    Sub GreekTextToLanguage()

    GreekTextToLanguageBody
    GreekTextToLanguageFootnotes

    End Sub


    Sub GreekTextToLanguageBody()

    'Greek Unicode character ranges: 880-1023 & 7936-8191

    Dim i As Integer
    Dim x As Integer

    For i = 880 To 1024

    With ActiveDocument.Content.Find
    .ClearFormatting
    .MatchCase = True
    .Text = ChrW(i)
    With .Replacement
    .ClearFormatting
    .Text = ChrW(i)
    .LanguageID = wdGreek
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
    End With

    Next i

    For x = 7836 To 8191

    With ActiveDocument.Content.Find
    .ClearFormatting
    .MatchCase = True
    .Text = ChrW(x)
    With .Replacement
    .ClearFormatting
    .Text = ChrW(x)
    .LanguageID = wdGreek
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
    End With

    Next x

    End Sub
    Sub GreekTextToLanguageFootnotes()

    'Greek Unicode character ranges: 880-1023 & 7936-8191

    Dim i As Integer
    Dim x As Integer

    For i = 880 To 1024

    With ActiveDocument.StoryRanges(wdFootnotesStory).Find
    .ClearFormatting
    .MatchCase = True
    .Text = ChrW(i)
    With .Replacement
    .ClearFormatting
    .Text = ChrW(i)
    .LanguageID = wdGreek
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
    End With

    Next i

    For x = 7836 To 8191

    With ActiveDocument.Content.Find
    .ClearFormatting
    .MatchCase = True
    .Text = ChrW(x)
    With .Replacement
    .ClearFormatting
    .Text = ChrW(x)
    .LanguageID = wdGreek
    End With
    .Execute Format:=True, Replace:=wdReplaceAll
    End With

    Next x

    End Sub

Posting Permissions

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