次の方法で共有

方法: プログラムによって文書にヘッダーおよびフッターを追加する

  • [アーティクル]

文書のヘッダーおよびフッターにテキストを追加するには、Section の Headers プロパティおよび Footers プロパティを使用します。文書の各セクションには、次に示す 3 つのヘッダーとフッターがあります。

ドキュメント レベルのカスタマイズとアプリケーション レベルのアドインでは、手順が異なります。

対象: このトピックの情報は、Word 2013 と Word 2010 のドキュメント レベルのプロジェクトおよびアプリケーション レベルのプロジェクトに適用されます。詳細については、「Office アプリケーションおよびプロジェクト タイプ別の使用可能な機能」を参照してください。

ドキュメント レベルのカスタマイズ

次のコード例を使用するには、プロジェクトの ThisDocument クラスからコードを実行します。

文書のフッターにテキストを追加するには

  • 文書の各セクションのプライマリ フッターに挿入するテキストのフォントを設定し、フッターにテキストを挿入するコード例を次に示します。

    For Each section As Word.Section In Me.Sections
    Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
    footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
    footerRange.Font.Size = 20
    footerRange.Text = "Confidential"
Next

    foreach (Word.Section wordSection in this.Sections)
{
    Word.Range footerRange = wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
    footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
    footerRange.Font.Size = 20;
    footerRange.Text = "Confidential";
}

文書のヘッダーにテキストを追加するには

  • 文書の各ヘッダーにページ番号を表示するフィールドを追加し、ヘッダーのテキストが右揃えになるように段落の配置を設定するコード例を次に示します。

    For Each section As Word.Section In Me.Sections
    Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
    headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
    headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
Next

    foreach (Word.Section section in this.Sections)
{
    Word.Range headerRange = section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
    headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage);
    headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
}

アプリケーション レベルのアドイン

次のコード例を使用するには、プロジェクトの ThisAddIn クラスからコードを実行します。

文書のフッターにテキストを追加するには

  • 文書の各セクションのプライマリ フッターに挿入するテキストのフォントを設定し、フッターにテキストを挿入するコード例を次に示します。このコード例ではアクティブ文書を使用します。

    For Each section As Word.Section In Me.Application.ActiveDocument.Sections
    Dim footerRange As Word.Range = section.Footers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
    footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed
    footerRange.Font.Size = 20
    footerRange.Text = "Confidential"
Next

    foreach (Word.Section wordSection in this.Application.ActiveDocument.Sections)
{
    Word.Range footerRange = wordSection.Footers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
    footerRange.Font.ColorIndex = Word.WdColorIndex.wdDarkRed;
    footerRange.Font.Size = 20;
    footerRange.Text = "Confidential";
}

文書のヘッダーにテキストを追加するには

  • 文書の各ヘッダーにページ番号を表示するフィールドを追加し、ヘッダーのテキストが右揃えになるように段落の配置を設定するコード例を次に示します。このコード例ではアクティブ文書を使用します。

    For Each section As Word.Section In Me.Application.ActiveDocument.Sections
    Dim headerRange As Word.Range = section.Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
    headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage)
    headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight
Next

    foreach (Word.Section section in this.Application.ActiveDocument.Sections)
{
    Word.Range headerRange = section.Headers[Word.WdHeaderFooterIndex.wdHeaderFooterPrimary].Range;
    headerRange.Fields.Add(headerRange, Word.WdFieldType.wdFieldPage);
    headerRange.ParagraphFormat.Alignment = Word.WdParagraphAlignment.wdAlignParagraphRight;
}

参照

処理手順

方法: プログラムによって新しい文書を作成する

方法: プログラムによってドキュメント内の範囲を拡張する

方法: 文書で見つかった項目をプログラムによってループする