返信ありがとうございます。 たぶん同じです。動かしたソースは以下になります。 途中で気づいたことがあるのですが, エラーが発生する文章ではプロパティの内容を見ることができないようです。(フィールドサイズが〜っというエラーがでます。) あと問題のあるフィールド(今回はTESTフィールド)をビューの列に表示すると,問題のある文章は一覧から欠落する状態になっています。 なにか分かりましたら、よろしくお願いします。 Dim Wks As New NotesUIWorkspace Dim UIView As NotesUIView Dim DocCol As NotesDocumentCollection Dim Doc As NotesDocument Dim textItem As NotesItem Dim DeleteField As String DeleteField = "TEST" '削除フィールド名 Set UIView = Wks.CurrentView Set DocCol = UIView.Documents Set Doc = DocCol.GetFirstDocument Do Until Doc Is Nothing Call Doc.RemoveItem(DeleteField) Call Doc.Save(False, False, True) Set Doc = DocCol.GetNextDocument(Doc) Loop