Email

Scripts to generate company email specific CV/Resume PDF(s). This is useful for job application email filtering. work.email@my_domain.com will be work.company_name@my_domain.com. The mailto link for the email will also be updated accordingly. CreatePDF.ps1 Creates a PDF by prompted input text in user Desktop. $TextFile = Read-Host -Prompt 'File name' $TextFile = $TextFile.ToLower().Replace(' ', '') $Word = New-Object -ComObject Word.Application $Word.Visible = $false $word.DisplayAlerts = "wdAlertsNone" $Filename = "\path\to\folder\my_resume.docx" $NewFileName = $Filename.Replace(".docx","") $Document = $Word.Documents.open($Filename) $objSelection = $Document.Selection "Processing file: {0}" -f $Document.FullName $DesktopPath = [Environment]::GetFolderPath("Desktop") $FindText = "email@" $MatchCase = $false $MatchWholeWorld = $true $MatchWildcards = $false $MatchSoundsLike = $false $MatchAllWordForms = $false $Forward = $false $Wrap = 1 $Format = $false $Replace = 1 # Replace email with company name $ReplaceText = $FindText -Replace "email",$TextFile $Document.Content.Find.Execute($FindText, $MatchCase, $MatchWholeWorld, $MatchWildcards, $MatchSoundsLike, $MatchAllWordForms, $Forward, $Wrap, $Format, $ReplaceText, $Replace) # Replace mailto hyperlink $Document.Hyperlinks | ForEach-Object { if ($_.Address -like "*email@*") { $NewAddress = $_.Address -Replace "email",$TextFile $_.Address = $NewAddress # Copies new email to clipboard $NewAddress = $NewAddress -Replace "mailto:", "" | Set-Clipboard } } # Export as pdf $Pdf = $DesktopPath + "`\" + $Document.Name.Replace(".docx", "") + "`-$TextFile.pdf" $Document.ExportAsFixedFormat($Pdf,17) "Exported document as {0} `r`n" -f $Pdf # Quit Word without saving $Document.Close($false) $Word.Quit() CreatePDFs.ps1 Create multiple PDFs based on text file in .docx file directory. ...