Adicione texto formatado à correção automática do Word por meio do PowerShell

Question

Estamos usando o Word 2010 e temos um script do PowerShell que lê uma tabela em um arquivo docx do Word e a usa para preencher o dicionário de autocorreção. Ele funciona para as entradas regulares que não exigem formatação; mas quebra os itens que precisam usar o método AddRichText. Isso dá esse erro:

System.Reflection.TargetInvocationException: Exception has been thrown by the target of an invocation. ---> System.Runtime.InteropServices.COMException (0x800A16DC): Reques
ted object is not available.
   --- End of inner exception stack trace ---
   at System.RuntimeType.InvokeDispMethod(String name, BindingFlags invokeAttr, Object target, Object[] args, Boolean[] byrefModifiers, Int32 culture, String[] namedParamet
ers)
   at System.RuntimeType.InvokeMember(String name, BindingFlags bindingFlags, Binder binder, Object target, Object[] providedArgs, ParameterModifier[] modifiers, CultureInf
o culture, String[] namedParams)
   at System.Management.Automation.ComMethod.InvokeMethod(PSMethod method, Object[] arguments)

E o código para o PowerShell é o seguinte; ele lê de uma tabela de 3 colunas no documento do Word e as usa para preencher a correção automática. A primeira coluna tem o nome, a próxima tem o valor e a última pode ser um X para indicar se é rich text (tem formatação).

$objWord = New-Object -Com Word.Application

$filename = 'D:\Codes.docx'
$objDocument = $objWord.Documents.Open($filename)

$LETable = $objDocument.Tables.Item(1)
$LETableCols = $LETable.Columns.Count
$LETableRows = $LETable.Rows.Count

$word = New-Object -ComObject word.application
$word.visible = $true
$entries = $word.AutoCorrect.entries

Write-output "Starting to write... "

for($r=1; $r -le $LETableRows; $r++) {
    $replace = $LETable.Cell($r,1).Range.Text
    $replace = $replace.Substring(0,$replace.Length-2)
    $with = $LETable.Cell($r,2).Range.Text
    $withRange = $LETable.Cell($r,2).Range
    $with = $with.Substring(0,$with.Length-2)
    $format = $LETable.Cell($r,3).Range.Text
    $format = $format.Substring(0,$format.Length-2)

    Try 
        { 
            if($format -eq "X") {
                $entries.addrichtext($replace, $withRange) | out-null 
            }
            else {
                $entries.add($replace,$with) | out-null 
            }
        }
    Catch [system.exception]
        { 
          Write-Host $_.Exception.ToString()
        }
}
$objDocument.Close()
$objWord.Quit()

 $word.Quit()

 #$word = $null

 [gc]::collect()

 [gc]::WaitForPendingFinalizers()

# Stop Winword Process
$rc = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($objWord)
$rc = [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word)

    

Answer 1

O código parece correto e, infelizmente, os detalhes da exceção são ambíguos e não ajudam. A única coisa que posso pensar que pode estar errado é que AddRichText pode não gostar de passar um intervalo de células em vez do intervalo de parágrafos, que é o que ele espera. Tente mudar isso e veja se isso ajuda.