回答編集履歴
1
コード修正
test
CHANGED
@@ -8,6 +8,7 @@
|
|
8
8
|
'ひとつ前の文字が漢字以外だったら
|
9
9
|
Select Case Hex(AscW(Selection.Text))
|
10
10
|
Case "4E00" To "9FFF"
|
11
|
+
Case Else
|
11
12
|
Selection.Font.Italic = True
|
12
13
|
Selection.Font.Spacing = 2
|
13
14
|
End Select
|