例: AddPageBreak method

次のスクリプトは、現在の文書に改ページを追加します。

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem("Content")
If rtitem.Type <> RICHTEXT Then
  Messagebox "Content is not a rich text item."
End If
Call rtitem.AddPageBreak
Call doc.Save(False, True)