Свойство Range.StoryLength (Word)
Возвращает количество символов в истории, содержащей указанный диапазон. Только для чтения, Long.
выражение. StoryLength
выражение: переменная, представляющая объект Range.
В этом примере определяется, является ли заголовок в активном документе пустым. Если история заголовка не пуста, в окне сообщения отображается содержимое заголовка. Если заголовок документа пуст, 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
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.