社区
Office开发/ VBA
帖子详情
420分刺激大虾眼球,关于Automation (VC操作Word)
snake1122
2004-04-08 05:45:00
http://expert.csdn.net/Expert/topic/2941/2941892.xml?temp=.1490595
...全文
92
2
打赏
收藏
420分刺激大虾眼球,关于Automation (VC操作Word)
http://expert.csdn.net/Expert/topic/2941/2941892.xml?temp=.1490595
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
snake1122
2004-04-08
打赏
举报
回复
结贴!
1HelloWorld
2004-04-08
打赏
举报
回复
// Fotodocword.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
#include <ole2.h>
//
// AutoWrap() - Automation helper function...
//
HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp,
LPOLESTR ptName, int cArgs...)
{
// Begin variable-argument list...
va_list marker;
va_start(marker, cArgs);
if(!pDisp) {
MessageBox(NULL, "NULL IDispatch passed to AutoWrap()",
"Error", 0x10010);
_exit(0);
}
// Variables used...
DISPPARAMS dp = { NULL, NULL, 0, 0 };
DISPID dispidNamed = DISPID_PROPERTYPUT;
DISPID dispID;
HRESULT hr;
char buf[200];
char szName[200];
// Convert down to ANSI
WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);
// Get DISPID for name passed...
hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT,
&dispID);
if(FAILED(hr)) {
sprintf(buf,
"IDispatch::GetIDsOfNames(\"%s\") failed w/err0x%08lx",
szName, hr);
MessageBox(NULL, buf, "AutoWrap()", 0x10010);
_exit(0);
return hr;
}
// Allocate memory for arguments...
VARIANT *pArgs = new VARIANT[cArgs+1];
// Extract arguments...
for(int i=0; i<cArgs; i++) {
pArgs[i] = va_arg(marker, VARIANT);
}
// Build DISPPARAMS
dp.cArgs = cArgs;
dp.rgvarg = pArgs;
// Handle special-case for property-puts!
if(autoType & DISPATCH_PROPERTYPUT) {
dp.cNamedArgs = 1;
dp.rgdispidNamedArgs = &dispidNamed;
}
// Make the call!
hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType,
&dp, pvResult, NULL, NULL);
if(FAILED(hr)) {
sprintf(buf,
"IDispatch::Invoke(\"%s\"=%08lx) failed w/err 0x%08lx",
szName, dispID, hr);
MessageBox(NULL, buf, "AutoWrap()", 0x10010);
_exit(0);
return hr;
}
// End variable-argument section...
va_end(marker);
delete [] pArgs;
return hr;
}
int main(int argc, char* argv[])
{
// Initialize COM for this thread...
CoInitialize(NULL);
// Get CLSID for Word.Application...
CLSID clsid;
HRESULT hr = CLSIDFromProgID(L"Word.Application", &clsid);
if(FAILED(hr)) {
::MessageBox(NULL, "CLSIDFromProgID() failed", "Error",
0x10010);
return -1;
}
// Start Word and get IDispatch...
IDispatch *pWordApp;
hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER,
IID_IDispatch, (void **)&pWordApp);
if(FAILED(hr)) {
::MessageBox(NULL, "Word not registered properly",
"Error", 0x10010);
return -2;
}
// Get Documents collection
IDispatch *pDocs;
{
VARIANT result;
VariantInit(&result);
AutoWrap(DISPATCH_PROPERTYGET, &result, pWordApp, L"Documents",
0);
pDocs = result.pdispVal;
}
//cai begin
/*
COleVariant varFilePath(strFilePath);
COleVariant varstrNull("");
COleVariant varZero((short)0);
COleVariant varTrue(short(1),VT_BOOL);
COleVariant varFalse(short(0),VT_BOOL);
m_Docs.AttachDispatch(m_App.GetDocuments());//スォDocumentsタ犖ヤマ_DocsコヘIdispatchスモソレケリチェニエ」サ
m_Docs.Open(varFilePath,varFalse,varFalse,varFalse,
varstrNull,varstrNull,varFalse,varstrNull,
varstrNull,varTrue,varTrue,varTrue);
//エェWordホトオオ」サ
m_Sel.AttachDispatch(m_App.GetSelection());//スォSelectionタ犖ヤマ_SelコヘIdispatchスモソレケリチェニエ」サ
m_Sel.WholeStory ();//ム。ヤトオオヨミオトネォイソトレネン」サ
m_Sel.Copy();//スォハセンソスアエオスシ・
this->GetEditCtrl( ).Paste ();//スォハセンユウフスウフミト"ハモ"ヨミ」サ
m_Docs.ReleaseDispatch();//カマソェケリチェ」サ
m_Sel.ReleaseDispatch();
*/
IDispatch *pBookMark;
{
VARIANT result;
VariantInit(&result);
//VARIANT x,y;
//x.vt = VT_I4;
//x.lVal = 0;
//x.vt=VT_ERROR;
//x.lVal=DISP_E_PARAMNOTFOUND;
// VARIANT used in place of optional-parameters.
VARIANT varOpt;
varOpt.vt = VT_ERROR;
varOpt.scode = (long)DISP_E_PARAMNOTFOUND;
//y.vt = VT_BSTR;
//y.bstrVal = ::SysAllocString(L"d:\\doctest1.doc");
//AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Add", 3,y,x,x);
AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Add", 4,varOpt,varOpt,varOpt,varOpt);
pBookMark = result.pdispVal;
// SysFreeString(x.lVal);
//SysFreeString(y.bstrVal);
}
/* IDispatch *pDoc;
{
VARIANT result;
VariantInit(&result);
VARIANT x;
x.vt = VT_BSTR;
x.bstrVal = ::SysAllocString(L"C:\\Doc1.doc");
AutoWrap(DISPATCH_METHOD, &result, pDocs, L"Open", 1, x);
pDoc = result.pdispVal;
SysFreeString(x.bstrVal);
}*/
IDispatch *pRang;
{
VARIANT result;
VariantInit(&result);
VARIANT x,y;
x.vt = VT_BSTR;
x.bstrVal = ::SysAllocString(L"0");
y.vt = VT_BSTR;
y.bstrVal = ::SysAllocString(L"0");
AutoWrap(DISPATCH_METHOD, &result, pBookMark, L"Range", 2, x, y);
pRang = result.pdispVal;
SysFreeString(x.bstrVal);
SysFreeString(y.bstrVal);
}
{
VARIANT result;
VariantInit(&result);
VARIANT x,y;
x.vt = VT_BSTR;
x.bstrVal = ::SysAllocString(L"just a test!");
y.vt = VT_BSTR;
y.bstrVal = ::SysAllocString(L"d:\\docment1.doc");
AutoWrap(DISPATCH_METHOD, &result, pRang, L"InsertAfter", 1, x);
AutoWrap(DISPATCH_METHOD, &result, pBookMark, L"SaveAs", 1, y);
//pRang = result.pdispVal;
SysFreeString(x.bstrVal);
SysFreeString(y.bstrVal);
}
//cai end
// Close the document without saving changes and quit Word
{
VARIANT x;
x.vt = VT_BOOL;
x.boolVal = false;
//AutoWrap(DISPATCH_METHOD, NULL, pDoc, L"Close", 1, x);
AutoWrap(DISPATCH_METHOD, NULL, pBookMark, L"Close", 1, x);
AutoWrap(DISPATCH_METHOD, NULL, pWordApp, L"Quit", 0);
}
// Cleanup
pBookMark->Release();
pRang->Release();
//pDoc->Release();
pDocs->Release();
pWordApp->Release();
// Uninitialize COM for this thread...
CoUninitialize();
return 0;
}
获取U盘VID,PID,盘符,物理序列号(源码)可运行
获取U盘VID,PID,盘符,物理序列号(源码)可运行: ...【
vc
6 绝对OK ....有问题空间留言谢谢】 最后获得的类似: PFAD_G\VID_0951&PID_1623\001CC0EC32CDEA10969B011D PFAD:盘符 中间 VID PID 最后的是 物理序列号
C# 串口通信(彻底解决C#串口通信中的数据丢失问题)
以网上某位
大虾
的源码为版本,沿用了其可用的代码部
分
。对其余欠妥部
分
进行了改造。不要资源
分
,是大家不用为积
分
而烦恼。出来混都不容易,希望大家相互照应!
C# For Unity系列之入门篇
有一定自主学习能力,跟着刘老师从“编程小白”修炼为游戏研发“
大虾
”吧!!!学习好Unity,其先决条件是一定要有稳固、扎实的编程基础!课程 《C# For Unity系列之入门篇》配套学习资料链接:...
免费下载:C语言常见问题与经典算法.rar
C语言常见问题与经典算法.rar 个人感觉挺好的资源,给
大虾
门免费下载
ibatis in action 中文详解
在网上一个牛人翻译的ibatis in action,他
分
成了几个内容来翻译,我感觉不错,就把各部
分
分
开弄成了
word
格式,还没翻译完,但是现有的翻译的部
分
就值得我们研究了。很适用的东西,还附带有代码。大家看看
Office开发/ VBA
5,139
社区成员
17,886
社区内容
发帖
与我相关
我的任务
Office开发/ VBA
其他开发语言 Office开发/ VBA
复制链接
扫一扫
分享
社区描述
其他开发语言 Office开发/ VBA
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章