Powershell to find Text in PDF and Word

In continuation to my previous article on PowerShell to find hyperlink texts in ppt, here I am going to show how to find hyperlinks in Word or PDF files. Sample code below, tweak it for your purpose and drop me a comment if you need help.

$FilePath= "C:\Users\xxx\" 

$OurDocuments = Get-ChildItem -Path "$FilePath" -Filter "*.pdf" -Recurse #change to .doc* for word

$Word = New-Object -ComObject word.application

$Word.Visible = $false

$i = 0

$OurDocuments | ForEach-Object {

try {

    $Document = $Word.Documents.Open($_.FullName,$false,$true) 

    #"Processing file: {0}" -f $Document.FullName

    

    try{

    $Document.Hyperlinks | ForEach-Object {

        if ($_.Address -like "https://domain.com*" -or $_.Text -like "https://domain.com*") 

        {

                "Found issues {0} `r`n" -f $Document.Fullname 

                "Found issues {0} `r`n" -f $_.Address

                "Found issues {0} `r`n" -f $_.Hyperlinks

                break

         } 

      

    }

    }catch{Write-Host "Error has occured while accessing" $Document.FullName}

    }

    catch{Write-Error $Document.FullName}

   #"Completed processing {0} `r`n" -f $Document.Fullname

    

  Write-Progress -Activity "Searching Hyperlinks" -Status "Progress:" -PercentComplete ($i/$OurDocuments.count*100)

  $i++

}

$Word.Quit()

[gc]::collect()

[gc]::WaitForPendingFinalizers()

PowerShell to find HyperLink Text in PowerPoint

Recently I faced a scenario where I needed to find if a particular url is used in hyperlink in 100s of ppt. Opening ppt and looking for the ppt is cumbersome,  so wrote a small PowerShell to find the url. Here is the PowerShell Script code

Click here to view article on powershell to find hyerlink text in word or pdf

$FilePath= "C:\Users\xxx\Path"

Add-Type -AssemblyName Office

$ppt = New-Object -ComObject powerpoint.Application

$DocumentsLib = Get-ChildItem -Path "$FilePath" -Filter "*.ppt*" -Recurse

$Doc = New-Object -ComObject powerpoint.Application

$i=0

$DocumentsLib | ForEach-Object {

Write-Host $_.FullName

$Doc = $ppt.Presentations.Open($_.FullName,$Null,$Null,[Microsoft.Office.Core.MsoTriState]::msoFalse)

$Slides = $Doc.Slides

Foreach ($Slide in $Slides) {

    $Slide.Hyperlinks | ForEach-Object {

       

        if ($_.Address -like "*texttofind*" -or $_.Text -like "texttofind*") 

        {

           write-host $_.Address

           write-host "Found"

            break

        }

               

 }

}

#$Doc.Save()

#$Doc.Close($false)

#$ppt = $null

 Write-Progress -Activity "Searching Hyperlinks" -Status "Progress:" -PercentComplete ($i/$DocumentsLib.count*100)

  $i++

}

[gc]::collect()

[gc]::WaitForPendingFinalizers()