lanshengsheng

轉載請注明出處：(鼓手)http://www.cnitblog.com/lifw/articles/vcpp_officeword.html


最近根據項目需要，需要我去用 vc++6.0 作一個 ActiveX web 組件。自己從來沒有接觸過這方面的編程，這次是頭一遭！所以咱就做了，不過倒很出乎我的意料，比我想象的要快很多就完成了。現將 vc++6.0 操作 word 部分的關鍵代碼部分帖出來，共享給大家。

因為我在開發的時候遇到了很多問題，并且網上的資料很少，基本都是最基本的操作。所以帖出來，希望能讓大家在開發的過程少走些彎路！

工具： vc++6.0 。

關鍵字： c++ ， MFC 。

要求：系統安裝 MS OFFICE 2000 。

過程：

準備工作：

1.       創建一個 MFC(EXE) 工程： MFC AppWizard （ exe ），工程為對話框形式（測試用）。

2.       在 CLASS VIEW 頁面創建一個類：類名為： CWordOffice ，類的類型為： Class type ：Generic Class 。

3.       在工具欄中找到 view -> class wizard -> Automation -> add class -> from a tye library ，然后選中 offfice 安裝的目錄中的 MSWORD9.OLB ，然后選中所有列出的類名，點 OK完成。

準備工作完成，下面貼出相關部分的代碼：

CWordOffice.h 中的手動寫入的代碼如下（自動生成的沒有加入）：

 

 

#include "atlbase.h"
#include "msword9.h"

class CWordOffice 
{
private:
    _Application m_wdApp;
    Documents m_wdDocs;
    _Document m_wdDoc;
    Selection m_wdSel;
    Range     m_wdRange;
    InlineShapes m_wdInlineShapes; 
    InlineShape m_wdInlineShape;

public:
    CWordOffice();
    virtual ~CWordOffice();

public:
    //操作
    //**********************創建新文檔*******************************************
    BOOL CreateApp();                    //創建一個新的WORD應用程序
    BOOL CreateDocuments();                //創建一個新的Word文檔集合
    BOOL CreateDocument();                //創建一個新的Word文檔
    BOOL Create();                        //創建新的WORD應用程序并創建一個新的文檔
    void ShowApp();                        //顯示WORD文檔
    void HideApp();                        //隱藏word文檔

    //**********************打開文檔*********************************************
    BOOL OpenDocument(CString fileName);//打開已經存在的文檔。
    BOOL Open(CString fileName);        //創建新的WORD應用程序并打開一個已經存在的文檔。
    BOOL SetActiveDocument(short i);    //設置當前激活的文檔。

    //**********************保存文檔*********************************************
    BOOL SaveDocument();                //文檔是以打開形式，保存。
    BOOL SaveDocumentAs(CString fileName);//文檔以創建形式，保存。
    BOOL CloseDocument();
    void CloseApp(); 

    //**********************文本書寫操作*****************************************
    void WriteText(CString szText);        //當前光標處寫文本
    void WriteNewLineText(CString szText, int nLineCount = 1); //換N行寫字
    void WriteEndLine(CString szText);    //文檔結尾處寫文本
    void WholeStory();                    //全選文檔內容
    void Copy();                        //復制文本內容到剪貼板
    void InsertFile(CString fileName);    //將本地的文件全部內容寫入到當前文檔的光標處。
    
    //**********************圖片插入操作*****************************************
    void InsertShapes(CString fileName);//在當前光標的位置插入圖片
    
    //**********************超鏈接插入操作*****************************************
    void InsertHyperlink(CString fileLink);//超級鏈接地址，可以是相對路徑。
};

 

CWordOffice.c中的手寫代碼如下：

CWordOffice::CWordOffice()
{

}

CWordOffice::~CWordOffice()
{
    COleVariant vTrue((short)TRUE),    
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    //m_wdDoc.Save();
    m_wdApp.Quit(vFalse,    // SaveChanges.
             vTrue,            // OriginalFormat.
             vFalse            // RouteDocument.
             );
    //釋放內存申請資源
    m_wdInlineShape.ReleaseDispatch();
    m_wdInlineShapes.ReleaseDispatch();
    //m_wdTb.ReleaseDispatch();
    m_wdRange.ReleaseDispatch();
    m_wdSel.ReleaseDispatch();
    //m_wdFt.ReleaseDispatch();
    m_wdDoc.ReleaseDispatch();
    m_wdDocs.ReleaseDispatch();
    m_wdApp.ReleaseDispatch();
}

