LOTUSSCRIPT /COM/OLE のクラス
例:AppendRTItem メソッド
1. 次のスクリプトは、文書 B 内の Body アイテムを取得し、その項目を文書 A の Body アイテムの末尾に追加します。文書 B の Body アイテムは NotesItem で定義された Remove メソッドで削除されます。
Dim docA As NotesDocument
Dim docB As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
'...set values of docA and docB...
Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docB.GetFirstItem( "Body" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove
Call docA.Save( False, True )
Call docB.Save( False, True )
End If
2. 次のスクリプトは、文書の保存を促すプロンプトを表示せずに、1 つの RTItem を別の RTItem に追加する様子を示します。この例では UI のバックエンドクラスの使い方を示しています。
Sub Click(Source As Button)
Dim w As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim docA As NotesDocument
Dim rtitemA As Variant
Dim rtitemB As Variant
Set uidoc = w.CurrentDocument
Set docA = uidoc.Document
Call uidoc.Save
Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docA.GetFirstItem( "Body1" )
If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
Call rtitemA.AddNewLine(1)
Call rtitemA.AppendRTItem( rtitemB )
docA.body1 = " "
docA.SaveOptions = "0"
Call docA.Save(False, True)
Call uidoc.Close
End IF
End Sub
メモ
変更は文書が閉じられて再度開かれるまでは目で確認することはできません。また、AppendRichTextItem メソッドは RichTextItem の最初の 32K だけを追加し、残りは切り捨てることに注意してください。
関連項目
AppendRTItem メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集