【Word VBA】漢字探しクイズ作成マクロ▽ソースコード
Option Explicit
Option Base 0
'
Public Sub 漢字探しクイズ作成マクロ()
Const KFNDLEFT = 100 '描画開始位置X
Const KFNDTOPP = 100 ' Y
Const KFNDWIDT = 275 'テキストボックス幅
Const KFNDHEIG = 240 'テキストボックス高さ
'
Const KFNDCOLS = 12 '横文字数
Const KFNDROWS = 9 '縦段数
'
Const KFNDCHR1 = "梅" '探す 漢字
Const KFNDCHR2 = "悔" '惑わす漢字
'
Const KFNDFNTN = "MS ゴシック" 'フォント名
Const KFNDFNTS = 20 'フォントサイズ
Const KFNDLNSP = 24 '改行幅
'---------------------------------------------------------------------------
Dim Ip As In
0