forall って…複数アイテムの値を全て移動させたいという解釈でいいのかな? 存外に簡単なNotesItemを使用する方法をお勧めします。 dim nItem as NotesItem Set nItem = doc.getFirstItem( $FieldName00 ) if not nItem is Nothing then call setdoc.ReplaceItemValue( $FieldName01 , nItem.Values ) end if