以只读模式打开word文档

Question

我正在使用自动化在 Word 中打开文档。有时我需要在阅读模式下打开文档：

 var
       WordDocument: _Document;
       WA: TWordApplication;  
     begin
       WA := TWordApplication.Create( nil );
       WA.OnQuit := DocumentClose;
       WA.Connect;
       WordDocument := Wa.Documents.Open( FileName, EmptyParam, true {ReadOnly}, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam );

但用户可以在打开的文档中关闭阅读模式：

如何在过程 DocumentClose 中的 OnQuit 事件中处理此问题？ 在DocumentClose 我想知道文档是否处于读取模式。

我没有任何解决方案，因为我没有足够的经验。 所以，我需要你的建议，关于它的建议。对不起我的英语，如果我必须添加更多信息，请告诉我。谢谢

更新
我试图阅读保护类型，但它总是返回第一种情况。因此，当以 ReadOnly 方式打开的文档不受 wdAllowOnlyReading 保护时。有些文件可以用密码保护，但没有问题。

const 
  wdAllowOnlyReading: Longword = $00000003;
  wdNoProtection:     Longword = $ffffffff;
var
  ProtectionType: TOleEnum;
begin
  ProtectionType := WordDocument.ProtectionType;
  case ProtectionType  of
    wdNoProtection : Showmessage('NoProtection');  
    wdAllowOnlyReading: Showmessage('ReadOnly');
  end;
end;

Answer 1

我不确定究竟你所说的“只读”是什么意思。

WordDocument 有一个ReadOnly 布尔属性，它是只读的，您可以读取它的值但不能设置它。如果文档在打开时已经打开，则此属性返回 true，例如在不同的工作站上，以便用户会收到提示“此文档已锁定以进行编辑...”并询问是否以只读模式打开文档或 Word 是否应该打开副本。

Word 文档可能是“只读”的另一种含义是，如果用户通过单击 Word 按钮（导致文件菜单等）将其标记为“最终”并转到 Prepare | Mark as Final（在MS Word 的“功能区”版本）。

要在代码中读取这些属性，您可以这样做，例如

  if WordDoc.Final then
    Caption := 'Final'
  else
    Caption := 'not Final';
  if WordDoc.ReadOnly then
    Caption := Caption + ' Read only'
  else
    Caption := Caption + ' Read/write'

注意：Final 属性没有出现在 Delphi 的 Word2000.Pas 中，因此要使用它，您需要从早期绑定转到后期绑定，如下所示：

var vWordDoc : OleVariant;
[...]
  vWordDoc := WordDoc;
  if vWordDoc.Final then
[...]

与ReadOnly 属性不同，您可以简单地切换Final 属性

  WordDoc.Final := not WordDoc.Final

但是当WordDoc.ReadOnly 是True 时你能否成功地做到这一点取决于为什么 WordDoc.ReadOnly 是True。

如果WordDoc.ReadOnly 是True，因为文档在打开时被编辑锁定，因为它已经在另一个工作站上打开，WordDoc.Final 是只读的。 Otoh，如果是 True，因为您在调用 .Open() 时指定了 ReadOnly，那么您需要注意：您可以将 Final 设置为 False，然后用户将能够编辑尽管文件已打开 ReadOnly!

另一个复杂情况是ProtectionType 与“只读”没有直接关系，正如我想你已经收集到的那样：它可以，但不一定阻止编辑，除了某些区域一份文件。