【Word VBA】デカ文字文書作成マクロ▽ソースコード

画像は、３０％の倍率で表示したものです。

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

    '*１文字目のワードアートを描画

    With docDst.Shapes.AddTextEffect(DECATEXTEFFE, _

         Mid(DECAMOJIRETU, 1, 1), _

         DECAFONTNAME, DECAFONTSIZE, msoFalse, msoFalse, _

         docDst.PageSetup.LeftMargin, docDst.PageSetup.TopMargin)

        .Line.Visible = msoTrue

        .Line.ForeColor.RGB = lngCol(0)

        .Line.Weight = DECALINEWEIG

        .Fill.Visible = msoTrue

        .Fill.ForeColor.RGB = lngCol(1)

    End With

    '

    For Ip = 2 To Len(DECAMOJIRETU)

        Selection.Collapse Direction:=wdCollapseEnd

        Selection.InsertBreak (wdPageBreak)

        Selection.Move Unit:=wdParagraph, Count:=Ip

        '*２文字目以降のワードアートを描画

         With docDst.Shapes.AddTextEffect(DECATEXTEFFE, _

         Mid(DECAMOJIRETU, Ip, 1), _

         DECAFONTNAME, DECAFONTSIZE, msoFalse, msoFalse, _

         docDst.PageSetup.LeftMargin, docDst.PageSetup.TopMargin)

            .Line.Visible = msoTrue

            .Line.ForeColor.RGB = lngCol(0)

            .Line.Weight = DECALINEWEIG

            .Fill.Visible = msoTrue

            .Fill.ForeColor.RGB = lngCol(1)

        End With

        docDst.Content.Select

    Next Ip

    '*選択解除

    Selection.Collapse Direction:=wdCollapseEnd

End Sub