Microsoft Office Forums - View Single Post - [Solved] What am I missing to get this to work?

macropod · 05-04-2012, 01:26 AM

You shouldn't need to 'seek' either the header or document views. You may also need to specify which header to update. Try:

Code:

While ActualCopies <= mCopies
  If ActualCopies = 1 Then
    With ActiveDocument.Sections.First.Headers(wdHeaderFooterPrimary).Range
      .Text = "Customer Copy"
      .Paragraphs.First.Alignment = wdAlignParagraphCenter
    End With
  etc.