Dim session As NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator

Sub Initialize
 Set session = New NotesSession
 Set db = session.CurrentDatabase
 Set dc = db.UnprocessedDocuments
 If dc.Count = 0 Then
   Messagebox "No document selected",, "No doc"
   Exit Sub
 End If
 Set doc = dc.GetFirstDocument
 Set body = doc.GetFirstItem("Body")
 Set rtnav = body.CreateNavigator
 it$ = Inputbox$("Begin with ^ to prepend", _
 "Enter text or blank to exit")
 REM If Body item is empty, just append text
 If it$ = "" Then Exit Sub
 If body.Text = "" Then    
   If Left(it$, 1) = "^" Then it$ = Right(it$, Len(it$) - 1)
   Call body.AppendText(it$)
   it$ = Inputbox$( _
   "Begin with ^ to put in front of last paragraph", _
   "Enter text or blank to exit")
 End If
 While it$ <> ""
   REM if ^, delete ^ and insert text before first paragraph
   If Left(it$, 1) = "^" Then
     it$ = Right(it$, Len(it$) - 1)
     rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH)  
     Call body.BeginInsert(rtnav)
     Call body.AppendText(it$)
     Call body.AddNewLine(1)
     Call body.EndInsert
   REM If no ^, append text to end of Body item
   Else        
     Call body.AddNewLine(1)
     Call body.AppendText(it$)
   End If
   it$ = Inputbox$( _
   "Begin with ^ to put in front of last paragraph", _
   "Enter text or blank to exit")
 Wend
 Call doc.Save(True, True)
End Sub

関連項目

EndInsert メソッド

用語集