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

ワードマクロ:横書きの便箋アイキャッチ ワードマクロで効率化する

ワードマクロで、便箋の横書きを作成する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」の部分に入力した数字の分、横書きの便箋を作成します。
 

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