Range.StoryLength プロパティ (Word)

指定した範囲を含むストーリーの文字数を返します。 取得のみ可能な Long 値です。

構文

expression. StoryLength

expressionRange オブジェクトを表す変数です。

次の使用例は、作業中の文書のヘッダーが空であるかどうかを判断します。 ヘッダーが空でない場合は、ヘッダーの内容を示すメッセージ ボックスが表示されます。 文書のヘッダーが空の場合は、 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

関連項目

Range オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。