☰

Word の表のセルにヘッダーとフッターを追加する方法はありますか?

tag-icon • tag-icon microsoft-word microsoft-word-2010 headers
Word の表のセルにヘッダーとフッターを追加する方法はありますか?

表にデータが入っていて、それを印刷して切り取りたいのですが、切り取った後も表のどこにデータがあったか記録しておきたいのです。セル内にヘッダー/フッターを追加して、各セルに「1a」や「1b」などと表示させる方法はありますか? 何百ものセルにデータが入っているので、数式として記述する方法があれば (全ページのヘッダー/フッターにページ番号を入れるなど)、ぜひそれもやってみたいです!

ありがとう！

答え1

いいえWord ではその方法はありません。

Word にはセル アドレスの概念すら存在しません。

マクロを使用しても、VBA は Word の表ではうまく機能しないため、非常に困難です。

答え2

Wordの表のセルにフッターがないのは事実ですが、次のコードは、選択範囲の最初の表の各セルの右下隅に、固定された（つまり更新できない）セル座標を挿入します。注意：このコードは、単純なネストされていない表に対してのみ実行しました。また、このコードはないエラー処理も含まれるので、作業内容などを必ずバックアップしてください。

Sub InsertCellCoordinates()

    If Selection.Tables.count = 0 Then Exit Sub

    Dim tbl As Table
    Set tbl = Selection.Tables(1)

    Dim RowCntr As Integer
    Dim CellCntr As Integer
    Dim rran As Range

    For RowCntr = 1 To tbl.Rows.count
        For CellCntr = 1 To tbl.Rows(RowCntr).Cells.count
            Set rran = tbl.Rows(RowCntr).Cells(CellCntr).Range.Characters.Last
            rran.Collapse wdCollapseStart

            rran.InsertParagraph

            rran.InsertAfter Chr(RowCntr + &H40) & "." & CellCntr

            rran.Paragraphs.Last.Format.Alignment = wdAlignParagraphRight
        Next
    Next

End Sub

関連情報