Range.StoryLength (Word)

Renvoie le nombre de caractères dans l'article qui contient la plage spécifiée.

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