【Word VBA】デカ文字文書作成マクロ▽ソースコード
画像は、30%の倍率で表示したものです。Option Explicit
Option Base 0
'
Public Sub デカ文字文書作成マクロ()
'↓フォント名
Const DECAFONTNAME = "UD デジタル 教科書体 NK-B"
Const DECAFONTSIZE = 470 'フォントサイズ
'↓表示文字
Const DECAMOJIRETU = "歳末大売出し"
Const DECALINEWEIG = 3 '輪郭線の太さ
'↓アートスタイル
Const DECATEXTEFFE = msoTextEffect1
'---------------------------------------------------------------------------
Dim Ip As Integer
Dim docDst As Document
Dim lngCol(1) As Long
'
lngCol(0) = vbBlack '←輪郭線色
lngCol(1) = vbRed '←文字色
'
Set docDst = Application.Documents.Add
docDst.Content.Select
'*1文字目のワードアートを描画
With docDst.Shapes.AddTextEffect(DECATEXTEFFE, _
0