Range.StoryLength (Word)

Devuelve el número de caracteres del artículo que contiene el rango especificado.

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