Проверим, также наличие двух предыдущих материалов и сотрём их.
//***********************************

ProvMat(vDoc)//функция проверки наличия 2х предыдущих материалов
{
fmat = vDoc->GetFirstMaterial();
 if (!fmat) return;
fmat = vDoc->GetFirstMaterial()->GetName();
if(fmat=="par")
{
fmat = vDoc->GetFirstMaterial();
fmat->Remove();
fmat = vDoc->GetFirstMaterial();
 if (!fmat) return;
fmat->Remove();
fmat = vDoc->GetFirstMaterial();
 if (!fmat) return;
fmat->Remove();
}
//***********************************