mfc_word_有用.pdfVIP

注意事项：1多用Range，少用Selection，因为Word 中，Selection对象只有 一个。 【1】开启word _ApplicationPtr word_app; HRESULT hr = word_app.CreateInstance(Word.Application, NULL); 【2】新建一个文档 COleVariant vTrue((short)TRUE),vFalse((short)FALSE),vOpt((long)DISP_E_PARAMN OTFOUND, VT_ERROR); DocumentsPtr docs; _DocumentPtr oDoc; docs = word_app-GetDocuments(); doc = docs-Add(vOpt, vOpt, vOpt, vOpt); 【3】设置文档的页面布局 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】文本框中插入文本 1 ShapesPtr shapes = doc-GetShapes(); 2 ShapePtr textbox = shapspp-AddTe xtbox(Office::msoTextOrientationHorizontal, 1, 1, 100, 100); 3 TextFramePtr textfr ame = textbox-GetTextFrame(); 4 RangePtr range = textframe-GetTextRange(); 5 long insert_before_count = range-Characters-GetCount(); 6 range-InsertAf ter(TEXT); 7 if (insert_before_count != 1) 8 range-MoveStart(COleVariant((lo ng)Word::wdCharacter), COleVariant(insert_before_count-1)); 9 if(range != 0)10 {11 _FontPtr font = range-GetFont();12 font-PutBold(isBold);13 font- PutItalic(isItalic);14 font-PutColor((Word::WdColor)FontColor());15 font-PutSiz e(FontSize);16 font-PutName(FontType().c_str());17 } 【7】设置文本框的属性 1 textbox-GetTextFrame()-PutAutoSize(Office::msoAutoShape);2 textbox-Get