Word VBA高效排版范例应用 光盘内容

《Word VBA 高效排版范例应用》将使读者对每天都要面对的Word软件有一个全新的认识，完全发挥它强大的文字处理和排版功能，并为读者提供服务。很多人不知道，其实几乎90%的用户用到了Word软件10%的功能，《Word VBA 高效排版范例应用》将完全开发出另外的90%！这90%未开发的功能有什么用呢？可以告诉您，它可以使您的工作大大简化，工作效率大大提高！ 　　《Word VBA 高效排版范例应用》共分18章，在介绍Word VBA基础知识、语法和函数之后，循序渐进地介绍了利用Word VBA处理文档、绘制表格、排版打印等实际应用，以大量技巧和丰富的实例，全方展示了Word VBA的精髓。

/************************************************************************
**	D B D A O . C P P													*
**																		*
*************************************************************************
** Copyright （C） 1996 by Microsoft Corporation		 					*
**		   All Rights Reserved					 						*
************************************************************************/
/*
	DBDAO.CPP

	Source code for DBDAO C++ classes
*/

#include “stdafx.h“
#include “resource.h“

#define _DB_NOFORCE_LIBS
#include 



/*****************************************************************************
* CdbException
*/
CONSTRUCTOR			CdbException::CdbException（
	HRESULT	hr）
	{
	m_hr = hr;
	}

/*****************************************************************************
* CdbBookmark
*/
CONSTRUCTOR			CdbBookmark::CdbBookmark（） //default
	{
	vt		= 0;
	parray	= NULL;
	}


CONSTRUCTOR			CdbBookmark::CdbBookmark（
	LPSAFEARRAY psa）
	{
	vt		= VT_ARRAY|VT_UI1;
	parray	= psa;
	}

CONSTRUCTOR			CdbBookmark::CdbBookmark（
	const CdbBookmark &o）
	{
	VariantInit（this）;
	DAOMFC_CALL（VariantCopy（this （LPVARIANT）&o））;
	}

CdbBookmark &			CdbBookmark::operator =（
	const CdbBookmark &o）
	{
	DAOMFC_CALL（VariantCopy（this （LPVARIANT）&o））;
	return *this;
	}

					CdbBookmark::operator LPSAFEARRAY（
	VOID）
	{
	return （vt&VT_ARRAY?parray:NULL）;
	}

/*****************************************************************************
* CdbOleobject
*/
CONSTRUCTOR			CdbOleobject::CdbOleobject（
	VOID）
	{
	m_punkInterface = NULL;
	}

CdbOleobject &		CdbOleobject::operator =（
	CdbOleobject &o）
	{
	SetInterface（o.m_punkInterface TRUE）;
	return *this;
	}

DESTRUCTOR			CdbOleobject::~CdbOleobject（
	VOID）
	{

	if （m_punkInterface）
		m_punkInterface->Release（）;
	}

BOOL				CdbOleobject::StartOLE（
	）
	{
	HRESULT	hr;

	DAOMFC_CALL（hr=CoInitialize（NULL））;

	return SUCCEEDED（hr）;
	}

VOID				CdbOleobject::SetInterface（
	LPUNKNOWN	punk
	BOOL		bAddRef）	// = FALSE
	{
	// Get rid of existing interface if we have one
	if （m_punkInterface）
		m_punkInterface->Release（）;

	// Addref new interface so we have a valid reference
	if （bAddRef && punk）
		punk->AddRef（）;

	m_punkInterface = punk;
	OnInterfaceChange（）;
	}

VOID				CdbOleobject::SetInterface（
	REFIID	riidClass
	REFIID	riidInterface）
	{
	LPUNKNOWN	punk;

	if （!StartOLE（））
		return;

	DAOMFC_CALL（CoCreateInstance（riidClass NULL CLSCTX_INPROC_SERVER riidInterface （LPVOID *）&punk））;

	SetInterface（punk）;
	}

VOID				CdbOleobject::SetInterfaceLic（
	REFIID	riidClass
	REFIID	riidInterface）
	{
	LPUNKNOWN	punk;
	BSTR		m_bstrKey = NULL;
	LPCLASSFACTORY2 pClassFactory2 = NULL;

	if （!StartOLE（））
		return;

#if _MSC_VER >= 1000
    m_bstrKey = SysAllocString（CdbWide（（LPSTR）szKEY））;
#else
	m_bstrKey = SysAllocString（_T（szKEY））;
#endif

	DAOMFC_CALL（CoGetClassobject（riidClass CLSCTX_INPROC_SERVER NULL IID_IC

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        442  2005-03-29 06:23  Word VBA高效排版范例应用\example\aboutbox.zip

     文件     120123  2005-03-29 06:24  Word VBA高效排版范例应用\example\animate.ZIP

     文件      13119  2005-03-29 06:24  Word VBA高效排版范例应用\example\animation.ZIP

     文件      29897  2005-03-29 06:24  Word VBA高效排版范例应用\example\appbar14.ZIP

     文件       2607  2005-03-29 06:24  Word VBA高效排版范例应用\example\appbar4.zip

     文件       2018  2005-03-29 06:24  Word VBA高效排版范例应用\example\associate.zip

     文件      10612  2005-03-29 06:24  Word VBA高效排版范例应用\example\binaryDB.ZIP

     文件       2333  2005-03-29 06:24  Word VBA高效排版范例应用\example\bmmenu.ZIP

     文件      69028  2005-03-29 06:24  Word VBA高效排版范例应用\example\bounce1.ZIP

     文件      18346  2005-03-29 06:24  Word VBA高效排版范例应用\example\browsdlg.ZIP

     文件        618  2005-03-29 06:24  Word VBA高效排版范例应用\example\bwindowontop.zip

     文件      12698  2005-03-29 06:24  Word VBA高效排版范例应用\example\calendar.zip

     文件       4907  2005-03-29 06:24  Word VBA高效排版范例应用\example\capture.ZIP

     文件      34850  2005-03-29 06:24  Word VBA高效排版范例应用\example\card.zip

     文件       1250  2005-03-29 06:24  Word VBA高效排版范例应用\example\catalog.ZIP

     文件     263807  2005-03-29 06:24  Word VBA高效排版范例应用\example\ccdemo.zip

     文件       6367  2005-03-29 06:24  Word VBA高效排版范例应用\example\ceaser.zip

     文件       5554  2005-03-29 06:25  Word VBA高效排版范例应用\example\chunks.ZIP

     文件      63907  2005-03-29 06:25  Word VBA高效排版范例应用\example\cihsafe.zip

     文件      12412  2005-03-29 06:25  Word VBA高效排版范例应用\example\cleandsk.ZIP

     文件       2677  2005-03-29 06:25  Word VBA高效排版范例应用\example\clipcurs.zip

     文件      11657  2005-03-29 06:25  Word VBA高效排版范例应用\example\cntrlpnl.zip

     文件       7573  2005-03-29 06:25  Word VBA高效排版范例应用\example\code_format_disk.zip

     文件       1782  2005-03-29 06:25  Word VBA高效排版范例应用\example\control.ZIP

     文件       1138  2005-03-29 06:25  Word VBA高效排版范例应用\example\controlpanel.zip

     文件       1600  2005-03-29 06:25  Word VBA高效排版范例应用\example\copyscr.zip

     文件      10052  2005-03-29 06:25  Word VBA高效排版范例应用\example\countdown.zip

     文件     707575  2005-03-29 06:25  Word VBA高效排版范例应用\example\cpocket.zip

     文件      15765  2005-03-29 06:25  Word VBA高效排版范例应用\example\cpuinfo.zip

     文件       1552  2005-03-29 06:25  Word VBA高效排版范例应用\example\crypt.zip

............此处省略682个文件信息