//操作
BOOL CWordOffice::CreateApp()
{
    if (FALSE == m_wdApp.CreateDispatch("Word.Application"))
    {
        AfxMessageBox("Application創建失敗，請確保安裝了word 2000或以上版本!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

BOOL CWordOffice::CreateDocuments()
{
    if (FALSE == CreateApp()) 
    {
        return FALSE;
    }
    m_wdDocs.AttachDispatch(m_wdApp.GetDocuments());
    if (!m_wdDocs.m_lpDispatch) 
    {
        AfxMessageBox("Documents創建失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

BOOL CWordOffice::CreateDocument()
{
    if (!m_wdDocs.m_lpDispatch) 
    {
        AfxMessageBox("Documents為空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }

    COleVariant varTrue(short(1),VT_BOOL),vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    CComVariant Template(_T(""));    //沒有使用WORD的文檔模板
    CComVariant NewTemplate(false),DocumentType(0),Visible;

    m_wdDocs.Add(&Template,&NewTemplate,&DocumentType,&Visible);    

    //得到document變量
    m_wdDoc = m_wdApp.GetActiveDocument();
    if (!m_wdDoc.m_lpDispatch) 
    {
        AfxMessageBox("Document獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到selection變量
    m_wdSel = m_wdApp.GetSelection();
    if (!m_wdSel.m_lpDispatch) 
    {
        AfxMessageBox("Select獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到Range變量
    m_wdRange = m_wdDoc.Range(vOptional,vOptional);
    if(!m_wdRange.m_lpDispatch)
    {
        AfxMessageBox("Range獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }

    return TRUE;
}

BOOL CWordOffice::Create()
{
    if (FALSE == CreateDocuments()) 
    {
        return FALSE;
    }
    return CreateDocument();
}

void CWordOffice::ShowApp()
{
    m_wdApp.SetVisible(TRUE);
}

void CWordOffice::HideApp()
{
    m_wdApp.SetVisible(FALSE);
}

BOOL CWordOffice::OpenDocument(CString fileName)
{
    if (!m_wdDocs.m_lpDispatch) 
    {
        AfxMessageBox("Documents為空!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }

    COleVariant vTrue((short)TRUE),    
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR),
                vZ((short)0);
    COleVariant     vFileName(_T(fileName));
    
    //得到document變量
    m_wdDoc.AttachDispatch(m_wdDocs.Open(
                                vFileName,        // FileName
                                vTrue,            // Confirm Conversion.
                                vFalse,            // ReadOnly.
                                vFalse,            // AddToRecentFiles.
                                vOptional,        // PasswordDocument.
                                vOptional,        // PasswordTemplate.
                                vOptional,        // Revert.
                                vOptional,        // WritePasswordDocument.
                                vOptional,        // WritePasswordTemplate.
                                vOptional,        // Format. // Last argument for Word 97
                                vOptional,        // Encoding // New for Word 2000/2002
                                vOptional        // Visible
                                /*如下4個是word2003需要的參數。本版本是word2000。
                                //vOptional,    // OpenAndRepair
                                //vZ,            // DocumentDirection wdDocumentDirection LeftToRight
                                //vOptional,    // NoEncodingDialog
                                //vOptional
                                */
                                )                // Close Open parameters
                            );                    // Close AttachDispatch
    
    if (!m_wdDoc.m_lpDispatch) 
    {
        AfxMessageBox("Document獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到selection變量
    m_wdSel = m_wdApp.GetSelection();
    if (!m_wdSel.m_lpDispatch) 
    {
        AfxMessageBox("Select獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到全部DOC的Range變量
    m_wdRange = m_wdDoc.Range(vOptional,vOptional);
    if(!m_wdRange.m_lpDispatch)
    {
        AfxMessageBox("Range獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

BOOL CWordOffice::Open(CString fileName)
{
    if (FALSE == CreateDocuments()) 
    {
        return FALSE;
    }
    return OpenDocument(fileName);
}

BOOL CWordOffice::SetActiveDocument(short i)
{
    COleVariant     vIndex(_T(i)),vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);

    m_wdDoc.AttachDispatch(m_wdDocs.Item(vIndex));
    m_wdDoc.Activate();
    if (!m_wdDoc.m_lpDispatch) 
    {
        AfxMessageBox("Document獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到selection變量
    m_wdSel = m_wdApp.GetSelection();
    if (!m_wdSel.m_lpDispatch) 
    {
        AfxMessageBox("Select獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到全部DOC的Range變量
    m_wdRange = m_wdDoc.Range(vOptional,vOptional);
    if(!m_wdRange.m_lpDispatch)
    {
        AfxMessageBox("Range獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    HideApp();
    return TRUE;
}

BOOL CWordOffice::SaveDocument()
{
    if (!m_wdDoc.m_lpDispatch) 
    {
        AfxMessageBox("Document獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    m_wdDoc.Save();
    return TRUE;
}

BOOL CWordOffice::SaveDocumentAs(CString fileName)
{
    if (!m_wdDoc.m_lpDispatch) 
    {
        AfxMessageBox("Document獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    COleVariant vTrue((short)TRUE),    
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    COleVariant vFileName(_T(fileName));

    m_wdDoc.SaveAs(
                vFileName,    //VARIANT* FileName
                vOptional,    //VARIANT* FileFormat
                vOptional,    //VARIANT* LockComments
                vOptional,    //VARIANT* Password
                vOptional,    //VARIANT* AddToRecentFiles
                vOptional,    //VARIANT* WritePassword
                vOptional,    //VARIANT* ReadOnlyRecommended
                vOptional,    //VARIANT* EmbedTrueTypeFonts
                vOptional,    //VARIANT* SaveNativePictureFormat
                vOptional,    //VARIANT* SaveFormsData
                vOptional    //VARIANT* SaveAsAOCELetter
                );
    return    TRUE;
}

BOOL CWordOffice::CloseDocument()
{
    COleVariant vTrue((short)TRUE),    
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    m_wdDoc.Close(vFalse,    // SaveChanges.
             vTrue,            // OriginalFormat.
             vFalse            // RouteDocument.
             );
    m_wdDoc.AttachDispatch(m_wdApp.GetActiveDocument());
    if (!m_wdDoc.m_lpDispatch) 
    {
        AfxMessageBox("Document獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到selection變量
    m_wdSel = m_wdApp.GetSelection();
    if (!m_wdSel.m_lpDispatch) 
    {
        AfxMessageBox("Select獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    //得到全部DOC的Range變量
    m_wdRange = m_wdDoc.Range(vOptional,vOptional);
    if(!m_wdRange.m_lpDispatch)
    {
        AfxMessageBox("Range獲取失敗!", MB_OK|MB_ICONWARNING);
        return FALSE;
    }
    return TRUE;
}

void CWordOffice::CloseApp()
{
    COleVariant vTrue((short)TRUE),    
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    m_wdDoc.Save();
    m_wdApp.Quit(vFalse,    // SaveChanges.
             vTrue,            // OriginalFormat.
             vFalse            // RouteDocument.
             );
    //釋放內存申請資源
    m_wdInlineShape.ReleaseDispatch();
    m_wdInlineShapes.ReleaseDispatch();
    //m_wdTb.ReleaseDispatch();
    m_wdRange.ReleaseDispatch();
    m_wdSel.ReleaseDispatch();
    //m_wdFt.ReleaseDispatch();
    m_wdDoc.ReleaseDispatch();
    m_wdDocs.ReleaseDispatch();
    m_wdApp.ReleaseDispatch();
}

void CWordOffice::WriteText(CString szText)
{
    m_wdSel.TypeText(szText);
}

void CWordOffice::WriteNewLineText(CString szText, int nLineCount /* = 1 */)
{
    int i;
    if (nLineCount <= 0)
    {
        nLineCount = 0;
    }
    for (i = 0; i < nLineCount; i++)
    {
        m_wdSel.TypeParagraph();
    }
    WriteText(szText);
}

void CWordOffice::WriteEndLine(CString szText)
{
    m_wdRange.InsertAfter(szText);
}

void CWordOffice::WholeStory()
{
    m_wdRange.WholeStory();
}

void CWordOffice::Copy()
{
    m_wdRange.CopyAsPicture();
}

void CWordOffice::InsertFile(CString fileName)
{
    COleVariant     vFileName(fileName),
                 vTrue((short)TRUE),
                 vFalse((short)FALSE),
                 vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR),
                 vNull(_T(""));
    /*
    void InsertFile(LPCTSTR FileName, VARIANT* Range, VARIANT* ConfirmConversions, VARIANT* Link, VARIANT* Attachment);
    */
    m_wdSel.InsertFile(
                    fileName,
                    vNull,
                    vFalse,
                    vFalse,
                    vFalse
                    );
}

void CWordOffice::InsertShapes(CString fileName)
{
    COleVariant vTrue((short)TRUE),    
                vFalse((short)FALSE),
                vOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
    m_wdInlineShapes=m_wdSel.GetInlineShapes();
    m_wdInlineShape=m_wdInlineShapes.AddPicture(fileName,vFalse,vTrue,vOptional);
}

void CWordOffice::InsertHyperlink(CString fileLink)
{
    COleVariant     vAddress(_T(fileLink)),vSubAddress(_T(""));
    Range aRange = m_wdSel.GetRange();
    Hyperlinks vHyperlinks(aRange.GetHyperlinks());

    vHyperlinks.Add(
                    aRange,            //Object，必需。轉換為超鏈接的文本或圖形。
                    vAddress,         //Variant 類型，可選。指定的鏈接的地址。此地址可以是電子郵件地址、Internet 地址或文件名。請注意，Microsoft Word 不檢查該地址的正確性。
                    vSubAddress,     //Variant 類型，可選。目標文件內的位置名，如書簽、已命名的區域或幻燈片編號。
                    vAddress,         //Variant 類型，可選。當鼠標指針放在指定的超鏈接上時顯示的可用作“屏幕提示”的文本。默認值為 Address。
                    vAddress,         //Variant 類型，可選。指定的超鏈接的顯示文本。此參數的值將取代由 Anchor 指定的文本或圖形。
                    vSubAddress        //Variant 類型，可選。要在其中打開指定的超鏈接的框架或窗口的名字。
                    ); 
    vHyperlinks.ReleaseDispatch();
}

上邊的代碼是主要的核心代碼，有些代碼沒有進行優化，請各位批判的看！

測試部分代碼如下：

需要在對話框中添加一個按鈕，按鈕的事件方法內添加如下代碼：

 

COfficeProjectDlg::OnButton1()

{

AfxEnableControlContainer();   

       AfxOleInit();

       CWordOffice wd;

       wd.CreateDocuments();

wd.OpenDocument("d:\\a.doc");

wd.ShowApp(); //顯示word

}