Dim nrtDoc As iManage.IManDocumentdim docFolder As IManFolderSet nrtDoc = rpSelectedNRTDocuments(0)Set docFolder = nrtDoc.Folders.ItemByIndex(1) docFolder.Contents.RemoveByObject nrtDoc