还不会VBA,求教各位高人。
我的一个VC程序计算出一些数据,还有一些文字,希望能在VC程序中把这些文字和数据自动写入到Word中,如何实现啊,要比较完整的例子最好,[email protected]。谢谢。
我的一个VC程序计算出一些数据,还有一些文字,希望能在VC程序中把这些文字和数据自动写入到Word中,如何实现啊,要比较完整的例子最好,[email protected]。谢谢。
解决方案 »
- DrawText的问题
- 请教CreateWaitableTimer和SetWaitableTimer函数的用法?
- 木子纵横 [兔子党先进性主任],承诺要散分散到裸,请问现在裸了吗??
- 打开文件对话框与控件之间的消息传递
- m_hWnd的问题
- 注册代码问题..解释下《远程控制编程技术》中的注册代码
- 请问大家是如何搜索WPARAM wparam,LPARAM lparam两个参数对于不同的Windows消息或回调函数的意义呢?
- 【基础问题】类之间怎么传送大规模数据才能比较省时?
- SetTimer可否接受类成员函数指针为TimerProc?
- 有两个工具栏这么显示在第一排
- 请问那里有比较全的关于数学运算包括矩阵等的dll?
- 一个菜鸟问题!!!!!!!
//remember to call AfxOleInit
//get page numbers of a document
//theory:insert pages field to header, read the value, then delete the field
//by masterz
_Application wordapp;
BOOL bret=wordapp.CreateDispatch("Word.Application");
wordapp.SetVisible(TRUE);
COleVariant covTrue((short)TRUE),
covFalse((short)FALSE),
covOptional((long)DISP_E_PARAMNOTFOUND,
VT_ERROR);
Documents oDocs(wordapp.GetDocuments()); // Use the Constructor
// for Documents.
_Document oDoc;
oDoc.AttachDispatch(oDocs.Open(COleVariant("C:\\Test.doc",VT_BSTR),
covFalse, //Confirm Conversions.
covFalse, // Not read only.
covTrue, // Add to recent documents.
covOptional, // PassWordDocument.
covOptional, // PassWordTemplate.
covFalse, // Revert.
covOptional, // WritePasswordDocument.
covOptional, // WritePasswordTemplate.
covOptional, // Format, e.g., WordOpenFormat.
covOptional, // New with Word 9 - Encoding
covOptional, // Visible - Ditto
// covOptional, // New with Word 10 - OpenConflictDocument
covOptional, // Ditto - OpenAndRepair
covOptional, //(long) 0, // Ditto - DocumentDirection - Left to Right
covOptional // Ditto - NoEncodingDialog
)
);
LPDISPATCH lpdisp;//=oDoc.GetSections();
Sections oSecs;
lpdisp=oDoc.GetSections();
oSecs.AttachDispatch(lpdisp);
lpdisp=oSecs.GetFirst();
Section oSec;
oSec.AttachDispatch(lpdisp);
lpdisp=oSec.GetFooters();
HeadersFooters hfs;
hfs.AttachDispatch(lpdisp);
lpdisp=hfs.Item(1);
HeaderFooter hf;
hf.AttachDispatch(lpdisp);
Range rg=hf.GetRange();
Fields fds;
lpdisp=oDoc.GetFields();
fds.AttachDispatch(lpdisp);
lpdisp=fds.Add(rg,COleVariant(long(26)),covOptional,covOptional);
Field fd;
fd.AttachDispatch(lpdisp);
fd.Select();
Selection oSelection = wordapp.GetSelection();
rg=oSelection.GetRange();
CString msg;
rg=oSelection.GetRange();
msg=rg.GetText();
rg.Delete(covOptional,covOptional);
AfxMessageBox(msg);
wordapp.Quit(covFalse,covOptional,covOptional);