As for (B), by default all new documents have a primary page footer and header even if they contain no visible text.


you might try:

If Len(ActiveDocument.Sections(1).Footers(wdHeaderFoo terPrimary).Range.Text) = 1 Then
'Write your footer text
End If

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/