最近根據(jù)項(xiàng)目需要，需要我去用
vc++6.0 作一個(gè) ActiveX web 組件。自己從來(lái)沒(méi)有接觸過(guò)這方面的編程，這次是頭一遭！所以咱就做了，不過(guò)倒很出乎我的意料，比我想象的要快很多就完成了。現(xiàn)將 vc++6.0 操作 word 部分的關(guān)鍵代碼部分帖出來(lái)，共享給大家。
因?yàn)槲以陂_(kāi)發(fā)的時(shí)候遇到了很多問(wèn)題，并且網(wǎng)上的資料很少，基本都是最基本的操作。所以帖出來(lái)，希望能讓大家在開(kāi)發(fā)的過(guò)程少走些彎路！
工具： vc++6.0 。
關(guān)鍵字： c++ ， MFC 。
要求：系統(tǒng)安裝 MS OFFICE 2000 。
過(guò)程：
準(zhǔn)備工作：
1. 創(chuàng)建一個(gè) MFC(EXE) 工程： MFC AppWizard （ exe ），工程為對(duì)話框形式（測(cè)試用）。
2. 在 CLASS VIEW 頁(yè)面創(chuàng)建一個(gè)類：類名為： CWordOffice ，類的類型為： Class type ： Generic Class 。
3. 在工具欄中找到 view -> class wizard -> Automation -> add class -> from a tye library ，然后選中 offfice 安裝的目錄中的 MSWORD9.OLB ，然后選中所有列出的類名，點(diǎn) OK 完成。
準(zhǔn)備工作完成，下面貼出相關(guān)部分的代碼：
CWordOffice.h 中的手動(dòng)寫(xiě)入的代碼如下（自動(dòng)生成的沒(méi)有加入）：
#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:
//操作
//**********************創(chuàng)建新文檔*******************************************
BOOL CreateApp(); //創(chuàng)建一個(gè)新的WORD應(yīng)用程序
BOOL CreateDocuments(); //創(chuàng)建一個(gè)新的Word文檔集合
BOOL CreateDocument(); //創(chuàng)建一個(gè)新的Word文檔
BOOL Create(); //創(chuàng)建新的WORD應(yīng)用程序并創(chuàng)建一個(gè)新的文檔
void ShowApp(); //顯示W(wǎng)ORD文檔
void HideApp(); //隱藏word文檔
//**********************打開(kāi)文檔*********************************************
BOOL OpenDocument(CString fileName);//打開(kāi)已經(jīng)存在的文檔。
BOOL Open(CString fileName); //創(chuàng)建新的WORD應(yīng)用程序并打開(kāi)一個(gè)已經(jīng)存在的文檔。
BOOL SetActiveDocument(short i); //設(shè)置當(dāng)前激活的文檔。
//**********************保存文檔*********************************************
BOOL SaveDocument(); //文檔是以打開(kāi)形式，保存。
BOOL SaveDocumentAs(CString fileName);//文檔以創(chuàng)建形式，保存。
BOOL CloseDocument();
void CloseApp();
//**********************文本書(shū)寫(xiě)操作*****************************************
void WriteText(CString szText); //當(dāng)前光標(biāo)處寫(xiě)文本
void WriteNewLineText(CString szText, int nLineCount = 1); //換N行寫(xiě)字
void WriteEndLine(CString szText); //文檔結(jié)尾處寫(xiě)文本
void WholeStory(); //全選文檔內(nèi)容
void Copy(); //復(fù)制文本內(nèi)容到剪貼板
void InsertFile(CString fileName); //將本地的文件全部?jī)?nèi)容寫(xiě)入到當(dāng)前文檔的光標(biāo)處。
//**********************圖片插入操作*****************************************
void InsertShapes(CString fileName);//在當(dāng)前光標(biāo)的位置插入圖片
//**********************超鏈接插入操作*****************************************
void InsertHyperlink(CString fileLink);//超級(jí)鏈接地址，可以是相對(duì)路徑。
};
CWordOffice.c中的手寫(xiě)代碼如下：
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.
);
//釋放內(nèi)存申請(qǐng)資源
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創(chuàng)建失敗，請(qǐng)確保安裝了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創(chuàng)建失敗!", 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("")); //沒(méi)有使用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個(gè)是word2003需要的參數(shù)。本版本是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.
);
//釋放內(nèi)存申請(qǐng)資源
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，必需。轉(zhuǎn)換為超鏈接的文本或圖形。
vAddress, //Variant 類型，可選。指定的鏈接的地址。此地址可以是電子郵件地址、Internet 地址或文件名。請(qǐng)注意，Microsoft Word 不檢查該地址的正確性。
vSubAddress, //Variant 類型，可選。目標(biāo)文件內(nèi)的位置名，如書(shū)簽、已命名的區(qū)域或幻燈片編號(hào)。
vAddress, //Variant 類型，可選。當(dāng)鼠標(biāo)指針?lè)旁谥付ǖ某溄由蠒r(shí)顯示的可用作“屏幕提示”的文本。默認(rèn)值為 Address。
vAddress, //Variant 類型，可選。指定的超鏈接的顯示文本。此參數(shù)的值將取代由 Anchor 指定的文本或圖形。
vSubAddress //Variant 類型，可選。要在其中打開(kāi)指定的超鏈接的框架或窗口的名字。
);
vHyperlinks.ReleaseDispatch();
}
上邊的代碼是主要的核心代碼，有些代碼沒(méi)有進(jìn)行優(yōu)化，請(qǐng)各位批判的看！
測(cè)試部分代碼如下：
需要在對(duì)話框中添加一個(gè)按鈕，按鈕的事件方法內(nèi)添加如下代碼：
COfficeProjectDlg::OnButton1()
{
AfxEnableControlContainer();
AfxOleInit();
CWordOffice wd;
wd.CreateDocuments();
wd.OpenDocument("d:\\a.doc");
wd.ShowApp(); //顯示word
}
其他方法就不一一帖出測(cè)試方法了。可以自己根據(jù)方法說(shuō)明做測(cè)試。