輸入法, Input Method

漢語拼音的音調輸入法 (word 巨集 by 捷立, 2013.9)

線上輸入轉寫字 (Diacritics): Transliteration & Transkription Tool

Diacritic and Indic Script Conversion · diCrunch (線上轉換)

itranslator

• 可輸入羅馬轉寫、梵文天城體

• win 7 不能用

梵文天城體

• Sanskrit Writer

• 北京大學 梵佛研 PKU 輸入法

藏文輸入法

Microsoft Word

以下巨集, 可以在 word 裡, 將選取區裡的 .r 等轉寫字串取代為轉寫字 Unicode

Sub RM_Velthuis_transliteration()

'

' devanagari_romanization macro

' use Velthuis of transliteration from Devanagari to the Roman script

' by Ray (zhoubx@gmail.com) 20130814

' Transliteration Comparison reference: https://en.wikipedia.org/wiki/Devanagari_transliteration

' the transliteration of upper case is created by Kwok Jie Li

'

    Call my_replace("aa", ChrW(&H101))

    Call my_replace("ii", ChrW(&H12B))

    Call my_replace("uu", ChrW(&H16B))

    Call my_replace(".ll", ChrW(&H1E39))

    Call my_replace(".l", ChrW(&H1E37))

    Call my_replace(".rr", ChrW(&H1E5D))

    Call my_replace(".r", ChrW(&H1E5B))

    Call my_replace(".m", ChrW(&H1E43))

    Call my_replace(".h", ChrW(&H1E25))

    Call my_replace("""n", ChrW(&H1E45))

    Call my_replace("""s", ChrW(&H15B))

    Call my_replace("~n", ChrW(&HF1))

    Call my_replace(".t", ChrW(&H1E6D))

    Call my_replace(".d", ChrW(&H1E0D))

    Call my_replace(".n", ChrW(&H1E47))

    Call my_replace(".s", ChrW(&H1E63))

' transliteration below is create by own definition

    Call my_replace("AA", ChrW(&H100))

    Call my_replace("II", ChrW(&H12A))

    Call my_replace("UU", ChrW(&H16A))

    Call my_replace(".LL", ChrW(&H1E38))

    Call my_replace(".L", ChrW(&H1E36))

    Call my_replace(".RR", ChrW(&H1E5C))

    Call my_replace(".R", ChrW(&H1E5A))

    Call my_replace(".M", ChrW(&H1E42))

    Call my_replace(".H", ChrW(&H1E24))

    Call my_replace("""N", ChrW(&H1E44))

    Call my_replace("~N", ChrW(&HD1))

    Call my_replace(".T", ChrW(&H1E6C))

    Call my_replace(".D", ChrW(&H1E0C))

    Call my_replace(".N", ChrW(&H1E46))

    Call my_replace("""S", ChrW(&H15A))

    Call my_replace(".S", ChrW(&H1E62))

End Sub

Sub RM_Harvard_Kyoto_transliteration()

'

' devanagari_romanization macro

' use Harvard-Kyoto of transliteration from Devanagari to the Roman script

' Transliteration Comparison reference: https://en.wikipedia.org/wiki/Devanagari_transliteration

' by Ray (zhoubx@gmail.com) 20130814

'

'

    Call my_replace("A", ChrW(&H101))

    Call my_replace("I", ChrW(&H12B))

    Call my_replace("U", ChrW(&H16B))

    Call my_replace("lRR", ChrW(&H1E39))

    Call my_replace("lR", ChrW(&H1E37))

    Call my_replace("RR", ChrW(&H1E5D))

    Call my_replace("R", ChrW(&H1E5B))

    Call my_replace("M", ChrW(&H1E43))

    Call my_replace("H", ChrW(&H1E25))

    Call my_replace("G", ChrW(&H1E45))

    Call my_replace("z", ChrW(&H15B))

    Call my_replace("J", ChrW(&HF1))

    Call my_replace("T", ChrW(&H1E6D))

    Call my_replace("D", ChrW(&H1E0D))

    Call my_replace("N", ChrW(&H1E47))

    Call my_replace("S", ChrW(&H1E63))

End Sub

Sub my_replace(c1 As String, c2 As String)

    Set myrange = Selection.range

    myrange.Find.ClearFormatting

    myrange.Find.Replacement.ClearFormatting

    With myrange.Find

        .Text = c1

        .Replacement.Text = c2

        .Forward = True

        .Wrap = wdFindStop

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchByte = True

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

    End With

    myrange.Find.Execute Replace:=wdReplaceAll

End Sub

對照表

IAST Velthuis ā aa ī ii ū uu ṛ .r ṝ .rr ḷ .l ḹ .ll ṃ .m ḥ .h ṅ "n ñ ~n ṭ .t ḍ .d ṇ .n ś "s ṣ .s  Ā AA Ī II Ū UU Ṛ .R Ṝ .RR Ḷ .L Ḹ .LL Ṃ .M Ḥ .H Ṅ "N Ñ ~N Ṭ .T Ḍ .D Ṇ .N Ś "S Ṣ .S