VC中進行office編程

1、VC中進行office編程操作word介紹VC中進行office編程的操作word，可以設(shè)置文字的樣式，新建表格，這里提供給大家一個類CWzjWordOffice:CWzjOffice類，用來對WORD進行簡單的操作。讀者評分 3 評分次數(shù) 1 正文大家先看一下CWzjWordOffice類怎么使用 CWzjWordOffice wd; /定義一個操作word的對象 wd.Create(); /創(chuàng)建一個word應(yīng)用程序增加一個文檔 wd.SetFont(25,魏碑,RGB(128, 0, 0); /設(shè)置字體(字號，字體名，顏色) wd.SetFont(1,0,0); /設(shè)置字體為粗體，不是斜體

2、，沒有下劃線 wd.SetParaphformat(1); /設(shè)置文字為居中對齊 wd.WriteText(軟件工程成績); /寫文字 wd.m_wdSel.TypeParagraph(); /回車換行 /設(shè)置表格字體 wd.SetFont(9,宋體); wd.SetFont(0,0,0); wd.CreateTable(2,4); /創(chuàng)建一個2行4列的表格 wd.WriteCellText(1,1,學(xué)號); /往1行1列單元寫“學(xué)號” wd.WriteCellText(1,2,姓名); /往1行2列單元寫“姓名” wd.WriteCellText(1,3,年齡); /. wd.WriteCe

3、llText(1,4,省份); wd.WriteCellText(2,1,23020723); wd.WriteCellText(2,2,汪自軍); wd.WriteCellText(2,3,25); wd.WriteCellText(2,4,湖北); wd.ShowApp(); /顯示word后面是效果圖。此主題相關(guān)圖片如下：按此查看圖片詳細(xì)信息正在讀取此圖片的詳細(xì)信息，請稍候 .要 在VC中進行OFFICE編程，先要導(dǎo)入OFFICE組件庫，方法是：VC類向?qū)г黾宇怓rom a type library找到D:Program FilesMicrosoft OfficeOFFICE11MSWO

4、RD.OLB增加一些類，在WORD中要增加的 _Application,_Document,_Font,_Paragraphformat,要是后面用到不夠的話，還可以回來用同樣的方法加上。下面是類的兩個文件.h文件/ WzjOffice.h: interface for the CWzjOffice class./#if !defined(AFX_WZJOFFICE_H_5E694706_F031_4E02_9674_69A4B7300931_INCLUDED_)#define AFX_WZJOFFICE_H_5E694706_F031_4E02_9674_69A4B7300931_INCLU

5、DED_#if _MSC_VER 1000#pragma once#endif / _MSC_VER 1000#include atlbase.h#include msword.h#include comdef.h#include /COlVirant/* 類名: CWzjOffice,CWzjWordOffice,CWzjExcelOffice 頭文件 WzjOffice.h * 描述: Office操作(WORD,EXCEL) 信息: 汪自軍 吉林大學(xué) 2007.01* 聯(lián)系: wzj23020723 TM: 39600719* blog: */=CWzjOffice=class CWzj

