ワードで奇数偶数ページ別のヘッダーを作るマクロを作成しています。
ヘッダーに縦書きテキストボックスを挿入し、奇数ページは左端、偶数ページは右端というような配置にするマクロです。
自宅の2010では正しく動作したのですが、会社で2007で実行したところ意図した物とは違った動きとなってました。
具体的には、headerのwdHeaderFooterPrimary,wdHeaderFooterEvenPagesにそれぞれshapeを追加しているのに、実行するとwdHeaderFooterPrimaryにどちらのテキストボックスも挿入されてしまいます。
以下がそのコードになります。
'------------------------------------------------
Sub ヘッダー追加()
Dim sec As Section, w As Long 'ページ幅取得 w = ThisDocument.PageSetup.PageWidth '奇数偶数ページ別ヘッダー適用 ThisDocument.Sections.PageSetup.OddAndEvenPagesHeaderFooter = True For Each sec In ThisDocument.Sections '奇数ページヘッダー sec.Headers(wdHeaderFooterPrimary).Shapes. _ AddTextbox(msoTextOrientationVertical, 0, 0, 30, 100). _ TextFrame.TextRange = "奇数ページ" '偶数ページヘッダー sec.Headers(wdHeaderFooterEvenPages).Shapes. _ AddTextbox(msoTextOrientationVertical, w - 30, 0, 30, 100). _ TextFrame.TextRange = "偶数ページ" Next
End Sub
'----------------------------------------------
調べてみても、オブジェクトツリーは同じようですし、何が間違っていてそのような動作になってしまうのかが分かりません。
この現象についてご存知の方がいましたら、対処方法を含め教えていただけたらと思います。よろしくお願いいたします。
回答1件
あなたの回答
tips
プレビュー