求助:VC向WORD文档插入图片失败(急!!!)

2014-10-16 02:32:08 320 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

MFC VC 操作Excel,word的OLE对象前几天老板分配了一个任务，背景是用户手动复制excel的一些统计表或者word中的组织结构图或者Visio中的流程图等，不能直接保持原格式粘贴到MFC的RichEdit控件中。用户只能手动把word,excel,visio中的图形以OLE对象的形式插入到一个新的word文件中，然后才能把这个OLE对象拷贝到RichEidt控件中。阅读详情

Word::SelectionPtr spSelection = m_pApp->Selection;
Word::InlineShapesPtr spInlineShapes = spSelection->InlineShapes;
Word::InlineShapePtr spInlineShape;
COleVariant vtTrue((short)VARIANT_TRUE);
COleVariant vtFalse((short)VARIANT_FALSE);
spInlineShape = spInlineShapes->AddPicture(_bstr_t(lpPicFile), vtFalse, vtTrue);
if (NULL != spInlineShape) {
ShapePtr shape = spInlineShape->ConvertToShape();
if (shape != NULL) {
shape->ZOrder(msoSendBehindText);
}
}

上述代码本意将图片插入到WORD中,并将图片转换成浮动格式且设置为最底层显示．但在ShapePtr shape = spInlineShape->ConvertToShape();之后，shape为空,实际上图片已经转为浮动格式,但没能够得到ShapePtr对象无法设置最底层显示.有没有做过相关方面开发的同行指教下,谢谢!!!

...全文

Sqribble模板驱动文档自动化：从Word填空到结构化内容建模文档自动化并非简单替换排版工具，而是以结构化内容建模为基础，通过模板驱动实现专业文档的标准化、可复用与高一致产出。其核心在于将内容、逻辑与呈现三层解耦，使占位符成为具备类型校验、条件响应和数据契约能力的智能节点，而非静态文本占位。这种范式迁移显著提升SaaS交付、融资BP、客户提案等高频文档的生成效率与准确率，尤其适用于需批量定制、多角色协同及品牌强管控的业务场景。Sqribble的JSON Schema模板架构与轻量逻辑引擎，正是支撑这一‘文档工业化’落地的关键技术底座。阅读详情

coolcpz

ATL 3,248 成员 48,530 内容

+ 关注 + 加入社区

切换为时间正序

coolcpz 2014-10-16

打赏
举报

解决了,是我自己被ConverToShape()给误导了,按他这方法应该是要返回转换后的ShapePtr的,但却没能够返回,不知道是SDK的BUG呢还是我哪个地方使用的误,按VBA的方式来做就OK了. m_pDoc->InlineShapes->Item(m_pDoc->InlineShapes->Count)->ConvertToShape()->ZOrder(msoSendBehindText);

coolcpz 2014-10-16

打赏
举报

Sub 宏2() ' ' 宏2 宏 ' ' Selection.InlineShapes.AddPicture FileName:="C:\Users\chenpengzhen\Desktop\gz.jpg", LinkToFile:=False, SaveWithDocument:=True ActiveDocument.InlineShapes(1).ConvertToShape().ZOrder ZOrderCmd:=msoSendBehindText End Sub 这是我做的VBA宏,使用该宏可以正确的将图片设置浮动且调用ZOrder设置图片沉底

赵4老师 2014-10-16

打赏
举报

在Word 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。仅供参考

//1.在VC中新建一控制台程序，选支持MFC（当然，你也可以不选择支持MFC的，不过会很麻烦）
//2.按CTRL+W调出MFC ClassWizard，Add Class->From a type library,选择你的word的类型库
//  (例如我的是word2003，安装在e盘，我的路径是"e:\edittools\microsoft office\office11\msword.olb"),
//  选择完毕后，在弹出的窗口中选择要让classwizard生成的包装类，在本例中要用到
//  _Application,
//  Documents,
//  _Document,
//  Range
//  这四个类，选中他们后按OK
//3.进入你的main函数所在的cpp文件，加入头文件引用
//  #include  "msword.h"    //引用刚才classwizard生成的idispatch包装类
//4.加入代码
// console_word.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include "console_word.h"
#include "msword.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif

/////////////////////////////////////////////////////////////////////////////
// The one and only application object

CWinApp theApp;

int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
    int nRetCode = 0;

    // initialize MFC and print and error on failure
    if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
    {
        // TODO: change error code to suit your needs
        printf(_T("Fatal Error: MFC initialization failed!\n"));
        nRetCode = 1;
    }
    else
    {
        // TODO: code your application's behavior here.
        if  (CoInitialize(NULL)  !=  S_OK)
        {
            AfxMessageBox("初始化COM支持库失败!");
            return  -1;
        }

        _Application  wordApp;
        Documents     docs;
        _Document     doc;
        Range         aRange;
        COleVariant   vTrue((short)TRUE), vFalse((short)FALSE), vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
        CString       txt;

        wordApp.CreateDispatch("Word.Application",NULL);
        wordApp.SetVisible(FALSE);
            docs=wordApp.GetDocuments();
                doc=docs.Open(COleVariant("c:\\new\\测试.doc"),vFalse,vTrue,vFalse,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt);
                    aRange=doc.Range(vOpt,vOpt);
                        txt=aRange.GetText();
                        AfxMessageBox(txt);//这里GetText得到的就是word文件的纯文本了,你可以将其写到txt文件中
                        printf("[%s]\n",txt.GetBuffer(txt.GetLength()));//里面的换行不是\r\n而是\r，所以需要输出重定向到文本文件看结果。
                    aRange.ReleaseDispatch();
                doc.Close(vOpt,vOpt,vOpt);
                doc.ReleaseDispatch();
            docs.ReleaseDispatch();
        wordApp.Quit(vOpt,vOpt,vOpt);
        wordApp.ReleaseDispatch();

        CoUninitialize();
    }

    return nRetCode;
}

求助:VC向WORD文档插入图片失败(急!!!)

相关推荐