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
関連記事
- 【Word VBA】Symbolフォントのギリシャ文字を入力するWordマクロ
- 【Word VBA】Symbolフォントのギリシャ文字を蛍光ペンで着色するWordマクロ
- 【Word VBA】Symbolフォントのギリシャ文字を蛍光ペンで着色するWordマクロ(解説)
- 【Word VBA】Symbolフォントの段落番号を通常の段落番号に変換するWordマクロ
- 【Word VBA】こうすればできる!!シンボルフォントを検索するWordマクロ
- 【Word VBA】こうすればできる!!シンボルフォントを検索するWordマクロ(2)
- 【Word VBA】こうすればできる!!シンボルフォントを検索するWordマクロ(3)
- 【Word VBA】こうすればできる!!シンボルフォントを検索するWordマクロ(4)
- 【Word VBA】ギリシャ文字をシンボルフォントに変更するWordマクロ
- 【Word VBA】ギリシャ文字をシンボルフォントに変更するWordマクロ(その2)