Word有什么办法可以让用户能预览，能打印，却不能另存 (问题自己解决，有新问题，StringGrid或者类似的此类控件继承F1Book里下面的那种tabs样式

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #1

Word有什么办法可以让用户能预览，能打印，却不能另存 (问题自己解决，有新问题，StringGrid或者类似的此类控件继承F1Book里下面的那种tabs样式,一半分) ( 积分: 200 )<br />因为word内容不想被轻易的拷贝，大家有没有什么好的办法?
我把WordApplication1.Visible := false;
我发现不能预览，不知道你们怎么做的？

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #2

因为word内容不想被轻易的拷贝，大家有没有什么好的办法?
我把WordApplication1.Visible := false;
我发现不能预览，不知道你们怎么做的？

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #3

200分啊，对ole高手来说就一句代码。各位帮忙啊

 

W

woyaoying

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-05

• #4

恐怕只能操作当前激活的Word，除非你把两个Word都先保存。

 

无

无泪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #5

转换成PDF文件，设置阅读密码为空，许可密码自己设置一个。
这样就可以实现，能预览，能打印。但不能修改了。

 

W

wangchw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #6

你可以用OLECONTAINER把WORD嵌入进去，然后放一个菜单进去，加入一个菜单项，这样WORD的菜单中的文件那一列就不会被覆盖掉了.你可以自己来写打开，预览这些功能，你把保存这个功能去掉可以了.

 

S

suewases

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #7

飞思科技的那套书中《delphi 6高级编程》中有一个例子，应该对你很有启发，可以去看看。

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #8

wangchw 没听明白你的意思，文件那一列就不会被覆盖掉了 ，哪别人不会另存，或直接在控件里把内容copy不就OK了，：）

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #9

suewases, 谢谢你的回答，你能给点提示吗？我现在没有时间去书店看那本书啊，呵呵

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-06

• #10

兄弟们谁有高见?
aaaa

 

Z

zxy666666

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-07

• #11

//*********************************************************
// 問題：如何將【檔案】內【另存新檔...】按鍵 Enabled 設為 False
//*********************************************************
for i:=1 to WordApplication1.CommandBars.Get_Item('File').Controls.Count do
begin
f_temp := WordApplication1.CommandBars.Get_Item('File').Controls.Item.Get_accName(EmptyParam);
if (f_temp = '另存新檔...')
then WordApplication1.CommandBars.Get_Item('File').Controls.Set_Enabled(False);
end;

 

Y

younghat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-08

• #12

Excel可以做到，代码如下
procedure TForm1.Button1Click(Sender: TObject);
var Excel:Variant;
begin
Excel:=ComObj.CreateOleObject('Excel.Application');
Excel.Visible:=true;
Excel.WorkBooks.Open(FileName:='c:/aaa.xls', ReadOnly:=true);
Excel.WorkBooks[1].PrintPreview(false);
Excel.WorkBooks.Close;
Excel.Quit;
end;
用户只能预览和打印，不能做其他任何操作，一退出预览文档就关闭了。
Word试过不行，退出预览后文档回到正常状态，可以做拷贝。
你可以考虑使用Excel代替Word。

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-08

• #13

我有办法了，我也做成功了，就是用密码保护起来，呵呵，谢谢楼上几位的回答。我还是会给你们分的，谢谢你们的热情参与，呵呵。
首先说一下zxy666666, 他的代码有漏洞，用户可以用鼠标选择内容copy然后。。。不用我说了吧

现在我有一个新问题，我想在StringGrid或者类似的此类控件继承F1Book里下面的那种tabs样式
谁答出来，这里的分给一半给他，谢谢各位

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-08

• #14

............

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-12

• #15

唉，结了算了。

 

T

telliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-07-12

• #16

多人接受答案了。