Wordで用紙を等分割に裁断するための切り取りマークを入れたい

質問

たとえばA4紙を３等分、４等分、５等分などと横に裁断して短冊を作りたいのですが、そのためにハサミを入れる目印を印刷することはできますか。２分割ならばたやすいのですが、それ以上ですと上下余白の関係で等分割するには定規で測らないとなりません。おしえてください。

回答No.2

misatoanna

用紙に合わせた図形配置で、なぜ誤差が出るのでしょうね。
そんなわけで、私は次のような「分割線をヘッダ領域に描く」マクロを
使っています。

Sub SepPage()
　Dim PG, Tate, Yoko, IB, Sep, i
　Tate = ActiveDocument.PageSetup.PageHeight
　Yoko = ActiveDocument.PageSetup.PageWidth
　IB = InputBox("分割数を入力してください")
　Sep = Tate / IB
　ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
　For i = 2 To IB
　　Selection.HeaderFooter.Shapes.AddLine _
　　　　(0, (i - 1) * Sep, Yoko, (i - 1) * Sep).Select
　　With Selection.ShapeRange.Line
　　　.Weight = 0.75
　　　.DashStyle = msoLineDash
　　　.ForeColor.RGB = RGB(200, 200, 200)
　　End With
　Next
　ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
Fin: On Error GoTo 0
End Sub

お礼

自分にはマクロのスキルが無いのですがヘルプを読みながら試してみます。ありがとうございました。

回答No.1

meah1835

こちらで
http://ciao.aoten.jp/ciao/2006/07/post_820b.html

お礼

ありがとうございます。さっそく試したところ望む結果が得られました。
迅速なご回答に感謝申し上げます。

補足

（お礼補足）
念のため分割した幅を測ってみたところ最下行の幅が他と違うことがわかりました。
等分線２本を引いて３っつの短冊を作った場合、92mm、92mm、111mmができます。印刷設定で下余白を変えても同じです。うーーん。