Word macro to convert bwgrkl font to Unicode available

[RandyL]

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

[J Kendall]

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