H hnhsh Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-08 #1 在delphi下编程实现如下功能：打开现有的word文档，使该文档只可供浏览，而不可以被修改，请问各位高手该如何操作？
清 清新空气 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-08 #2 先读取文件的属性，保存起来，将word文件设置为只读属性，打开word文档（便不可）， 关闭时将属性还原即可；
清 清新空气 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #4 var FileAttrs: Integer; begin FileAttrs:=FileGetAttr('filename'); SetFileAttributes('文件名',只读属性); .....//打开，你的操作； 关闭后 SetFileAttributes('文件名',FileAttrs); end; OK了！还用写的更清楚吗？
var FileAttrs: Integer; begin FileAttrs:=FileGetAttr('filename'); SetFileAttributes('文件名',只读属性); .....//打开，你的操作； 关闭后 SetFileAttributes('文件名',FileAttrs); end; OK了！还用写的更清楚吗？
轻 轻舞肥羊 Unregistered / Unconfirmed GUEST, unregistred user! 2006-07-10 #5 documents.open方法的第3个参数说明: ReadOnly Variant 类型，可选。如果为 True，则以只读方式打开文档。注意 本参数不会覆盖保存的文档的只读建议设置。例如，如果文档在启用只读建议设置情况下保存，将 ReadOnly 参数设为 False，也不会导致以可读写方式打开文件。
documents.open方法的第3个参数说明: ReadOnly Variant 类型，可选。如果为 True，则以只读方式打开文档。注意 本参数不会覆盖保存的文档的只读建议设置。例如，如果文档在启用只读建议设置情况下保存，将 ReadOnly 参数设为 False，也不会导致以可读写方式打开文件。
B bifei Unregistered / Unconfirmed GUEST, unregistred user! 2006-11-22 #6 ExcelApp.ActiveDocument.Protect(wdAllowOnlyComments);//除光标外，复制等菜单有效，其他内容都不能改动 ExcelApp.ActiveDocument.Protect(wdAllowOnlyFormFields);//什么都锁住 ExcelApp.ActiveDocument.Unprotect;//解锁
ExcelApp.ActiveDocument.Protect(wdAllowOnlyComments);//除光标外，复制等菜单有效，其他内容都不能改动 ExcelApp.ActiveDocument.Protect(wdAllowOnlyFormFields);//什么都锁住 ExcelApp.ActiveDocument.Unprotect;//解锁
