Функции COM интерфейса Word на VisualC++ - C/C++ - Ответ 4737641

void CWordPasteDlg::OnButtonWordPaste() 
{
    // TODO: Add your control notification handler code here
    ::CoInitialize(NULL);
    try
    {
        using namespace Word;
        _ApplicationPtr word(L"Word.Application");
        word->Visible=TRUE;
        word->Activate();
 
        //создаем новый документ
        _DocumentPtr wdoc1=word->Documents->Add();  
        //Рисуем прамоугольник
        //ShapePtr rect;
        //rect=wdoc1->Shapes->AddShape(75,20,5,185,287);
        //rect->Line->Weight=3;
        //rect->Line->ForeColor->RGB=RGB(123,54,45);
 
    
        //добавляем стлбец слов
        CString str;
        SelectionPtr mySelection=word->Selection;
        for(int i=0;i<180;i++)
        {
            str.Format("Число с полавающей точкой равно %f\n",0.2*i);
            mySelection->Text=str.GetBuffer(str.GetLength());
            mySelection->MoveDown(&_variant_t(long(wdParagraph)),&_variant_t(long(1)));
        }
 
        //выбираем лист номер 1
        PanePtr myPane=wdoc1->ActiveWindow->Panes->Item(1);
        PagePtr myPage=myPane->Pages->Item(1);
 
        //Рисуем линии
        ShapePtr myShape;
    
        myShape=wdoc1->Shapes->AddLine(word->MillimetersToPoints(20),word->MillimetersToPoints(5),word->MillimetersToPoints(20),word->MillimetersToPoints(292));
        myShape->Line->ForeColor->RGB=RGB(34,67,98);
        myShape->Line->Weight=2;
 
        myShape=wdoc1->Shapes->AddLine(word->MillimetersToPoints(20),word->MillimetersToPoints(292),word->MillimetersToPoints(205),word->MillimetersToPoints(292));
        myShape->Line->ForeColor->RGB=RGB(34,67,98);
        myShape->Line->Weight=2;
 
        myShape=wdoc1->Shapes->AddLine(word->MillimetersToPoints(205),word->MillimetersToPoints(292),word->MillimetersToPoints(205),word->MillimetersToPoints(5));
        myShape->Line->ForeColor->RGB=RGB(34,67,98);
        myShape->Line->Weight=2;
 
        myShape=wdoc1->Shapes->AddLine(word->MillimetersToPoints(205),word->MillimetersToPoints(5),word->MillimetersToPoints(20),word->MillimetersToPoints(5));
        myShape->Line->ForeColor->RGB=RGB(34,67,98);
        myShape->Line->Weight=2;
 
    }
    catch(_com_error& er)
    {
        char buf[1024];
        sprintf(buf,"_com_error:\n"
            "Error        :%08lX\n"
            "ErrorMessage :%s\n"
            "Description  :%s\n"
            "Source       :%s\n",
            er.Error(),
            (LPCTSTR)_bstr_t(er.ErrorMessage()),
            (LPCTSTR)_bstr_t(er.Description()),
            (LPCTSTR)_bstr_t(er.Source()));
        CharToOem(buf,buf);
        printf(buf);
    }
    ::CoInitialize(NULL);
    
}

//выбираем лист номер 1
        PanePtr myPane=wdoc1->ActiveWindow->Panes->Item(1);
        PagePtr myPage=myPane->Pages->Item(1);