全部显示

StoryLength 属性

该属性返回包含指定区域或所选内容的文字部分所含的字符数。Long 类型，只读。

示例

本示例确定活动文档的页眉部分是否为空。如果页眉部分非空，则在消息框中显示页眉的内容。如果为空，则 StoryLength 属性返回 1 作为最后的段落标记。

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

本示例当文档为空时关闭该文档，且不保存对其的修改。

If ActiveDocument.Content.StoryLength = 1 Then _
    ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges