xp系统下用vc6.0生成word，执行CreateDispatch（）失败，请大神帮忙看看

Question

执行到CreateDispatch(_T("Word.Application")函数就推出程序了，调用createdispatch函数失败
，在InitInstance（）函数中已经执行初始化，代码如下if(CoInitialize(NULL)!=S_OK) { AfxMessageBox("初始化COM组件失败！"); return FALSE; }

执行文件中代码如下：
_Application wordApp;


Documents wordDocs;

_Document wordDoc;

Selection wordSelection;

Range wordRange;

Tables wordTables;

Table wordTable;       

Cell wordCell;     

Cells wordCells;

//Paragraphs wordParagraphs;

//Paragraph wordParagraph;

_Font wordFont;

Shading wordShading;

int nRow=0;

COleVariant vTrue((short)TRUE),
    vFalse((short)FALSE),
    vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CComVariant defaultBehavior(1),AutoFitBehavior(0);

//创建word application实例
if (!wordApp.CreateDispatch(_T("Word.Application")))
{
    AfxMessageBox("Word CreateDispatch Failed!");
    return FALSE;
   }    

/* if (!wordApp.CreateDispatch(("word.Application")))

{

    AfxMessageBox("Word CreateDispatch Failed!");
    return false；


}  */

执行到此处是直接退出程序了
wordApp.SetVisible(TRUE);//make visible

wordApp.Activate();//激活

wordDocs=wordApp.GetDocuments();//get documents object

CString strDocTemplate;

CString strPath;

char szFullPath[_MAX_PATH];

::GetModuleFileName(NULL,szFullPath,_MAX_PATH);

strDocTemplate.Format("%s",szFullPath);

int nPos=strDocTemplate.ReverseFind(' ');

strDocTemplate=strDocTemplate.Left(nPos);

strPath=strDocTemplate;

    TRACE1("%s\n",strDocTemplate);

    //     strDocTemplate+="""Template""Report.doc";

    //     wordDoc=wordDocs.Open(COleVariant(strDocTemplate),&vOpt,&vOpt,&vOpt,&vOpt,

    //            &vOpt,&vOpt,&vOpt,&vOpt,&vOpt,&vOpt,&vTrue,&vOpt,&vOpt,&vOpt,&vOpt);

    CComVariant tpl(_T("")),Visble,DocType(0),NewTemplate(false);

wordDoc=wordDocs.Add(&tpl,&NewTemplate,&DocType,&Visble);

wordSelection=wordApp.GetSelection();

//wordTables.AttachDispatch(wordDoc.GetTables());

wordTables=wordDoc.GetTables();

//wordParagraphs = wordDoc.GetParagraphs();


//wordParagraph=wordParagraphs.GetLast();

//wordRange=wordParagraph.GetRange();

//wordSelection.EndKey(COleVariant((short)6),COleVariant((short)0));

//move insertion point to the end of the story

/*

  wdUnits:

    wdCharacter=1   

      wdWord=2

        wdSentence=3

          wdParagraph=4

            wdSection=8

              wdStory=6

                wdCell=12

                  wdColumn=9

                    wdRow=10

                      wdTable=15       

                        wdMovementType:

                          wdMove=0

                            wdExtend=1       

*/

//move to end of story

wordSelection.EndOf(COleVariant((short)6),COleVariant((short)0));

//1.1 RxLev Full 

wordSelection.TypeText("1. 统计报告");
wordSelection.HomeKey(&CComVariant(5),&CComVariant(1));

//Format the line with selection

wordFont = wordSelection.GetFont();

wordFont.SetBold(9999998);//wdToggle

wordSelection.EndOf(&CComVariant(5),&CComVariant(0));

wordSelection.TypeParagraph();    

wordSelection.TypeText("(1.1). 分段统计");


wordSelection.TypeParagraph();

wordFont.SetBold(9999998);//wdToggle

wordRange=wordSelection.GetRange();

//add table

//nRow=m_nRange1+1;

wordTable=wordTables.Add(wordRange,5/*row*/,4/*column*/,&defaultBehavior,&AutoFitBehavior);


wordRange=wordTable.GetRange();

//wordRange.MoveEnd(COleVariant((short)15),COleVariant((short)1));

//wordRange.Select();

//move end of table

//wordSelection.EndOf(COleVariant((short)15),COleVariant((short)0));

//insert rows

//wordSelection.InsertRowsBelow(COleVariant((short)5));

//选择第一个单元,进而选择第一行进行格式化

wordCell=wordTable.Cell(1,1);

wordCell.Select();

//select the row with current selection

wordSelection.EndKey(&CComVariant(10),&CComVariant(1));

//Format the row with selection

//wordFont = wordSelection.GetFont();

wordFont.SetBold(9999998);//wdToggle

wordCells=wordSelection.GetCells();

wordShading = wordCells.GetShading();

wordShading.SetTexture(0);

wordShading.SetBackgroundPatternColor(14737632);//15987699 14737632 adColorBlue

wordShading.SetForegroundPatternColor(-16777216);//-16777216 wdColorAutomatic

//move to end of table

//wordSelection.EndOf(COleVariant((short)15),COleVariant((short)0));

//wordParagraph=wordParagraphs.GetLast();

//wordRange=wordParagraph.GetRange();

//wordRange.MoveEnd(COleVariant((short)4),COleVariant((short)1));      

//wordRange.SetText("Test");

//wordSelection=wordApp.GetSelection();

//wordSelection.MoveEnd(COleVariant((short)6),COleVariant((short)1));

wordCell=wordTable.Cell(1,1);

wordCell.Select();

wordSelection.TypeText("统计项目");

wordSelection.MoveRight(&CComVariant(12),&CComVariant(1),&CComVariant(0));

wordSelection.TypeText("采样");

wordSelection.MoveRight(&CComVariant(12),&CComVariant(1),&CComVariant(0));



wordSelection.TypeText("百分比");

wordSelection.MoveRight(&CComVariant(12),&CComVariant(1),&CComVariant(0));

wordSelection.TypeText("累计百分比");

//

//

wordSelection.EndOf(COleVariant((short)6),COleVariant((short)0));

wordSelection.TypeParagraph();    

wordSelection.TypeText("(1.2). 分段统计");

wordSelection.HomeKey(&CComVariant(5),&CComVariant(1));

//Format the line with selection

wordFont = wordSelection.GetFont();

wordFont.SetBold(9999998);//wdToggle

wordSelection.EndOf(&CComVariant(5),&CComVariant(0));

wordSelection.TypeParagraph();


wordFont.SetBold(9999998);//wdToggle

wordRange=wordSelection.GetRange();

//add table

//nRow=m_nRange1+1;

wordTable=wordTables.Add(wordRange,5/*row*/,4/*column*/,&defaultBehavior,&AutoFitBehavior);

wordRange=wordTable.GetRange();

//选择第一个单元,进而选择第一行进行格式化

wordCell=wordTable.Cell(1,1);

wordCell.Select();

//select the row with current selection

wordSelection.EndKey(&CComVariant(10),&CComVariant(1));

//Format the row with selection

wordFont = wordSelection.GetFont();

wordFont.SetBold(9999998);

wordCells=wordSelection.GetCells();

wordShading = wordCells.GetShading();

wordShading.SetTexture(0);

wordShading.SetBackgroundPatternColor(14737632);//15987699

wordShading.SetForegroundPatternColor(-16777216);

wordCell=wordTable.Cell(1,1);

wordCell.Select();

wordSelection.TypeText("Range");

wordSelection.MoveRight(&CComVariant(12),&CComVariant(1),&CComVariant(0));

wordSelection.TypeText("Samples");

wordSelection.MoveRight(&CComVariant(12),&CComVariant(1),&CComVariant(0));

wordSelection.TypeText("Percentage");

wordSelection.MoveRight(&CComVariant(12),&CComVariant(1),&CComVariant(0));

wordSelection.TypeText("Calculation");

//


//Save document as report

SYSTEMTIME sysTime;

GetLocalTime(&sysTime);

CString strReport;

strReport.Format("%d年-%d月-%d日 %d-%d-%d 报告",sysTime.wYear,sysTime.wMonth,

    sysTime.wDay,sysTime.wHour,sysTime.wMinute,sysTime.wSecond);

strReport=strPath+""""+strReport;

wordDoc.SaveAs(COleVariant(strReport),COleVariant((short)0),vOpt,vOpt,vOpt,vOpt,vOpt,vOpt

    ,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt);

//Release com

wordFont.ReleaseDispatch();

wordCells.ReleaseDispatch();

wordShading.ReleaseDispatch();

wordTable.ReleaseDispatch();

wordTables.ReleaseDispatch();

wordRange.ReleaseDispatch();

wordSelection.ReleaseDispatch();

wordDoc.RecheckSmartTags();

wordDocs.ReleaseDispatch();

wordApp.ReleaseDispatch();

return TRUE;

Answer 1

你电脑中安装Office了没有，是不是完整版的还是所谓绿色精简版的。使用的操作系统是不是山寨盗版。

只有完整版的Office，才能保证Office VBA COM对象可以被正常调用。