3,245
社区成员
发帖
与我相关
我的任务
分享vc无法怎样获取word vba里面的方法属性
我现在需要在vc下面获取word文档打印的份数，用的是word的内置对话框，在word中测试正常，对应的宏代码如下：
Sub 宏8()
'
' 宏8 宏
'
'
Dim dlg As Dialog
Set dlg = Dialogs(wdDialogFilePrint)
With dlg
If .Display = -1 Then
MsgBox "NumCopies = " & dlg.NumCopies
End If
End With
End Sub
vc是调用com接口来实现的，目前的问题是无法获取到打印份数参数 dlg.NumCopies，查询msword.tlh，里面也没有定义这个属性，现在不知道怎样办，请大神指点一下，怎样获取这个参数，谢谢！
Sub 宏8()
'
' 宏8 宏
'
'
Dim dlg As Dialog
Set dlg = Dialogs(wdDialogFilePrint)
With dlg
If .Display = -1 Then
MsgBox "NumCopies = " & dlg.NumCopies
End If
End With
End Sub
vc是调用com接口来实现的，目前的问题是无法获取到打印份数参数 dlg.NumCopies，查询msword.tlh，里面也没有定义这个属性，现在不知道怎样办，请大神指点一下，怎样获取这个参数，谢谢！
...全文
请发表友善的回复…
发表回复
watchsky 2017-10-31
- 打赏
- 举报
MSDN上有关于C#和VB通过后期绑定的方式，来取得word内置对话框的参数，vc是不是也必须用同样的方法呢？
https://msdn.microsoft.com/zh-cn/library/ahzbkf8e(v=vs.140).aspx
watchsky 2017-10-31
- 打赏
- 举报
谢谢指导，我现在是不知道取的那个特定的参数，不是调用对象的问题。
watchsky 2017-10-31
- 打赏
- 举报
谢谢回复，这个是设置打印的参数，我的要求是获取之前在打印对话框里设置的打印份数，不是直接打印。
赵4老师 2017-10-31
- 打赏
- 举报
在Word中，按Alt+F11、F1，通读VBA for Word联机帮助？
老王爱上猫 2017-10-30
- 打赏
- 举报
Sub PrintOut([Background], [Append], [Range], [OutputFileName], [From], [To], [Item],[Copies], [Pages], [PageType], [PrintToFile], [Collate], [FileName], [ActivePrinterMacGX], [ManualDuplexPrint], [PrintZoomColumn], [PrintZoomRow], [PrintZoomPaperWidth], [PrintZoomPaperHeight])
赵4老师 2017-10-30
- 打赏
- 举报
仅供参考：
//1.在VC中新建一控制台程序，选支持MFC（当然，你也可以不选择支持MFC的，不过会很麻烦）
//2.按CTRL+W调出MFC ClassWizard，Add Class->From a type library,选择你的word的类型库
// (例如我的是word2003，安装在e盘，我的路径是"e:\edittools\microsoft office\office11\msword.olb"),
// 选择完毕后，在弹出的窗口中选择要让classwizard生成的包装类，在本例中要用到
// _Application,
// Documents,
// _Document,
// Range
// 这四个类，选中他们后按OK
//3.进入你的main函数所在的cpp文件，加入头文件引用
// #include "msword.h" //引用刚才classwizard生成的idispatch包装类
//4.加入代码
// console_word.cpp : Defines the entry point for the console application.
//
#include "stdafx.h"
#include "console_word.h"
#include "msword.h"
#ifdef _DEBUG
#define new DEBUG_NEW
#undef THIS_FILE
static char THIS_FILE[] = __FILE__;
#endif
/////////////////////////////////////////////////////////////////////////////
// The one and only application object
CWinApp theApp;
int _tmain(int argc, TCHAR* argv[], TCHAR* envp[])
{
int nRetCode = 0;
// initialize MFC and print and error on failure
if (!AfxWinInit(::GetModuleHandle(NULL), NULL, ::GetCommandLine(), 0))
{
// TODO: change error code to suit your needs
printf(_T("Fatal Error: MFC initialization failed!\n"));
nRetCode = 1;
}
else
{
// TODO: code your application's behavior here.
if (CoInitialize(NULL) != S_OK)
{
AfxMessageBox("初始化COM支持库失败!");
return -1;
}
_Application wordApp;
Documents docs;
_Document doc;
Range aRange;
COleVariant vTrue((short)TRUE), vFalse((short)FALSE), vOpt((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
CString txt;
wordApp.CreateDispatch("Word.Application",NULL);
wordApp.SetVisible(FALSE);
docs=wordApp.GetDocuments();
doc=docs.Open(COleVariant("c:\\new\\测试.doc"),vFalse,vTrue,vFalse,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt,vOpt);
aRange=doc.Range(vOpt,vOpt);
txt=aRange.GetText();
AfxMessageBox(txt);//这里GetText得到的就是word文件的纯文本了,你可以将其写到txt文件中
printf("[%s]\n",txt.GetBuffer(txt.GetLength()));//里面的换行不是\r\n而是\r，所以需要输出重定向到文本文件看结果。
aRange.ReleaseDispatch();
doc.Close(vOpt,vOpt,vOpt);
doc.ReleaseDispatch();
docs.ReleaseDispatch();
wordApp.Quit(vOpt,vOpt,vOpt);
wordApp.ReleaseDispatch();
CoUninitialize();
}
return nRetCode;
}
