VC++操作word

最新推荐文章于 2019-07-19 22:11:58 发布

Augusdi

最新推荐文章于 2019-07-19 22:11:58 发布

阅读量3.6k

点赞数

分类专栏： Office编程

Office编程专栏收录该内容

136 篇文章 7 订阅

订阅专栏

最近根据项目需要，需要我去用 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()