Range.StoryLength (Word)

Gibt die Anzahl der Zeichen im Artikel zurück, der den angegebenen Bereich enthält.

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