vc 调用wps

原创 2015年11月17日 22:15:23

环境:xp sp3,vc2003,wps2009

stdafx.h

#import "kso10.dll" named_guids, rename_namespace("KSO")
#import "wpscore.dll" rename_namespace("WPS")

 

// wps.cpp : 定义应用程序的类行为。

BOOL CwpsApp::InitInstance()//添加对com 的支持
{
  ....
    if( FAILED(::CoInitialize(NULL)))
    {
        AfxMessageBox("wps FAILED");
        return FALSE;
    }

...

}

 

// wpsDlg.h : 头文件

public:
    afx_msg void OnBnClickedOk();
    afx_msg void OnBnClickedCancel();

    WPS::_ApplicationPtr g_app;
    void InitDocStatics2();
    
    IDispatch* m_pIDisp;
    void InitDocStatics();
private:
    HRESULT GetProperty(IDispatch *pDisp, LPCOLESTR lpsz, VARIANT *pVar);
    HRESULT PutProperty(IDispatch *pDisp, LPCOLESTR lpsz, VARIANT *pVar);
    HRESULT Invoke0(IDispatch *pDisp, LPCOLESTR lpszName, VARIANT *pvarRet);
    HRESULT InvokeN(IDispatch *pDisp, LPCOLESTR lpszName, VARIANT *varParams, int nParams, VARIANT *pvarRet); 

 

// wpsDlg.cpp : 实现文件

void CwpsDlg::OnBnClickedOk()
{
    // TODO: 在此添加控件通知处理程序代码
    InitDocStatics();
    //InitDocStatics2();
    //OnOK();
}

void CwpsDlg::OnBnClickedCancel()
{
    // TODO: 在此添加控件通知处理程序代码
    if(g_app!=NULL)
        g_app->Quit();

    //CoUninitialize();
    OnCancel();
}

