Взаимодействие Word с PowerShell

New-Item -type directory -Path "C:\Student\FIO" -Force
$Word = New-Object -ComObject Word.Application
$doc = $Word.Documents.Add()
$Word.Visible = $true
$sel = $Word.Selection
$sel.Font.Name = "Times New Roman"
$sel.Font.Italic=$True 
$sel.Font.Size = 14
$sel.TypeText("Hello")
$selectimage = $sel.InlineShapes.AddPicture("C:\Student\Lab_3\Image.jpg")
$doc.SaveAs([ref]"C:\Student\FIO\Lab3.doc")
$doc.Close()
$Word.quit()

$sel.TypeText((Get-Date))

$sel.TypeParagraph()
$os=Get-WmiObject -class win32_OperatingSystem
$sel.TypeText("Operating System Information for $($os.CSName)")
$os.properties | select Name | foreach -begin {$props=@()} -proc {$props+="$($_.name)"}
$sel.TypeText(($os | Select -Property $props | Out-String))

$word=new-object -ComObject "Word.Application"
$doc=$word.documents.Add()
$word.selection.pagesetup.topmargin = 50
$word.selection.pagesetup.leftmargin = 50
$word.selection.pagesetup.rightmargin = 50
$word.selection.pagesetup.bottommargin = 50
$word.Visible=$True
$selection=$word.Selection
$Word.Selection.paragraphFormat.SpaceBefore = 0
$Word.Selection.paragraphFormat.SpaceAfter = 0
$selection.Font.Name="Times New Roman"
$selection.Font.Size=18
$selection.TypeText(("Приклад використання PowerShell для роботи з Microsoft Word"))
$selection.TypeParagraph()
$selection.Font.Name="Arial"
$selection.Font.Size=12
$selection.TypeText(("Вивід дати та часу за допомогою командлета PowerShell: "))
$selection.Font.Italic=$true
$selection.TypeText((Get-Date))
$selection.Font.Italic=$false
$selection.TypeParagraph()
$selection.TypeText(("Приклад додавання двох стандартних малюнків Microsoft Word:"))
$selection.TypeParagraph()
$selectimage = $selection.InlineShapes.AddPicture("C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\J0183168.WMF")
$selectimage = $selection.InlineShapes.AddPicture("C:\Program Files\Microsoft Office\MEDIA\CAGCAT10\J0183290.WMF")
$selection.TypeParagraph()
$selection.TypeText(("Приклад додавання фотокартки до документу:"))
$selection.TypeParagraph()
$selectimage = $selection.InlineShapes.AddPicture("N:\Снимок.PNG")
$selection.TypeParagraph()
$selection.TypeParagraph()
$selection.Font.Name="Times New Roman"
$selection.Font.Size=14
$selection.TypeText(("Прикдад додавання таблиці:"))
$selection.TypeParagraph()
$Number_Of_Rows = 1
$Number_Of_Columns = 5
$paragraph = $doc.Content.Paragraphs.Add()
$range = $paragraph.Range
$table = $doc.Tables.Add($Range,$Number_Of_Rows,$Number_Of_Columns) 
$Table = $Doc.Tables.item(1)
$Table.Cell(1,1).Range.Text = "Прізвище"
$Table.Cell(1,2).Range.Text = "Ім'я"
$Table.Cell(1,3).Range.Text = "По-Батькові"
$Table.Cell(1,4).Range.Text = "Дата народження"
$Table.Cell(1,5).Range.Text = "Телефон"
$x = 2
$counter = 0
 
foreach ($pst in $PSTNetworkList)
{
    $accessed = ("{0: dd-MM-yyyy}"-F ($PSTNetworkList[$counter] | Select-Object lastwritetime).lastwritetime) | Out-String
    $Table.Rows.Add()
    $Table.Cell($x,1).Range.Text     = (($PSTNetworkList[$counter] | Select-Object name).name | Out-String)
    $Table.Cell($x,2).Range.Text     = $accessed
    $Table.Cell($x,3).Range.Text     = $checkbox
    $Table.Cell($x,4).Range.Text     = $checkbox
    $Table.Cell($x,5).Range.Text     = $checkbox
    $x = $x + 1
    $counter = $counter + 1
}
$Table.AutoFormat(9)
$Selection.EndKey(6, 0)
$selection.TypeParagraph()
$selection.Font.Size=14
$selection.TypeText(("Роботу виконав:"))
$selection.TypeParagraph()
$selection.Font.Size=12
$selection.TypeText(("cтудент 341 групи"))
$selection.TypeParagraph()
$selection.TypeText(("Діков А.В"))
$selection.TypeParagraph()
$selection.Font.Size=10
$selection.TypeText(("Date: 22.10.2013"))
$doc.SaveAs([ref]"C:\Student\FIO\Lab3.doc")
$doc.Close()
$word.quit()