Writes a string to a PDF via Microsoft Word automation

Out-PDF.ps1

<#
.Synopsis
        Writes a string to a PDF via Microsoft Word automation
.Example
  	PS> ps | out-string | out-pdf -Path ".\processes.pdf"
#>
function Out-PDF() {

    param( 
        [Parameter(Mandatory=$True, Position=0, ValueFromPipeline=$true)] $Text,
        [Parameter(Mandatory=$True, Position=1)] $Path
    )

	$word=new-object -ComObject "Word.Application"
	$doc=$word.documents.Add()
	$selection=$word.Selection
	$selection.TypeText($Text)
	$doc.SaveAs([ref]([io.path]::GetFullPath($Path)), [ref]17)
	$doc.Close([ref]$false)
	$word.quit()
}