Sub RefDemo()
Application.ScreenUpdating = False
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With Selection
  .EndKey Unit:=wdStory
  .Fields.Add .Range, wdFieldEmpty, Text = "REF T_LIEFERANTENERGAENZUNG_BERECHNUNG \* MERGEFORMAT \h", False
End With
Application.ScreenUpdating = True
End Sub