Krishna Tech: Kṛṣṇa VS Kåñëa–Balarama Font Macros Converter for Word

0

Kṛṣṇa’s holy name is transcendental.  Therefore it is not surprising that it remains transcendental, even when altered by the font conversion process.   When pasting on the web a text with Balarama font the name Kṛṣṇa becomes Kåñëa.   That is not too bad as one of Kṛṣṇa’s names is Kanhaiya.  However when words such as Śrīla become Çréla and other words are sometimes very hard to figure out, it becomes frustrating.  However there is a simple solution that will allow you to maintain all your files formatting.  Keeping all your Bolds, your   centered    text, italics, and everything in between.  It is Macros, by using macros one can changes the Balarama diacritic characters to the correct corresponding unicode characters that remain readable on the web and can be seen in pretty much all fonts.  This also means that searching become easier to use as well. 

The macros that I was able to put together can be found here.  https://pastee.org/qhp8a It also works on your footnotes as well. 

Notes:

If you have a file that has footnotes it will convert it and save it as is.  If it the files does not have footnotes it will say error and you can choose end or debug.   Press end and save or save as and you are done. 
Do not use files that have fonts that are similar to the diacritics in Balarama but have different corresponding letters to the diacritics letters.  I think Tamal is ok, It seems like the all corresponding letters that are converted are the same as the Balarama font

this is the macros

Sub di_balaram_unicode()
'
' Macro: di_balaram_unicode
' Automatically produced by diCrunch v2.00:b5
' Creation date: Tue, 05 Jun 2007 13:31:45 +0000
' Online at http://www.bhasa.net/diCrunch.php
'

With Selection.Find
.Text = "Ä"
.Replacement.Text = ChrW(256)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "É"
.Replacement.Text = ChrW(298)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ü"
.Replacement.Text = ChrW(362)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Å"
.Replacement.Text = ChrW(7770)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "È"
.Replacement.Text = ChrW(7772)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ì"
.Replacement.Text = ChrW(7748)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ï"
.Replacement.Text = "Ñ"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ö"
.Replacement.Text = ChrW(7788)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ò"
.Replacement.Text = ChrW(7692)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ë"
.Replacement.Text = ChrW(7750)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ç"
.Replacement.Text = ChrW(346)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ñ"
.Replacement.Text = ChrW(7778)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "À"
.Replacement.Text = ChrW(7744)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ù"
.Replacement.Text = ChrW(7716)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ß"
.Replacement.Text = ChrW(7734)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ß"
.Replacement.Text = ChrW(7736)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ".Ò"
.Replacement.Text = ChrW(7694)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ý"
.Replacement.Text = ChrW(7822)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ä"
.Replacement.Text = ChrW(257)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "é"
.Replacement.Text = ChrW(299)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ü"
.Replacement.Text = ChrW(363)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "å"
.Replacement.Text = ChrW(7771)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "è"
.Replacement.Text = ChrW(7773)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ì"
.Replacement.Text = ChrW(7749)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ï"
.Replacement.Text = "--j--"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ö"
.Replacement.Text = ChrW(7789)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ò"
.Replacement.Text = ChrW(7693)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ë"
.Replacement.Text = ChrW(7751)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ç"
.Replacement.Text = ChrW(347)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ñ"
.Replacement.Text = ChrW(7779)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "à"
.Replacement.Text = ChrW(7745)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ù"
.Replacement.Text = ChrW(7717)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ÿ"
.Replacement.Text = ChrW(7735)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "û"
.Replacement.Text = ChrW(7737)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ".ò"
.Replacement.Text = ChrW(7695)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ý"
.Replacement.Text = ChrW(7823)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "~"
.Replacement.Text = ChrW(625)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "_"
.Replacement.Text = ChrW(814)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "'"
.Replacement.Text = "'"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "~"
.Replacement.Text = ChrW(625)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "/x"
.Replacement.Text = "/x"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(8230)
.Replacement.Text = ChrW(8230)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(8217)
.Replacement.Text = ChrW(8217)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "--j--"
.Replacement.Text = "ñ"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Call Macro1
Call FootnotesSelect
Call Macro2
Selection.Font.Name = "Times New Roman"

ActiveDocument.Save
ActiveWindow.Close

End Sub

Sub Macro1()
'
' Macro1 Macro
'
'
Selection.WholeStory
Selection.Font.Name = "Times New Roman"
End Sub

Sub Macro2()

With Selection.Find
.Text = "Ä"
.Replacement.Text = ChrW(256)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "É"
.Replacement.Text = ChrW(298)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ü"
.Replacement.Text = ChrW(362)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Å"
.Replacement.Text = ChrW(7770)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "È"
.Replacement.Text = ChrW(7772)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ì"
.Replacement.Text = ChrW(7748)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ï"
.Replacement.Text = "Ñ"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ö"
.Replacement.Text = ChrW(7788)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ò"
.Replacement.Text = ChrW(7692)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ë"
.Replacement.Text = ChrW(7750)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ç"
.Replacement.Text = ChrW(346)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ñ"
.Replacement.Text = ChrW(7778)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "À"
.Replacement.Text = ChrW(7744)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ù"
.Replacement.Text = ChrW(7716)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ß"
.Replacement.Text = ChrW(7734)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ß"
.Replacement.Text = ChrW(7736)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ".Ò"
.Replacement.Text = ChrW(7694)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "Ý"
.Replacement.Text = ChrW(7822)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ä"
.Replacement.Text = ChrW(257)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "é"
.Replacement.Text = ChrW(299)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ü"
.Replacement.Text = ChrW(363)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "å"
.Replacement.Text = ChrW(7771)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "è"
.Replacement.Text = ChrW(7773)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ì"
.Replacement.Text = ChrW(7749)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ï"
.Replacement.Text = "--j--"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ö"
.Replacement.Text = ChrW(7789)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ò"
.Replacement.Text = ChrW(7693)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ë"
.Replacement.Text = ChrW(7751)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ç"
.Replacement.Text = ChrW(347)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ñ"
.Replacement.Text = ChrW(7779)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "à"
.Replacement.Text = ChrW(7745)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ù"
.Replacement.Text = ChrW(7717)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ÿ"
.Replacement.Text = ChrW(7735)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "û"
.Replacement.Text = ChrW(7737)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ".ò"
.Replacement.Text = ChrW(7695)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "ý"
.Replacement.Text = ChrW(7823)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "~"
.Replacement.Text = ChrW(625)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "_"
.Replacement.Text = ChrW(814)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "'"
.Replacement.Text = "'"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "~"
.Replacement.Text = ChrW(625)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "/x"
.Replacement.Text = "/x"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(8230)
.Replacement.Text = ChrW(8230)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = ChrW(8217)
.Replacement.Text = ChrW(8217)
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
.Text = "--j--"
.Replacement.Text = "ñ"
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub
Sub FootnotesSelect()
'
' FootnotesSelect Macro
' Opens footnotes and selects for editing.
'
If ActiveWindow.ActivePane.View.Type = wdPrintView Or ActiveWindow. _
ActivePane.View.Type = wdWebView Or ActiveWindow.ActivePane.View.Type = _
wdPrintPreview Then
ActiveWindow.View.SeekView = wdSeekFootnotes
Else
ActiveWindow.View.SplitSpecial = wdPaneFootnotes
End If
Selection.WholeStory
End Sub

Holy name

People should learn to respect the holy name of krishna