word 问题

[wjkjlq]

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
CrnLockWordFile("c:\\aaa.doc","123");
}
//---------------------------------------------------------------------------
void TForm1::CrnLockWordFile(AnsiString strDocFile, AnsiString strPwd)
{
Variant vWordApp, vDoc;
try
{
vWordApp = Variant::CreateObject("Word.Application");
}
catch(...)
{
MessageBox(0, "启动Word出错！",
__FUNC__, MB_OK | MB_ICONERROR);
vWordApp = Unassigned;
return;
}

vWordApp.OlePropertySet("Visible", true);

vDoc = vWordApp.OlePropertyGet("Documents").
OleFunction("Open", strDocFile.c_str());

vDoc = vWordApp.OlePropertyGet("ActiveDocument");

Variant vOptions = vWordApp.OlePropertyGet("Options");
vOptions.OlePropertySet("WarnBeforeSavingPrintingSendingMarkup", false);
vOptions.OlePropertySet("StoreRSIDOnSave", true);
vOptions.OlePropertySet("ShowMarkupOpenSave", true);

vWordApp.OlePropertyGet("Selection")
.OlePropertyGet("Editors").OleFunction("Add", -1); // wdEditorEveryone
try
{
vDoc.OleFunction("Protect",
3, //wdAllowOnlyReading
false, // NoReset:=False,
strPwd.c_str(), // Password,
false, // UseIRM:=False,
true // EnforceStyleLock:=True
);
}
catch(...)
{
MessageBox(0, "有错发生!",
__FUNC__, MB_OK | MB_ICONERROR);
}

vDoc.OleFunction("Save");
vDoc.OleFunction("Close");

vWordApp.OleProcedure("Quit");

vDoc = Unassigned;
vWordApp = Unassigned;

MessageBox(0, "结束!",
__FUNC__, MB_OK | MB_ICONINFORMATION);
}


上面是你写的WORD设置保护



请问如何取消保护？
如何判断这份WORD是否设置了保护？

[wjkjlq]

自己顶下

[ccrun.com]

收到。晚上给你回复。现在忙。

[wjkjlq]

还没空吗?

[stherix]

{
vDoc.OleFunction("Protect",
3, //wdAllowOnlyReading //尝试改变这里的值吧
false, // NoReset:=False,
strPwd.c_str(), // Password,
false, // UseIRM:=False,
true // EnforceStyleLock:=True
);
}

[stherix]

vDoc.OleFunction("Protect",
-1, //取消保护
false, // NoReset:=False,
strPwd.c_str(), // Password,
false, // UseIRM:=False,
true // EnforceStyleLock:=True
);

[wjkjlq]

妖哥,提问的代码能不能加点注释啊

[wjkjlq]

都7天了 还没空啊？

[wjkjlq]

10天了

[ccrun.com]

最近太忙了，所以来的很少。实在不好意思。

// 取消Word文档保护

void CrnUnlockWordFile(String strDocFile, String strPwd)
{
	Variant vWordApp, vDoc;

	// 启动Word进程
	try
	{
		vWordApp = Variant::CreateObject("Word.Application");
	}
	catch(...)
	{
		MessageBox(0, "启动Word出错！",
				__FUNC__, MB_OK | MB_ICONERROR);
		vWordApp = Unassigned;
		return;
	}

	// 使其可视，在你的应用中可以关闭，也就是设为false
	vWordApp.OlePropertySet("Visible", true);

	// 打开指定文档
	vDoc = vWordApp.OlePropertyGet("Documents").
			OleFunction("Open", strDocFile.c_str());

	// 获取当前活动的文档对象
	vDoc = vWordApp.OlePropertyGet("ActiveDocument");

	// 取消保护
	vDoc.OleFunction("Unprotect", strPwd.c_str());

	// 文档的一些属性
	vDoc.OlePropertySet("ReadOnlyRecommended", false);
	vDoc.OlePropertySet("Password", "");
	vDoc.OlePropertySet("WritePassword", "");
	vDoc.OlePropertySet("RemovePersonalInformation", false);
	vDoc.OlePropertySet("RemoveDateAndTime", false);

	// 文档选项的一些属性
	Variant vOptions = vWordApp.OlePropertyGet("Options");
	vOptions.OlePropertySet("WarnBeforeSavingPrintingSendingMarkup", false);
	vOptions.OlePropertySet("StoreRSIDOnSave", true);
	vOptions.OlePropertySet("ShowMarkupOpenSave", true);

	// 保存并关闭文档
	vDoc.OleFunction("Save");
	vDoc.OleFunction("Close");

	// 关闭Word进程
	vWordApp.OleProcedure("Quit");

	// 清场
	vDoc = Unassigned;
	vWordApp = Unassigned;

	MessageBox(0, "结束!",
			__FUNC__, MB_OK | MB_ICONINFORMATION);
}

[ccrun.com]

至于判断文档是否受保护，我查了查资料，大概可以通过ActiveDocument的ProtectionType属性来判断，如果其值为wdNoProtection(-1)，那么就是没有保护。在C++Builder中，可以用类似以下语句：

if(vDoc.OlePropertyGet("ProtectionType") == -1)
    ShowMessage("无保护");
else
    ShowMessage("有保护");

[wjkjlq]

3Q