【Word VBA】だんご形文書作成マクロ▽ソースコード
Public Sub だんご形文書作成マクロ()
Const MOJIRETU = "☆ココナラ・ソコナラ・あそこなら"
Const GYOMOJIS = 40 '一行当たりの文字数
Const GYOCYCLE = 28 '繰り返し行数
'---------------------------------------------------------------------------
Dim Ip As Integer, Jp As Integer
Dim strData1 As String, strData2 As String Dim intSinT(GYOCYCLE - 1) As Integer
'
'*文字列作成
strData1 = ""
For Ip = 0 To 94
strData1 = strData1 & MOJIRETU
Next Ip
'*行ごと文字数テーブル作成(サインカーブ）
For Ip = 0 To GYOCYCLE - 1
intSinT(Ip) = CInt((GYOMOJIS - 1) _ * Sin(Ip * 6 * (4 * Atn(1) / 180))) + 1
Next Ip
'
'*文字列整形
strData2 = "": Ip = 0
0