void CwpsDlg::InitDocStatics()
{
    USES_CONVERSION;   

    CLSID clsid = {0};    

    // 获取WPS文字的 CLSID   
    HRESULT hr = CLSIDFromProgID(L"wps.application", &clsid);   
    if(FAILED(hr))   
        return;   

    // 通过CLSID启动WPS   
    hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void**)&m_pIDisp);   
    if(FAILED(hr))   
        return;   

    

    // 获取Documents集合   
    VARIANT varDocuments = {0};   
    GetProperty(m_pIDisp, L"Documents", &varDocuments);  

    VARIANT varDocument = {0};

    CComVariant varParams[15];   
    varParams[14-0].vt = VT_BSTR;          
    varParams[14-0].bstrVal = ::SysAllocString(A2OLE("e:\\1011.doc"));
    varParams[14-1].vt = VT_BOOL;            // 确认转换
    varParams[14-1].boolVal = VARIANT_TRUE;
    varParams[14-2].vt = VT_BOOL;            // 只读
    varParams[14-2].boolVal = VARIANT_TRUE;
    varParams[14-3].vt = VT_BOOL;            // 添加到最近文件中
    varParams[14-3].boolVal = VARIANT_TRUE;
    varParams[14-4].vt = VT_BSTR;            // 文档口令.
    varParams[14-4].bstrVal = ::SysAllocString(A2OLE(""));
    varParams[14-5].vt = VT_BSTR;            // 模板口令.
    varParams[14-5].bstrVal = ::SysAllocString(A2OLE(""));
    varParams[14-6].vt = VT_BOOL;           // 恢复原状.
    varParams[14-6].boolVal = VARIANT_TRUE;
    varParams[14-7].vt = VT_BSTR;            // 写文档口令.
    varParams[14-7].bstrVal = ::SysAllocString(A2OLE(""));
    varParams[14-8].vt = VT_BSTR;            // 写模板口令.
    varParams[14-8].bstrVal = ::SysAllocString(A2OLE(""));
    varParams[14-9].vt = VT_I4;           // 格式. //
    varParams[14-9].lVal = 0;
    varParams[14-10].vt = VT_I4;            //  // 编码
    varParams[14-10].lVal = 50001;            //    KSO::ksoEncodingAutoDetect,   // 编码
    varParams[14-11].vt = VT_BOOL;            // 可见
    varParams[14-11].boolVal = VARIANT_TRUE;
    varParams[14-12].vt = VT_BOOL;            // 打开并修复
    varParams[14-12].boolVal = VARIANT_TRUE;
    varParams[14-13].vt = VT_I4;           // DocumentDirection wdDocumentDirection LeftToRight
    varParams[14-13].lVal = 0;
    varParams[14-14].vt = VT_BOOL;            // 无编码对话框
    varParams[14-14].boolVal = VARIANT_TRUE;

    // 插入图片   
    hr = InvokeN(varDocuments.pdispVal, L"Open", varParams, 15, &varDocument);  

    // 使WPS可见   
    VARIANT var = {0};
    var.vt = VT_BOOL;   
    var.boolVal = VARIANT_TRUE;   
    PutProperty(m_pIDisp, L"Visible", &var);   

    return;

    //// 在Documents中新建一篇文档   
    //VARIANT varDocument = {0};   
    //Invoke0(varDocuments.pdispVal, L"Add", &varDocument);

    //// 获取Selection对象   
    //VARIANT varSelection = {0};   
    //GetProperty(m_pIDisp, L"Selection", &varSelection);   

    //// 获取Selection的Range对象   
    //VARIANT varRange = {0};   
    //GetProperty(varSelection.pdispVal, L"Range", &varRange);   

    //// 获取ParagraphFormat对象,以便设置对齐方式   
    //VARIANT varParagraphFormat = {0};   
    //GetProperty(varSelection.pdispVal, L"ParagraphFormat", &varParagraphFormat);

    //// 设置文字居中对齐   
    //var.vt = VT_I4;   
    //var.lVal = 1;   
    //PutProperty(varParagraphFormat.pdispVal, L"Alignment", &var);   

    //// 插入文字,该文字是居中显示的   
    //var.vt = VT_BSTR;   
    //var.bstrVal = ::SysAllocString(A2OLE("hello,world\n"));   
    //PutProperty(varRange.pdispVal, L"Text", &var);   

    //// 获取Shapes集合对象   
    //VARIANT varShapes = {0};   
    //GetProperty(varDocument.pdispVal, L"Shapes", &varShapes);   

    //// 设置参数,该参数将传入Shapes的AddPicture方法中   
    //CComVariant varParams[8];   
    //varParams[0].vt = VT_BSTR;          //  Anchor   
    //varParams[0].bstrVal = ::SysAllocString(A2OLE(""));   
    //varParams[1].vt = VT_I4;            //  Height   
    //varParams[1].lVal = 60;                
    //varParams[2].vt = VT_I4;            //  Width   
    //varParams[2].lVal = 148;   
    //varParams[3].vt = VT_I4;            //  Top   
    //varParams[3].lVal = 50;   
    //varParams[4].vt = VT_I4;            //  Left   
    //varParams[4].lVal = 100;   
    //varParams[5].vt = VT_BOOL;          //  SaveWithDocument   
    //varParams[5].boolVal = VARIANT_TRUE;   
    //varParams[6].vt = VT_BOOL;          //  LinkToFile   
    //varParams[6].boolVal = VARIANT_FALSE;   
    //varParams[7].vt = VT_BSTR;          //  FileName   
    //varParams[7].bstrVal = ::SysAllocString(A2OLE("http://img.kingsoft.com/publish/kingsoft/images/gb/sy/logo.gif"));   

    //// 插入图片   
    //InvokeN(varShapes.pdispVal, L"AddPicture", varParams, 8, &var);   
    return ;
}
// 执行没有参数的方法   
HRESULT CwpsDlg::Invoke0(IDispatch *pDisp, LPCOLESTR lpszName, VARIANT *pvarRet)   
{   
    if(pDisp == NULL)   
        return E_FAIL;   

    HRESULT hr;   
    DISPID dispid;   

    hr = pDisp->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpszName, 1, LOCALE_USER_DEFAULT, &dispid);   
    if (SUCCEEDED(hr))   
    {   
        DISPPARAMS dispparams = { NULL, NULL, 0, 0};   
        return pDisp->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispparams, pvarRet, NULL, NULL);   

    }   
    return hr;   
}   

// 执行含有N个参数的方法   
HRESULT CwpsDlg::InvokeN(IDispatch *pDisp, LPCOLESTR lpszName, VARIANT *varParams, int nParams, VARIANT *pvarRet)   
{   
    if(pDisp == NULL)   
        return E_FAIL;   

    HRESULT hr;   
    DISPID dispid;   

    hr = pDisp->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpszName, 1, LOCALE_USER_DEFAULT, &dispid);   
    if (SUCCEEDED(hr))   
    {   
        DISPPARAMS dispparams = { varParams, NULL, nParams, 0};   
        return pDisp->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, &dispparams, pvarRet, NULL, NULL);   

    }   
    return hr;   

}   

// 获取属性值   
HRESULT CwpsDlg::GetProperty(IDispatch *pDisp, LPCOLESTR lpsz, VARIANT *pVar)   
{   
    if(pDisp == NULL)   
        return E_FAIL;   

    DISPID dwDispID;   

    pDisp->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpsz, 1, LOCALE_USER_DEFAULT, &dwDispID);   
    DISPPARAMS dispparams = {NULL, NULL, 0, 0};   

    return pDisp->Invoke(dwDispID, IID_NULL,   
        LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET,   
        &dispparams, pVar, NULL, NULL);   
}   

