【ワードマクロ】便箋（横書き）を作成する：コピペで使えるコード

ワードマクロで、便箋の横書きを作成する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