Hi there,
Would you please let me know what I'm dong wrong in this code?
I want to delete "Page {PAGE}" in the first page header if different First
page option is checked off. Any help would be appreciated!
-------------------------
Sub Delete1stPgNo()

Dim oField As Field
If ActiveDocument.PageSetup.DifferentFirstPageHeaderF ooter = True Then

ActiveDocument.ActiveWindow.ActivePane.View.SeekVi ew =
wdSeekFirstPageHeader
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Page"
.Replacement.Text = ""
End With
With Selection.Range.Fields
If oField.Type = wdFieldPage Then
oField.Delete

End If
End With
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End If

End Sub