急：如何在程序中创建一个空的word文档?

Question

如题。

Answer 1

有人吗？
帮帮忙啦！
给一段代码生成一个空的word文件啦！

Answer 2

http://www.vckbase.com/document/viewdoc/?id=1174

Answer 3

我已经解决了。代码如下：......#include <atlbase.h>#pragma warning (disable:4146)
#import "d:\Microsoft Office\OFFICE\MSO9.DLL" no_namespace rename("DocumentProperties", "OfficeDocumentProperties")
#pragma warning (disable:4146)
#import "c:\Program Files\COMMON FILES\MICROSOFT SHARED\VBA\VBA6\VBE6EXT.OLB"  no_namespace
#import "d:\Microsoft Office\OFFICE\msword9.Olb" rename("ExitWindows", "WordExitWindows").....void CNewWordDocDlg::OnButton1() 
{
Word::_ApplicationPtr m_WordPtr;
Word::DocumentsPtr m_DocsPtr;
Word::_DocumentPtr m_DocPtr;
HRESULT hr;
try{
hr=m_WordPtr.CreateInstance(L"Word.Application");
m_WordPtr->Visible=VARIANT_FALSE;
/* m_DocPtr=m_WordPtr->Documents->Open(
&CComVariant((char*)_bstr_t("e:\\documents\\abc.doc")),
&vtMissing,
&vtMissing,
&CComVariant(VARIANT_FALSE));*/
m_DocPtr=m_WordPtr->Documents->Add(
&vtMissing,
&vtMissing,
&CComVariant(Word::wdNewBlankDocument),
&CComVariant(VARIANT_FALSE));
m_DocPtr->SaveAs(COleVariant("e:\\love.doc"),&CComVariant(VARIANT_TRUE),&CComVariant(VARIANT_TRUE), COleVariant(""),&CComVariant(VARIANT_TRUE),
COleVariant(""),&CComVariant(VARIANT_TRUE),&CComVariant(VARIANT_TRUE),&CComVariant(VARIANT_TRUE),&CComVariant(VARIANT_TRUE),&CComVariant(VARIANT_TRUE));
m_WordPtr->Quit(
&CComVariant(Word::wdDoNotSaveChanges),
&CComVariant(Word::wdOriginalDocumentFormat),
&vtMissing);
}
catch(_com_error *e)
{
              .........
}
return ;
}...........
多谢大家了。
本贴结贴。