Range.StoryLength (Word)

Retorna o número de caracteres do texto que contém o intervalo especificado. Long somente leitura.

Set myRange = ActiveDocument.Sections(1) _ 
 .Headers(wdHeaderFooterPrimary).Range 
If myRange.StoryLength > 1 Then MsgBox myRange.Text