エスペラント文字等 置換 雑記

電算上のエスペラント文字等に関するメモ

代用文字をエスペラント文字等（ĈĜĤĴŜŬ ĉĝĥĵŝŭ ÂÊÎÔÛ âêîôû）の正書文字に置換することについて

キーボード設定ソフトEsperantumigiloは、
関西エスペラント連盟または開発者のタニ・ヒロユキ氏から購入可能。
デッドキー操作によってエスペラント文字等を入力できる。
最も妥当な入力手段。

Espizo JavaScript ( .html )は、Windows CE 3.0（ HTML3.0対応 ）向けであり、
これより新しいバージョンでは、Lingvo.org の
タイプ入力サイト klavaro と eotajpu.js のほうが便利。
x接尾字の代用文字を入力すると、自動的にエスペラント文字に置換する。
インターネット上で使うことができるし、 IEのメニューバーの[ファイル]の[名前を付けて保存..]で、
ローカルディスクにダウンロードして、自分用のPC上で使うこともできる。

こちらも参照のこと。Type Esperanto characters

VBA／VBScriptでのChrW関数による表現

C^ : ChrW(264)
G^ : ChrW(284)
H^ : ChrW(292)
J ^: ChrW(308)
S ^: ChrW(348)
U^ : ChrW(364)

c ^: ChrW(265)
g^ : ChrW(285)
h^ : ChrW(293)
j ^: ChrW(309)
s^ : ChrW(349)
u^ : ChrW(365)

A^ : ChrW(194)
E^ : ChrW(202)
I^ : ChrW(206)
O^ : ChrW(212)
U_ : ChrW(219)

a^ : ChrW(226)
e^ : ChrW(234)
i^ : ChrW(238)
o^ : ChrW(244)
u_ : ChrW(251)

文字化けするLatin_3フォント使用エスペラント文字のChrW関数による表現
Æ : C^ : ChrW(198)
Ø : G^ : ChrW(216)
¦ : H^ : ChrW(166)
¬ : J^ : ChrW(172)
Þ : S^ : ChrW(222)
Ý : U^ : ChrW(221)

æ : c^ : ChrW(230)
ø : g^ : ChrW(248)
¶ : h^ : ChrW(182)
¼ : j^ : ChrW(188)
þ : s^ : ChrW(254)
ý : u^ : ChrW(253)

Microsoft VBAによる文字列置換マクロ
Word VBAの場合、「^」を検索する時、「^^」を検索文字に指定する必要がある。
Excel VBAの場合、「~」を検索する時、「~~」を検索文字に指定する必要がある。

Word VBAの場合
' 「c^」あるいは「cx」を「ĉ」に置換
With Selection.Find
  .ClearFormatting
  .Find.Replacement.ClearFormatting
  .Text = "c" + suffixC ‘ suffixCに「^」「x」に代入
  .Replacement.Text = ChrW(265)
  .Forward = True
  .Wrap = wdFindContinue
  .MatchCase = True
  .Execute Replace:=wdReplaceAll
End With

Excel VBAの場合
' 「c^」あるいは「cx」を「ĉ」に置換
Cells.Replace What:= "c" +suffixC, Replacement:=ChrW(265), LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=True, SearchFormat:=False, ReplaceFormat:=False

PowerPoint VBAの場合
' 「cx」を「ĉ」に置換
Sub EspConv()
  Dim mySlide As Slide
  Dim myShape As Shape
  Dim myTxtRng As TextRange
  Dim TmpRng As TextRange
'
  With ActivePresentation
    For Each mySlide In .Slides
      For Each myShape In mySlide.Shapes
        If myShape.HasTextFrame Then
          Set myTxtRng = myShape.TextFrame.TextRange
          Do
            Set TmpRng = myTxtRng.Replace(FindWhat:="cx", ReplaceWhat:=ChrW(265), _
            MatchCase:=msoTrue, WholeWords:=msoFalse)
          Loop While Not TmpRng Is Nothing
        End If
      Next myShape
    Next mySlide
  End With
End Sub