通过com操作word

2021-04-18 03:43:49 3.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

使用win32com操作word的方法记录（一）基于工作需要，最近需要对word进行一些批量操作，但考虑到word中VBA学习成本较高（多是VBA教程针对Excel），我想到了使用python进行操作，首先使用的是python-docx库。对于docx库，经过博客学习和阅读原文档后，我发现虽然python-docx库简单容易上手，但是其两个缺点比较明显： 1、只能操作docx文件，对于doc文件，需要转化后再使用。 2、其paragra... 阅读详情

DISPPARAMS   dpNoArgs = { NULL,   NULL,   0,   0 };

		VARIANT   vResult;

		OLECHAR   FAR*   szFunction;

		BSTR   bstrTemp;

		IDispatch*   pDispDocs;

		IDispatch*   pDispSel;

		IDispatch*   pDispActiveDoc;

		//   DISPIDs   

		DISPID   dispid_Docs;

		DISPID   dispid_DocsAdd;

		DISPID   dispid_Sel;

		DISPID   dispid_TypeText;

		DISPID   dispid_TypePara;

		DISPID   dispid_ActiveDoc;

		DISPID   dispid_SaveAs;

		DISPID   dispid_Quit;

		//   ********************   Start   Automation   ***********************   

		::CoInitialize(NULL);

		CLSID   clsid;

		CLSIDFromProgID(L"Word.Application", &clsid);



		IUnknown*   pUnk;

		HRESULT   hr = ::CoCreateInstance(clsid, NULL, CLSCTX_SERVER,

			IID_IUnknown, (void**)&pUnk);

		IDispatch*   pDispApp;

		hr = pUnk->QueryInterface(IID_IDispatch, (void**)&pDispApp);

		szFunction = OLESTR("Documents");

		hr = pDispApp->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT, &dispid_Docs);

		hr = pDispApp->Invoke(dispid_Docs, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET,

			&dpNoArgs, &vResult, NULL, NULL);

		pDispDocs = vResult.pdispVal;

		szFunction = OLESTR("Add");

		hr = pDispDocs->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT,

			&dispid_DocsAdd);

		hr = pDispDocs->Invoke(dispid_DocsAdd, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpNoArgs, &vResult, NULL, NULL);

		szFunction = OLESTR("Selection");

		hr = pDispApp->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT, &dispid_Sel);

		hr = pDispApp->Invoke(dispid_Sel, IID_NULL, LOCALE_USER_DEFAULT,

			DISPATCH_PROPERTYGET, &dpNoArgs, &vResult,

			NULL, NULL);

		pDispSel = vResult.pdispVal;

		szFunction = OLESTR("TypeText");

		hr = pDispSel->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT,

			&dispid_TypeText);



		szFunction = OLESTR("TypeParagraph");

		hr = pDispSel->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT,

			&dispid_TypePara);

		VARIANT   vArgsTypeText[1];

		DISPPARAMS   dpTypeText;

		bstrTemp = ::SysAllocString(OLESTR("One"));

		vArgsTypeText[0].vt = VT_BSTR;

		vArgsTypeText[0].bstrVal = bstrTemp;

		dpTypeText.cArgs = 1;

		dpTypeText.cNamedArgs = 0;

		dpTypeText.rgvarg = vArgsTypeText;

		hr = pDispSel->Invoke(dispid_TypeText, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpTypeText, NULL, NULL, NULL);

		hr = pDispSel->Invoke(dispid_TypePara, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpNoArgs, NULL, NULL, NULL);

		::SysFreeString(bstrTemp);

		bstrTemp = ::SysAllocString(OLESTR("Two"));

		hr = pDispSel->Invoke(dispid_TypeText, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpTypeText, NULL, NULL, NULL);

		hr = pDispSel->Invoke(dispid_TypePara, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpNoArgs, NULL, NULL, NULL);

		::SysFreeString(bstrTemp);

		bstrTemp = ::SysAllocString(OLESTR("Three"));

		hr = pDispSel->Invoke(dispid_TypeText, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpTypeText, NULL, NULL, NULL);

		hr = pDispSel->Invoke(dispid_TypePara, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpNoArgs, NULL, NULL, NULL);

		::SysFreeString(bstrTemp);

		szFunction = OLESTR("ActiveDocument");

		hr = pDispApp->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT,

			&dispid_ActiveDoc);

		hr = pDispApp->Invoke(dispid_ActiveDoc, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET,

			&dpNoArgs, &vResult, NULL, NULL);

		pDispActiveDoc = vResult.pdispVal;

		VARIANT   vArgsSaveAs[11];

		DISPPARAMS   dpSaveAs;

		dpSaveAs.cArgs = 11;

		dpSaveAs.cNamedArgs = 0;

		dpSaveAs.rgvarg = vArgsSaveAs;



		BSTR   bstrEmptyString;

		bstrEmptyString = ::SysAllocString(OLESTR(""));



		VARIANT   vFalse;

		vFalse.vt = VT_BOOL;

		vFalse.boolVal = FALSE;



		bstrTemp = ::SysAllocString(OLESTR("c:\\doc.doc"));

		vArgsSaveAs[10].vt = VT_BSTR;

		vArgsSaveAs[10].bstrVal = bstrTemp;

		vArgsSaveAs[9].vt = VT_I4;

		vArgsSaveAs[9].lVal = 0;

		vArgsSaveAs[8] = vFalse;

		vArgsSaveAs[7].vt = VT_BSTR;

		vArgsSaveAs[7].bstrVal = bstrEmptyString;

		vArgsSaveAs[6].vt = VT_BOOL;

		vArgsSaveAs[6].boolVal = TRUE;

		vArgsSaveAs[5].vt = VT_BSTR;

		vArgsSaveAs[5].bstrVal = bstrEmptyString;

		vArgsSaveAs[4] = vFalse;

		vArgsSaveAs[3] = vFalse;

		vArgsSaveAs[2] = vFalse;

		vArgsSaveAs[1] = vFalse;

		vArgsSaveAs[0] = vFalse;

		szFunction = OLESTR("SaveAs");

		hr = pDispActiveDoc->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT,

			&dispid_SaveAs);

		hr = pDispActiveDoc->Invoke(dispid_SaveAs, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpSaveAs, NULL, NULL, NULL);

		::SysFreeString(bstrEmptyString);

		szFunction = OLESTR("Quit");

		hr = pDispApp->GetIDsOfNames(IID_NULL, &szFunction, 1,

			LOCALE_USER_DEFAULT, &dispid_Quit);

		hr = pDispApp->Invoke(dispid_Quit, IID_NULL,

			LOCALE_USER_DEFAULT, DISPATCH_METHOD,

			&dpNoArgs, NULL, NULL, NULL);

		::SysFreeString(bstrTemp);

		pDispActiveDoc->Release();

		pDispSel->Release();

		pDispDocs->Release();

		pDispApp->Release();

		pUnk->Release();

		::CoUninitialize();