ブログ

毎日業務改善(ワードのヘッダにファイル名を挿入するマクロ)

2013.12.17

SKIP

類似案件を処理していていると、どの案件を編集しているのか混乱することがあります。ヘッダーにファイル名をつければ解決しますが、ちょっと面倒な作業が必要になります。
以下のマクロを使えば、ヘッダーファイル名を付けることができますので、業務効率及び精度の向上に繋がります。
Private Sub ヘッダーにファイル名_Click()
Set myView = ActiveDocument.ActiveWindow.View
myView.SeekView = wdSeekCurrentPageHeader
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, text:= _
“FILENAME “, PreserveFormatting:=True
myView.SeekView = wdSeekMainDocument
End Sub

アーカイブ