【Word VBA】Symbolフォントのギリシャ文字を入力するWordマクロ

2011年11月8日

Symbolフォントの練習で作ったマクロです。

Symbolフォントのギリシャ文字を出すのが少し面倒だったので作りました。

このマクロでできること

Symbolフォントのギリシャ文字の大文字・小文字を入力できます。

マクロの解説

ChrW 関数を用いて文字を入力しています(8行目~9行目)。

Selection.TypeText Text:=ChrW(i)

ポイントは、Symbolフォントを入力する場合には、フォント名を最初に指定しないとカーソル位置のフォント名の影響を受けてしまい文字化けしてしまうということです(5行目)。

Symbolフォントのギリシャ文字の文字コードが、標準のMS 明朝とCenturyの組み合わせに対応する文字がないのですね。

なので、フォント名を指定しているわけです。

あくまでも入力しているのは、文字コードという情報なので、それを正しく見せるために、正しいフォント名を指定するのです。

マクロ1(ギリシャ文字の大文字)


Sub Symbolフォントのギリシャ文字入力_大文字()

 Dim i As Long

 Selection.Font.Name = "Symbol"

 For i = 61505 To 61530
  With Selection
   .TypeText Text:=ChrW(i)
   .TypeParagraph
  End With
 Next i

End Sub

マクロ2(ギリシャ文字の小文字)


Sub Symbolフォントのギリシャ文字入力_小文字()

 Dim i As Long

 Selection.Font.Name = "Symbol"

 For i = 61537 To 61562
  With Selection
   .TypeText Text:=ChrW(i)
   .TypeParagraph
  End With
 Next i

End Sub

関連記事

-コード
-,