[请求]如何在实现这样的需求？**

alang · 发表于 2006-12-31 09:43:15

就写在DoVerb之后
参考 http://wiki.justep.cn/mywiki/moin.cgi/IDispatch
可以把8楼代码在平台上实现

匿名 *发表于 2006-12-31 10:22:17* · 发表于 2006-12-31 10:22:17

对VBA不是很清楚。alang老师能不能给段代码！
下面是我写的，不知道怎么写，错误好多。
procedure TSENDDOC.tbn1Click(Sender: TObject);
var
doc: System.DispatchHelper;
app: System.DispatchHelper;
sel: System.DispatchHelper;
begin
if Self.InfoBroker.Info.DataSetByID('SENDDOCDS').FieldByName('DocDraft').AsVariant <> nil then
   begin
      TOleContainer(DataEditDraft.InplaceControl).DoVerb(0);
      //设置文档的只读
      doc := System.DispatchHelper.Create(TOleContainer(DataEditDraft.InplaceControl).OleObject);
      doc.PropertyPut('Protect Password', '''');
      doc.PropertyPut('NoReset', [True]);
      doc.PropertyPut('Type', wdAllowOnlyReading);
      doc.PropertyPut('UseIRM', [False]);
      doc.PropertyPut('EnforceStyleLock', [False]);
end;
end;

alang · 发表于 2006-12-31 10:59:50

这是VB中的函数说明
Sub Protect(Type As WdProtectionType, [NoReset], [Password], [UseIRM], [EnforceStyleLock])
这是文档document的一个函数，不是属性

大概的写法是
doc := System.DispatchHelper.Create(TOleContainer(DataEditDraft.InplaceControl).OleObject);
doc.InvokeMethod('Protected', [3, True, '', False, False]);

匿名 *发表于 2006-12-31 11:18:58* · 发表于 2006-12-31 11:18:58

出错了！
错误在
doc.InvokeMethod('Protected', [3, True, '', False, False]);

aPanther · 发表于 2006-12-31 11:30:52

13楼写错了
Protect不是'Protected
拼写错误

aPanther · 发表于 2006-12-31 11:31:19

另外，出什么错误，在发帖时候最好贴个错误图片

匿名 *发表于 2006-12-31 11:57:35* · 发表于 2006-12-31 11:57:35

还是那一行出错：
如图：

alang · 发表于 2007-1-5 08:52:13

不清楚了，我这里也出现这个错误
EOleSysError是Ole对象（确切的说是Word）报出来的，要查查M$的资料了

beidou · 发表于 2007-7-3 09:36:45

问题解决了吗?楼主

beidou · 发表于 2007-7-3 09:37:18

我们也有这样的需求.....顶.....

		自动登录	找回密码
密码			立即注册


	选中篇: 置顶\|

选中 篇:

[请求]如何在实现这样的需求？**

选中篇: