Конвертировать doc в pdf с++

{
AnsiString str;
Variant v,vVarParagraph,Var,Dms,Word;
Word = CreateOleObject("Word.Application");
Word.OlePropertySet("Visible", true);
Variant Doc = Word.OlePropertyGet("Documents");
Doc.OleProcedure("Add");
 
if(Doc.OlePropertyGet("Count") != 1)
{
MessageBox(0, "?????? ??? ???????? ??????????",
"??????", MB_OK);
 
return;
}
Dms=Doc.OleFunction("Item",1);
Dms.OleProcedure("Activate");
Var=Dms.OlePropertyGet("Paragraphs");
 
Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
Var.OleProcedure("Add");
str="??????????";
vVarParagraph=Var.OleFunction("Item",1);
v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
v.OlePropertySet("Size",22);
v.OlePropertySet("Bold",true);
vVarParagraph.OlePropertyGet("Range").
OlePropertySet("Text",str.c_str());
vVarParagraph.OlePropertySet("Alignment",1);
Var.OleProcedure("Add");
}