例: ExpandAllSections method

次のスクリプトは、文書が編集モードに切り替えられると文書のセクションを展開し、読み込みモードに切り替えられると省略します。

Sub Postmodechange(Source As Notesuidocument)
  If source.EditMode Then
    Call source.ExpandAllSections
  Else
    Call source.CollapseAllSections
  End If
End Sub