6、Office public: CWzjOffice(); virtual CWzjOffice();/=/=/=CWzjWordOffice=class CWzjWordOffice:CWzjOfficeprivate:public: _Application m_wdApp; Documents m_wdDocs; _Document m_wdDoc; _Font m_wdFt; Selection m_wdSel; Table m_wdTb;public: CWzjWordOffice(); virtual CWzjWordOffice(); /操作/*創(chuàng)建新文檔* BOOL Create

7、App(); /創(chuàng)建一個新的WORD應(yīng)用程序 BOOL CreateDocumtent(); /創(chuàng)建一個新的Word文檔 BOOL Create(); /創(chuàng)建新的WORD應(yīng)用程序并創(chuàng)建一個新的文檔 void ShowApp(); /顯示W(wǎng)ORD文檔/*文本書寫操作* void WriteText(CString szText); /寫文本 void NewLine(int nLineCount); /回車換N行 void WriteNewLineText(CString szText, int nLineCount = 1); /換N行寫字/*表格操作* void CreateTable(in

8、t nRow, int nColumn); void WriteCellText(int nRow, int nColumne, CString szText); /往表格中寫字 void WriteCellNewLineText(int nRow, int nColumne, CString szText, int nLineCount = 1); /表格換N行寫字 void New2StringArray(CString* pszArr, int nRow, int nColumn); /創(chuàng)建二維字符串?dāng)?shù)組 void WriteTableText(CString* pszText, int

9、 nRow, int nColumn); /用二維字符串?dāng)?shù)組填充表格 void SelectCell(int nRow, int nColumn); /選中表格/*字體設(shè)置* void SetFont(CString szFontName, float fSize = 9, long lFontColor = 0, long lBackColor=0); void SetFont(BOOL bBold, BOOL bItalic = FALSE, BOOL bUnderLine = FALSE); void SetTableFont(int nRow, int nColumn, CString

10、 szFontName = 宋體, float fSize=9, long lFontColor=0, long lBackColor = 0); void SetTableFont(int nRow, int nColumn, BOOL bBold, BOOL bItalic = FALSE, BOOL bUnderLine = FALSE);/*格式設(shè)置* void SetParaphformat(int nAlignment);/方法;#endif / !defined(AFX_WZJOFFICE_H_5E694706_F031_4E02_9674_69A4B7300931_INCLUD

11、ED_).cpp文件/ WzjOffice.cpp: implementation of the CWzjOffice class./#include stdafx.h#include WzjOffice.h#ifdef _DEBUG#undef THIS_FILEstatic char THIS_FILE=_FILE_;#define new DEBUG_NEW#endif/ Construction/Destruction/CWzjOffice:CWzjOffice()CWzjOffice:CWzjOffice()/=CWzjWordOffice=CWzjWordOffice:CWzjWo

12、rdOffice()CWzjWordOffice:CWzjWordOffice()BOOL CWzjWordOffice:CreateApp() if (FALSE = m_wdApp.CreateDispatch(Word.Application) AfxMessageBox(Application創(chuàng)建失敗!, MB_OK|MB_ICONWARNING); return FALSE; / m_wdApp.SetVisible(TRUE); return TRUE;BOOL CWzjWordOffice:CreateDocumtent() if (!m_wdApp.m_lpDispatch)

13、AfxMessageBox(Application為空,Documents創(chuàng)建失敗!, MB_OK|MB_ICONWARNING); return FALSE; m_wdDocs.AttachDispatch(m_wdApp.GetDocuments(); if (!m_wdDocs.m_lpDispatch) AfxMessageBox(Documents創(chuàng)建失敗!, MB_OK|MB_ICONWARNING); return FALSE; COleVariant varTrue(short(1),VT_BOOL); /*VARIANT vtTtemplate, vtNewTemplate,

14、 vtDocType, vtVisible; vtTtemplate.vt = VT_BSTR; _bstr_t bstr = ; vtTtemplate.bstrVal = bstr; vtNewTemplate.vt = VT_BOOL; vtNewTemplate.boolVal = FALSE; vtDocType.vt = VT_I4; vtDocTVal =0; vtVisible.vt = VT_BOOL; vtVisible.boolVal = TRUE; pDocs-Add(&vtTtemplate,&vtNewTemplate,&vtDocType,&vtVi

15、sible);*/ CComVariant Template(_T(); /為了簡單，沒有使用WORD的文檔模板 CComVariant NewTemplate(false),DocumentType(0),Visible; m_wdDocs.Add(&Template,&NewTemplate,&DocumentType,&Visible); /得到document和selection變量 m_wdDoc = m_wdApp.GetActiveDocument(); if (!m_wdDoc.m_lpDispatch) AfxMessageBox(Document獲取失敗!, MB_OK|M

16、B_ICONWARNING); return FALSE; m_wdSel = m_wdApp.GetSelection(); if (!m_wdSel.m_lpDispatch) AfxMessageBox(Select獲取失敗!, MB_OK|MB_ICONWARNING); return FALSE; return TRUE;BOOL CWzjWordOffice:Create() if (FALSE = CreateApp() return FALSE; return CreateDocumtent();void CWzjWordOffice:ShowApp() m_wdApp.Set

17、Visible(TRUE);void CWzjWordOffice:WriteText(CString szText) m_wdSel.TypeText(szText);void CWzjWordOffice:WriteNewLineText(CString szText, int nLineCount /* = 1 */) int i; if (nLineCount = 0) nLineCount = 0; for (i = 0; i nLineCount; i+) m_wdSel.TypeParagraph(); void CWzjWordOffice:SetFont(CString sz

18、FontName /*= 宋體*/,float fSize, long lFontColor /*= 0*/,long lBackColor /*= 0*/) if (!m_wdSel.m_lpDispatch) AfxMessageBox(Select為空，字體設(shè)置失敗!, MB_OK|MB_ICONWARNING); return; m_wdSel.SetText(F); m_wdFt = m_wdSel.GetFont(); m_wdFt.SetSize(fSize); m_wdFt.SetName(szFontName); m_wdFt.SetColor(lFontColor); m_

19、wdSel.SetFont(m_wdFt); Range r = m_wdSel.GetRange(); r.SetHighlightColorIndex(lBackColor);void CWzjWordOffice:SetFont(BOOL bBold, BOOL bItalic /* = FALSE */, BOOL bUnderLine /* = FALSE */) if (!m_wdSel.m_lpDispatch) AfxMessageBox(Select為空，字體設(shè)置失敗!, MB_OK|MB_ICONWARNING); return; m_wdSel.SetText(F); m

20、_wdFt = m_wdSel.GetFont(); m_wdFt.SetBold(bBold); m_wdFt.SetItalic(bItalic); m_wdFt.SetUnderline(bUnderLine); m_wdSel.SetFont(m_wdFt);void CWzjWordOffice:SetTableFont(int nRow, int nColumn, CString szFontName, float fSize, long lFontColor, long lBackColor) Cell c = m_wdTb.Cell(nRow, nColumn); c.Sele

21、ct(); _Font ft = m_wdSel.GetFont(); ft.SetName(szFontName); ft.SetSize(fSize); ft.SetColor(lFontColor); m_wdSel.SetFont(ft); Range r = m_wdSel.GetRange(); r.SetHighlightColorIndex(lBackColor);void CWzjWordOffice:SetTableFont(int nRow, int nColumn, BOOL bBold, BOOL bItalic /* = FALSE */, BOOL bUnderL

22、ine /* = FALSE */) Cell c = m_wdTb.Cell(nRow, nColumn); c.Select(); _Font ft = m_wdSel.GetFont(); ft.SetBold(bBold); ft.SetItalic(bItalic); ft.SetUnderline(bUnderLine); m_wdSel.SetFont(ft);void CWzjWordOffice:SetParaphformat(int nAlignment) _Paragraphformat p = m_wdSel.GetParagraphformat(); p.SetAlignment(nAlignment); m_wdSel.SetParagraphformat(p);void CWzjWordOffice:CreateTable(int nRow, i