Ошибка при выводе текста в doc средствами OLE - C/C++ - Ответ 5698964

Variant v;
 if(!fStart)
 {
  try
  {
   vVarApp=CreateOleObject("Word.Application");
   fStart=true;
  }
  catch(...)
  {
   MessageBox(0, "Ошибка при открытии сервера Word",
                 "Ошибка", MB_OK);
  return;
  }
 }
 
 vVarApp.OlePropertySet("Visible",true);
 
 vVarDocs=vVarApp.OlePropertyGet("Documents");
 
  vVarDocs.OleProcedure("Add");
 
  vVarDoc=vVarDocs.OleFunction("Item",1);
 
  vVarDoc.OleProcedure("Activate");
 
  vVarParagraphs=vVarDoc.OlePropertyGet("Paragraphs");
 
str="Директор проверка количества символов блаблабла";
 
vVarParagraph=vVarParagraphs.OleFunction("Item",1);
vVarParagraph.OlePropertyGet("Range").
              OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",1);
vVarParagraphs.OleProcedure("Add");
//v.OlePropertySet("Underline",1);
 
str="Список отсутствующих:";
vVarParagraphs.OleProcedure("Add");
 
vVarParagraph=vVarParagraphs.OleFunction("Item",2);
vVarParagraph.OlePropertyGet("Range").
              OlePropertySet("Text",str.c_str());
              vVarParagraph.OlePropertySet("Alignment",0);
v=vVarParagraph.OlePropertyGet("Range").
                OlePropertyGet("Font");
v.OlePropertySet("Name","Tahoma");
v.OlePropertySet("Size",15);
v.OlePropertySet("Bold",true);
 
str="Количество отсутствующих:";
vVarParagraphs.OleProcedure("Add");
vVarParagraph=vVarParagraphs.OleFunction("Item",3);
vVarParagraph.OlePropertyGet("Range").
              OlePropertySet("Text",str.c_str());
              vVarParagraph.OlePropertySet("Alignment",2);
              v=vVarParagraph.OlePropertyGet("Range").
              OlePropertyGet("Font");
v.OlePropertySet("Name","Arial");
v.OlePropertySet("Size",8);
v.OlePropertySet("Italic",true);