Блог

Я нашел некоторый код для поиска строк в документе Word. Я изменил его в соответствии со своими потребностями (мне нужно выполнить поиск по очень длинному списку строк). К сожалению, я получаю странную ошибку.

Во время выполнения сценария он открывает документ word, выполняет поиск в документе word, и вот тут становится странно, вместо того, чтобы закрыть документ и открыть следующий, он представляет мне диалоговое окно «сохранить как», и сценарий зависает, пока я не отменю его. Когда я отменяю его, мой сценарий продолжается.

Вот сценарий, который я использую, кто-нибудь увидит, куда я направляюсь на юг?

 $results = @{}  Write-Host "Loading getStringMatch into memory" -ForegroundColor DarkMagenta  Function getStringMatch {  # Loop through all *.doc files in the $path directory  Foreach ($file In $files)  {  Write-Host "Searching In ... $($File.FullName) " -ForegroundColor DarkYellow  $document = $application.documents.open($file.FullName,$false,$true)   $range = $document.content   If($range.Text -match ".{$($charactersAround)}$($findtext).{$($charactersAround)}"){  $properties = @{  File = $file.FullName  Match = $findtext  TextAround = $Matches[0]   }  $results  = @(New-Object -TypeName PsCustomObject -Property $properties)  }   $document.close()  Write-Host "Closing Document ... $($File.FullName) " -ForegroundColor Red  }   #If($results){  # $results | Export-Csv $output -NoTypeInformation  #}  $application.quit() }   $searchWords=Get-Content "C:TempUSDA_Search_For.txt" Foreach ($sw in $searchWords) {  Write-Host "Setting Variables ..." -ForegroundColor DarkMagenta  Set-StrictMode -Version latest  $path = "C:Temp"  $files = Get-Childitem $path -Include *.docx,*.doc -Recurse | Where-Object { !($_.psiscontainer) }  $output = "C:TempFound.csv"  $application = New-Object -comobject word.application  $application.visible = $False  $findtext = "First"  $charactersAround = 30  #$results = @{}    $findtext = $sw  Write-Host "Searching For ... $findtext" -ForegroundColor Green  getStringMatch   #clean up stuff  [System.Runtime.InteropServices.Marshal]::ReleaseComObject($application) | Out-Null  Remove-Variable -Name application  [gc]::collect()  [gc]::WaitForPendingFinalizers()    }  If($results){  $results | Export-Csv $output -NoTypeInformation  } import-csv $output