Word VBA教程:StoryLength属性

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

VBA示例

本示例确定活动文档的页眉部分是否为空。如果页眉部分非空,则在消息框中显示页眉的内容。如果为空,则 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号