VC中调用Word

[leilei8243]

是这样的：用VC做一个程序，实现在程序中输入文档可以直接调用Word，并按照Word中早先既定的格式生成文档（其中输入的文档要生成在Word中固定的位置）！
现在我只完成了调用！
希望大侠帮助解决：
1。程序中的文档写进Word。（使用Range里的SetText吗？那Range
怎么得到！）
2。编排文档到固定位置！（需要哪些类）！
急！！分不够在给！

[DerryZhang]

up

[ddszhan]

关注！

[bbol]

用word的模板啊，range是在word模板里面设定的！

[守田人]

肯支付费用吗？我自己写过，也有代码

[fhqiplj]

学习

[balloy]

我知道vbs中可以这样写：
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
希望对你有用

[jiefei.chen]

// 转贴




#include <ole2.h>
#include <stdio.h>
#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 Files\Microsoft Office\Office\MSWORD9.OLB" rename("ExitWindows","_ExitWindows")
#import "c:\Program Files\Microsoft Office\Office\excel9.olb" rename("DialogBox", "DialogBoxXL") rename("RGB", "RBGXL") rename("DocumentProperties", "DocumentPropertiesXL") exclude("IFont","IPicture")
#endif
int main(int argc, char* argv[])
{

::CoInitialize(NULL);
CLSID clsid;
#if 1
CLSIDFromProgID(L"Word.Application", &clsid);
Word::_ApplicationPtr pApp;
//pApp.GetActiveObject (clsid);
pApp.CreateInstance (clsid,NULL);
pApp ->PutVisible (VARIANT_TRUE);
_variant_t bstrFileName = "C:\\Project\\Îĵµ\\ftp·þÎñÉè¼Æ.doc";
pApp ->GetDocuments() ->Open (&bstrFileName);
//pApp ->GetDocuments() ->Add();
Word::_DocumentPtr pWordDocument =pApp-> GetActiveDocument();
Word::SelectionPtr pSelection = pApp ->GetSelection();
Word::ParagraphsPtr pParagraphs = pWordDocument->GetParagraphs ();
long lParaCnt = pParagraphs ->GetCount ();
Word::ParagraphPtr pTemp;
Word::RangePtr pRange;
for (long iLoop =1;iLoop<lParaCnt;++iLoop)
{
pTemp = pParagraphs->Item (iLoop);
pRange = pTemp ->GetRange ();
printf("%s\n",(char*)pRange ->GetText());
printf("%s\n",(char*)(_bstr_t)pTemp->GetStyle ());
}

//pApp ->GetDocuments() ->Close ();
pApp ->Quit ();
#endif
#if 0
_variant_t varItem((long)1);
CLSIDFromProgID(L"Excel.Application", &clsid);
Excel::_ApplicationPtr pApp;
pApp .CreateInstance (clsid,NULL);
pApp ->PutVisible (0,VARIANT_TRUE);

Excel::_WorkbookPtr pWorkbook = pApp ->GetWorkbooks () ->Add ();
Excel::_WorksheetPtr pSheet = pWorkbook ->GetWorksheets () ->GetItem (varItem);
Excel::RangePtr pRange = pSheet ->GetUsedRange(0);
int iColCnt = pRange ->GetColumns() ->GetCount();
printf("used columns is %d\n",iColCnt);
int iRowCnt = pRange ->GetRows() ->GetCount();
printf("used rows is %d\n",iRowCnt);
pRange = pSheet ->GetRange(OLESTR("A1"));
pRange ->Value2 = OLESTR("zheng017");
pSheet ->GetRows ()-
Excel::InteriorPtr pInterior= pRange ->GetInterior ();
varItem.intVal = 0xff0000;
pInterior ->PutColor (varItem);
pSheet ->PrintPreview ();
#endif
::CoUninitialize();
return 0;
}

[crushor]

建议你用VB。