例: ReplaceItemValue method

次のスクリプトは EstimatedCost アイテムの値を 122 に変更します。

Dim doc As NotesDocument
Dim item As NotesItem
'...set value of doc...
Set item = doc.ReplaceItemValue( "EstimatedCost", 122 )
Call doc.Save( True, True )

次のスクリプトは拡張クラス構文を使用して、上記の例と同じ内容を実行します。
```
Dim doc As NotesDocument
'...set value of doc...
doc.EstimatedCost = 122
Call doc.Save( True, True )
```
次のスクリプトは EstimatedCost アイテムの値を「Too much」に変更します。また、アイテムの種類が数値からテキストに変わります。
```
Dim doc As NotesDocument
Dim item As NotesItem
'...set value of doc...
Set item = doc.ReplaceItemValue _
( "EstimatedCost", "Too much" )
Call doc.Save( True, True )
```