Microsoft Office Forums - View Single Post - [Solved] Touching Header range with VBA forces a page break

macropod · 11-22-2016, 03:10 PM

There is no need to set the View.Type or use SeekView for what you're doing. Try:

Code:

Dim fg As Field
With WordDoc
  .Sections(2).Headers(wdHeaderFooterPrimary).LinkToPrevious = False
  With .Sections(1).Headers(wdHeaderFooterPrimary).Range
  For Each fg In .Sections(1).Headers(wdHeaderFooterPrimary).Range.Fields
    If (InStr(1, fg.Code.text, "{ORDERNR}") &gt; 0) Then
      fg.Code.Text = Replace(fg.Code.Text, "{ORDERNR}", "{FONR}")
      fg.Update
    End If
  Next fg
End With