2

ページヘッダーに2つのフィールドを挿入しようとしています。現在の選択でそれらを挿入することはできますが(以下のコードを参照)、フィールドを挿入する前にページヘッダーを選択する必要はありません。これはできますか?

Sub insertFields()
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="DOCPROPERTY LastSavedTime ", PreserveFormatting:=True
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:="FileName", PreserveFormatting:=True
End Sub
4

1 に答える 1

2

フィールドを配置するドキュメントのセクションとヘッダーのタイプ ( wdHeaderFooterPrimarywdHeaderFooterFirstPageまたはwdHeaderFooterEvenPages) を指定する場合は、次のコードを使用できます。

Dim myRange As Range
Set myRange = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldEmpty, Text:="DOCPROPERTY LastSavedTime ", PreserveFormatting:=True

コメントへの追加情報

Collapse範囲の開始位置または終了位置に挿入ポイントを置くメソッドを使用して、ヘッダー内に複数のフィールドを挿入できます。適切な追加コードを追加して、スペース、フォーマット、またはキャリッジ リターンを挿入します。

myRange.Collapse wdCollapseEnd
ActiveDocument.Fields.Add Range:=myRange, Type:=wdFieldEmpty, Text:="FileName", PreserveFormatting:=True
于 2013-02-05T20:15:57.717 に答える