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

2011/11/8 2022/10/23 コード 0
Symbolフォント, 文字入力

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

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

このマクロでできること

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

マクロの解説

ChrW 関数を用いて文字を入力しています（8行目～9行目）。

Selection.TypeText Text:=ChrW(i)

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

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

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

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

マクロ１（ギリシャ文字の大文字）


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

マクロ２（ギリシャ文字の小文字）


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

このマクロでできること

マクロの解説

マクロ１（ギリシャ文字の大文字）

マクロ２（ギリシャ文字の小文字）

関連記事