ここから本文です

罫線入りレポート用紙

izu********さん

2011/6/3018:45:23

罫線入りレポート用紙

ワード2003で、A5用紙の罫線入りレポート用紙のテンプレートを探しています。
オフィースのオンラインテンプレートに有るのですが、サイズがB5で、これ簡単にA5サイズへ変更できたら良いのですが

閲覧数:
1,807
回答数:
1

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

カテゴリマスター

ann********さん

2011/6/3022:22:54

試してみてください。

新規Word文書を開き、ページ設定でA5サイズにし、余白、文字サイズ、行数、
文字数を指定します。
ただし――行数や文字数の指定は、ページ設定の[行数]や[文字数]欄で設定し、
[行送り]や[字送り]からの指定ではないこと――が条件です。

[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される画面に
以下を記述し、同じウィンドウの右向き▲をクリックして実行したら、その
ウィンドウを閉じます。
-----
Sub DrawLine() '横グリッド線と同じ位置に横罫線を引くマクロです。
Dim TP, LF, Lng, Intvl, Num, i
Application.ScreenUpdating = False
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With ActiveDocument.PageSetup
TP = .TopMargin
LF = .LeftMargin
Lng = .PageWidth - .LeftMargin - .RightMargin
Intvl = (.PageHeight - .TopMargin - .BottomMargin) / .LinesPage - 0.033
Num = .LinesPage + 1
End With
For i = 1 To Num
Selection.HeaderFooter.Shapes.AddLine(LF, TP + (i - 1) * Intvl, _
LF + Lng, TP + (i - 1) * Intvl).Select
Next
ActiveWindow.ActivePane.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Type = wdPrintView
Application.ScreenUpdating = False
End Sub

横罫線はヘッダ/フッター画面に描画されます。

質問した人からのコメント

2011/7/2 15:04:23

降参 参考にさせていただきます

あわせて知りたい

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる