首先在VC引入Word, 对格式相同的地方一定使用模版的方式进行处理，这可以大大的提高运行速度,Word中的模版为*.dot。加载模版的代码为：
sDocs=sApp.GetDocuments();
sDocs.AttachDispatch(sApp.GetDocuments(),true);
COleVariant vFalse((long)0),vTrue((long)1);
sDoc.AttachDispatch(sDocs.Add(COleVariant(_variant_t(strFileName)), vFalse,vFalse, vTrue));
需要注意的是，如果Word中使用到表格，VBA录制的全是Selection对象的处理方法，在VC中使用Selection对象的MoveUp和MoveDown函数时会出现不确定现象（如果你知道为什么的话请告诉我）。如果你需要绘制表格，不要用程序来动态形成，绘制表格的代码是很繁琐的，而且在页眉中绘制单元格是很难控制的。可以先在模版中绘出你要的表格格式，然后用程序复制单元格或者直接使用模版中的单元格。由于我做的项目表格的行数不确定，我采用的是复制单元格的方式（速度比较慢，谁有更好的方法?）。
剩下的处理流程，就是你想做什么操作，先在Word中录制一段宏，然后查看其VBA代码，并将其转化到Vc程序中。这就看你Word使用的熟练程度了，例如如何把不同页的页眉页脚设置不同，如何得到当前页的页数以及总的文档的页数，具体可以参考程序。
VC中也可以像Excel中调用模版中存在的宏，代码如下：
VARIANT vtMissing ;vtMissing.vt =VT_ERROR;
vtMissing.scode =DISP_E_PARAMNOTFOUND;
sApp.Run( "AddCell",&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,
&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing,&vtMissing);
例3:
#include
#include
#pragma warning (disable:4146 4192 4786 4081)
#define USE_OFFICEXP 1
#ifdef USE_OFFICEXP
#import "C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL"
#import "c:\\Program Files\\Common Files\Microsoft Shared\\VBA\VBA6\VBE6EXT.olb"
#import "c:\Program Files\Microsoft Office\Office10\MSWORD.olb" rename("ExitWindows","ExitWindowsEx")
#import "c:\Program Files\Microsoft Office\Office10\excel.exe" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") \
rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#else
#import "c:\Program Files\Microsoft Office\Office\MSO9.dll"
#import "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB" no_namespace
#import "c:\Program Fi
