Powershell - Extract sections from range found in word document

• Question

• 

  

  0

  Sign in to vote

  Below code works fine, we got start and end point which needs to be extracted but im not able to get range.set/select to work
  
  I'm able to get the range from below, just need to extra and save it to csv file...
  
  $found= $doc.Range($startPosition, $endPosition).Select() - this piece doesnt work...
  
  
      $file = "D:\Files\Scan.doc"
      $SearchKeyword1 =  'Keyword1'
      $SearchKeyword2 =  'Keyword2'    
      
      $word = New-Object -ComObject Word.Application
      $word.Visible = $false
      $doc = $word.Documents.Open($file,$false,$true)
      $sel = $word.Selection
      $paras = $doc.Paragraphs
      $paras1 = $doc.Paragraphs
      $paras2 = $doc.Paragraphs
      
      foreach ($para in $paras)
      {
          if ($para.Range.Text -match $SearchKeyword1)
          {
              write-host $para.Range.Text
              $startPosition = $para.Range.Start
      
      }
      }
      foreach ($para in $paras1)
      {
          if ($para.Range.Text -match $SearchKeyword2)
          {
              write-host $para.Range.Text
              $endPosition = $para.Range.Start
          }
      }
      
      Write-host $startPosition
      Write-host $endPosition
  $found= $doc.Range($startPosition, $endPosition).Select()
  $found.Text | Out-File "D:\Found.txt"
      
      
      # cleanup com objects
      [System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null
      [System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null
      [System.GC]::Collect()
      [System.GC]::WaitForPendingFinalizers()
  

  • Edited by Lokesh Sharma1 Wednesday, August 8, 2018 1:47 PM

  Wednesday, August 8, 2018 11:47 AM