注意事項(xiàng)：1多用Range，少用Selection，因?yàn)閃ord中，Selection對象只有一個(gè)。
【1】開啟word
_ApplicationPtr word_app;
HRESULT hr = word_app.CreateInstance("Word.Application", NULL);
【2】新建一個(gè)文檔
COleVariant vTrue((short)TRUE),vFalse((short)FALSE),vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
DocumentsPtr docs;
_DocumentPtr oDoc;
docs = word_app->GetDocuments();
doc = docs->Add(vOpt, vOpt, vOpt, vOpt);
【3】設(shè)置文檔的頁面布局
PageSetupPtr page_setup = doc->GetPageSetup();
page_setup->PutTopMargin(0);
page_setup->PutBottomMargin(0);
page_setup->PutRightMargin(0);
page_setup->PutLeftMargin(0);
【4】插入文本
SelectionPtr selection;
selection = word_app->GetSelection();
_ParagraphFormatPtr parafmt = selection->GetParagraphFormat();
parafmt->PutLineSpacingRule(wdLineSpaceExactly);
parafmt->PutLineSpacing(50);
_FontPtr font;
font = oSel->GetFont();
font->PutBold(1);
font->PutColor(wdColorGreen);
font->PutSize(20);
font->PutName(_T("宋體"));
selection->TypeText("ABC");
oSel->TypeParagraph();
oSel->TypeText("12345678901234567890");
oSel->TypeParagraph();
【5】插入文本框
ShapesPtr shapes = doc->GetShapes();
ShapePtr textbox = shapspp->AddTextbox(Office::msoTextOrientationHorizontal, 1, 1, 100, 100);
【6】文本框中插入文本
1ShapesPtr shapes = doc->GetShapes();
2ShapePtr textbox = shapspp->AddTextbox(Office::msoTextOrientationHorizontal, 1, 1, 100, 100);
3TextFramePtr textframe = textbox->GetTextFrame();
4RangePtr range = textframe->GetTextRange();
5long insert_before_count = range->Characters->GetCount();
6range->InsertAfter("TEXT");
7if (insert_before_count != 1)
8 range->MoveStart(COleVariant((long)Word::wdCharacter), COleVariant(insert_before_count-1));
9if(range != 0)
10
{
11
_FontPtr font = range->GetFont();
12 font->PutBold(isBold);
13 font->PutItalic(isItalic);
14 font->PutColor((Word::WdColor)FontColor());
15 font->PutSize(FontSize);
16 font->PutName(FontType().c_str());
17
}
【7】設(shè)置文本框的屬性
1textbox->GetTextFrame()->PutAutoSize(Office::msoAutoShape);
2textbox->GetTextFrame()->PutMarginBottom(0);
3textbox->GetTextFrame()->PutMarginTop(0);
4textbox->GetTextFrame()->PutMarginLeft(0);
5textbox->GetTextFrame()->PutMarginRight(0);
6textbox->GetLine()->PutVisible(Office::msoFalse);
7textbox->GetFill()->PutTransparency(1);
【8】插入圖片，這里需要注意，必須得先用InlineShape,這樣可以把圖片插入到指定的頁中，不然，所有的圖片只在第一頁。
1ShapesPtr shapes = m_WordDoc->GetShapes();
2InlineShapesPtr inline_shapes = selection_doc->GetRange()->GetInlineShapes();
3InlineShapePtr inline_shape = inline_shapes->AddPicture(“picture_path”, COleVariant((long)0), COleVariant((long)1));
4ShapePtr shape = inline_shape->ConvertToShape();
5shape->PutWidth(width);
6shape->PutHeight(hehight());
7shape->PutTop(Y);
8shape->PutLeft(X);
9if(shape->GetType() == Office::msoPicture)
10{
11 Word::WrapFormatPtr wrapp = shape->GetWrapFormat();
12 wrapp->PutType(Word::wdWrapBehind);
13}
14
【9】插入直線
1ShapesPtr shapes = doc->GetShapes();
2Word::ShapePtr line = shapes->AddLine(x1,y1, x2,y2);
3if (line->GetType() == Office::msoLine)
4{
5 Word::LineFormatPtr LineFmt = line->GetLine();
6 LineFmt->PutWeight(lr->weight_);
7}
【10】插入分隔符
selection->InsertBreak(COleVariant((long)wdColumnBreak));
selection->InsertBreak(COleVariant((long)wdSectionBreakContinuous));
selection->InsertBreak(COleVariant((long)wdPageBreak));
【11】設(shè)置欄目個(gè)數(shù)和欄目的寬度
這里一定要注意add函數(shù)的邏輯
1SectionsPtr word_sections = doc->GetSections();
2long num = word_sections->GetCount();
3SectionPtr word_section = word_sections->Item(num-1);
4PageSetupPtr page_setup = word_section->GetPageSetup();
5TextColumnsPtr text_cols = page_setup>GetTextColumns();
6text_cols->PutEvenlySpaced(0);
7text_cols->Add(COleVariant(col_width), COleVariant((long)0), COleVariant((long)false));
【12】插入表格
1TablesPtr tables = oSel->GetTables();
2TablePtr table = tables->Add(oSel->GetRange(), 2, 5);
3
4BordersPtr bords = table->GetBorders();
5bords->PutOutsideLineStyle(wdLineStyleSingle);
6bords->PutInsideLineStyle(wdLineStyleSingle);
7for (int i = 1; i<=2; i++)
8{
9 for (int j = 1; j<=5; j++)
10
{
11 table->Cell(i,j)->GetRange()->PutText("20");
12
}
13}
14
15CellPtr cell = table->Cell(1,1);
16cell->Merge(table->Cell(1,2));
【13】保存文檔并退出
1COleVariant vTrue((short)TRUE),vFalse((short)FALSE),vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
2_DocumentPtr active_doc;
3active_doc = word_app->GetActiveDocument();
4active_doc->SaveAs(COleVariant("D:\\doc1.doc"),
5 COleVariant((short)0),
6 vFalse, COleVariant(""), vTrue, COleVariant(""),
7 vFalse, vFalse, vFalse, vFalse, vFalse);
8word_app->Quit(vOpt, vOpt, vOpt);
在word優(yōu)秀的構(gòu)架中還有許許多多的接口，上面只是舉例實(shí)現(xiàn)一個(gè)普通的文檔，希望對大家有用。