// 设置属性值   
HRESULT CwpsDlg::PutProperty(IDispatch *pDisp, LPCOLESTR lpsz, VARIANT *pVar)   
{   
    if(pDisp == NULL)   
        return E_FAIL;   

    DISPID dwDispID;   

    pDisp->GetIDsOfNames(IID_NULL, (LPOLESTR*)&lpsz, 1, LOCALE_USER_DEFAULT, &dwDispID);   
    DISPPARAMS dispparams = {NULL, NULL, 1, 1};   
    dispparams.rgvarg = pVar;   
    DISPID dispidPut = DISPID_PROPERTYPUT;   
    dispparams.rgdispidNamedArgs = &dispidPut;   

    if (pVar->vt == VT_UNKNOWN || pVar->vt == VT_DISPATCH ||    
        (pVar->vt & VT_ARRAY) || (pVar->vt & VT_BYREF))   
    {   
        HRESULT hr = pDisp->Invoke(dwDispID, IID_NULL,   
            LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUTREF,   
            &dispparams, NULL, NULL, NULL);   
        if (SUCCEEDED(hr))   
            return hr;   
    }   

    return pDisp->Invoke(dwDispID, IID_NULL,   
        LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT,   
        &dispparams, NULL, NULL, NULL);   
}

void CwpsDlg::InitDocStatics2()
{
    CLSID clsid;
    HRESULT hr;
    hr=::CLSIDFromProgID(L"WPS.Application",&clsid);    //通过ProgID取得CLSID

    try
    {
        g_app.CreateInstance(__uuidof(WPS::Application )) ;
    }
    catch (...)
    {
        AfxMessageBox("啊呀不是没装wps吧?");
        return;
    }

    WPS::DocumentsPtr docs =g_app->GetDocuments();

    COleVariant vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);//类型转换

    CString sWord="e:\\1011.doc";

    WPS::_DocumentPtr m_pDocument;
    _bstr_t sNull;

    try
    {
        m_pDocument = docs->Open(
            _bstr_t(sWord),
            VARIANT_FALSE,            // 确认转换
            VARIANT_TRUE,            // 只读
            VARIANT_FALSE,            // 添加到最近文件中
            sNull,                    // 文档口令.
            sNull,                    // 模板口令.
            VARIANT_FALSE,            // 恢复原状.
            sNull,                    // 写文档口令.
            sNull,                    // 写模板口令.
            0,                        // 格式.
            KSO::ksoEncodingAutoDetect,   // 编码
            VARIANT_TRUE,            // 可见
            VARIANT_FALSE,            // 打开并修复
            0,                        // DocumentDirection wdDocumentDirection LeftToRight
            VARIANT_FALSE            // 无编码对话框
            );

    }

    catch(_com_error)
    {
        g_app->Quit(&vtMissing,&vtMissing,&vtMissing);
        return ;
    }

    g_app->put_Visible(VARIANT_TRUE);

    WPS::_DocumentPtr lpWord=g_app->GetActiveDocument();
}

 

ps:invoke调用documents的Open方法的时候,开始数组列表和Open函数参数一直,但是调用后报"类型不匹配"错误,然后百度,原来

DISPPARAMS的rgvargs参数存储顺序应该与函数调用顺序相反,改正后就好了

参考:http://topic.csdn.net/t/20030814/22/2147820.html

http://read.pudn.com/downloads159/sourcecode/windows/715596/VC_WPSStartKit/ControlWPS.cpp__.htm

http://read.pudn.com/downloads159/sourcecode/windows/715596/VC_WPSStartKit/ControlWPS.h__.htm

相关文章推荐

MFC操作office通用分析方法

MFC操作office通用分析方法 序       Word和Excel都是我们在日常中常常用到的工具,当然大部分的操作都可以手动完成。但是有时候,有的重复性的统计操作是很繁琐的,比如如下的例子:...

MFC开发wps演示

1、项目->add->class->MFC->MFC Class From Typelib->add 2、在Available type libraries中选择正确的库并添加要用到的类 3、在...

Wps二次开发——C++入门教程

WPS Office作为一款成熟的办公软件。已经有一套完整的API接口,通过调用这些接口,我们能够完成很多用界面能完成亦或者不能完成的功能。现在我就介绍如何在C++中调用WPS的API。 WPS Of...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

金山WPS、微软Office EXCEL表格通用C++接口

描述: 对Excel常用操作封装类,适用于Microexcel、WPSexcel表格文件 1,打开、新建、保存、另存excel文件 2,工作表的增加、删除、隐藏操作、拷贝、移动 3,单元格文本写入以及...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

调用WPS服务COM组件转换PDF

调用WPS组件来实现各种类型附件转换成pdf。支持的文件类型有 wps、wpt、doc、docx、dot、txt;ppt、pps、pptx、ppsx、dps、dpt、pot、uof;et、ett、xl...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

mfc中嵌入ppt,播放的时候在对话框中播放

本人想通过VC调用PowerPoint的接口来操作PPT文档,一切都好,可就是解析的时候调用open函数,会弹出PowerPoint的窗口,再然后将窗口隐藏    _Application *...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:vc 调用wps
举报原因:
原因补充:

(最多只允许输入30个字)