ShellExecute(0, 'open', PChar(strRepDir + strRepFileName), nil, nil, SW_SHOW);   //打开word文档