检查Word文档是否从PowerShell只读

好的，为此进行测试，我有3个文件，如下所示：

• A）一个普通人test.docx，没有任何限制
• B）一个readonly.docx带密码。这是一个提示让我挂断的文件
• C）一个nopass.docx带有只读设置，但未配置PWD。

A和C不管会打开ReadOnly设置，但B将挂在提示即使DisplayAlerts设置为0。您也无法检查该ReadOnly属性，除非超过了提示，或者如果您将其设置TRUE为总是不正确的话。

如果没有第一个openeing文档，就找不到我无法检查ReadOnlyorHasPassword属性的方法。您可能可以检查XML文件中的HEX，但是我认为这不太可靠。我的方式只是花了一些测试/小技巧才能开始工作。重要的部分是我必须传递密码并在密码失败时进行捕获。A/C即使您传递了密码参数，Doc的打开效果也会很好，因此不会造成任何伤害。在抓我设置ReadOnly = TRUE和Visible = TRUE。您可能不需要将可见部分设置为true，但是如果那样的ReadOnly = TRUE话，您将无法通过VB（例如ORIENTATION）进行某些调整，而我会使用，SENDKEYS因此我需要UI if ReadOnly = TRUE。同样，隐藏UI只是一个“奖励”，但不是必需的。如果我继续浪费时间为代码编写代码IF/THEN，则可以将其设置为始终可见OPENUI 陈述。

无论如何...这是测试这三个文件的最终代码片段，这将导致每个文件打开并带有提示符。

 #Constants
 Clear-Variable ReadOnly
 $missing = [System.Type]::Missing
 $str = ''
 $PASSWD = 'IsPWDProtected?'
 $wdAlertsNone = 0
 $FILENAME = "C:\tmp\readonly.docx"
 $OPENUI = "TRUE"

 #Start Word
 $ObjWord = New-Object -comobject Word.Application
 IF ($OPENUI -eq "FALSE"){$ObjWord.Visible  = $FALSE}ELSE{$ObjWord.Visible  = $TRUE}
 $ObjWord.Application.DisplayAlerts = $wdAlertsNone

 #.Open
 IF (!$ConfirmConversions){$ConfirmConversions = $missing}
 IF (!$ReadOnly){$ReadOnly = $FALSE}
 IF (!$AddToRecentFiles){$AddToRecentFiles = $missing}
 IF (!$PasswordDocument){$PasswordDocument = $PASSWD}
 IF (!$PasswordTemplate){$PasswordTemplate = $PASSWD}
 IF (!$Revert){$Revert = $False} 
 IF (!$WritePasswordDocument){$WritePasswordDocument =  $PASSWD}
 IF (!$WritePasswordTemplate){$WritePasswordTemplate =  $PASSWD} 
 IF (!$Format){$Format = 'wdOpenFormatAuto'} 
 IF (!$Encoding){$Encoding = $missing}
 IF (!$Visible){$Visible = $False} 
 try{$ObjDoc=$ObjWord.documents.open($FILENAME,$ConfirmConversions,$ReadOnly,$AddToRecentFiles,$PasswordDocument,$PasswordTemplate,$Revert,$WritePasswordDocument,$WritePasswordTemplate,$Format,$Encoding,$Visible)}
  catch {
     Write-Error  $_
     Write-Host "Opening Read_Only"
     $ReadOnly = $TRUE
     $Visible = $TRUE
     $ObjDoc=$ObjWord.documents.open($FILENAME,$ConfirmConversions,$ReadOnly,$AddToRecentFiles,$PasswordDocument,$PasswordTemplate,$Revert,$WritePasswordDocument,$WritePasswordTemplate,$Format,$Encoding,$Visible)
 }

#AllDone?
PAUSE
$ObjWord.ActiveDocument.Close(0)
$ObjWord.Quit()
[gc]::collect()
[gc]::WaitForPendingFinalizers()
[gc]::collect()
[gc]::WaitForPendingFinalizers()
sleep 2

结果：

PS C:\Users\Admin> C:\tmp\test.ps1
C:\tmp\test.ps1 : The password is incorrect. Word cannot open the document. (C:\tmp\readonly.doc)
    + CategoryInfo          : NotSpecified: (:) [Write-Error], WriteErrorException
    + FullyQualifiedErrorId : Microsoft.PowerShell.Commands.WriteErrorException,test.ps1
 
Opening Read_Only
Press Enter to continue...: 

注意：我OPENUI = TRUE在测试过程中进行了硬编码，因为如果在关闭UI的情况下将其挂在提示符下，则必须使用tskill winword.exe并重新开始。