ワードマクロで、便箋の横書きを作成するVBAコードをご紹介します。
このページのマクロコードは、コピペで使えます。
ぜひお試しください!
便箋(横書き)を作成する
以下のWordVBAを実行すると、アクティブなワードファイルに横書きの便箋を作成します。
Sub 便箋の横書き()
Dim i As Long
'文書の先頭を選択
ActiveDocument.Range(0, 0).Select
'25行分を作成する
For i = 1 To 25
Selection.TypeParagraph
Next i
'文書全体を選択
Selection.WholeStory
'罫線を引く
With Selection.Borders(wdBorderHorizontal)
.LineStyle = Options.DefaultBorderLineStyle
End With
End Sub
マクロ実行後
25行分の便箋の横書きを作成しました。
VBAコードの解説
[For i = 1 To 25] は、
「25」の部分に入力した数字の分、横書きの便箋を作成します。
この記事がお役に立ちますと幸いです。

【ワードマクロ】便箋(縦書き)を作成する:コピペで使えるコード
...