---

# === Пакетная конвертация Word → PDF в текущей папке ===

$folder = $PSScriptRoot  # Автоматически берёт папку, где лежит скрипт

if (-not $folder) {
    $folder = Get-Location
}

$word = New-Object -ComObject Word.Application
$word.Visible = $false

Write-Host "Начинаем конвертацию в папке:" -ForegroundColor Cyan
Write-Host $folder -ForegroundColor Yellow
Write-Host "====================================="

Get-ChildItem -Path $folder -Filter *.doc? | ForEach-Object {
    try {
        $doc = $word.Documents.Open($_.FullName)
        $pdf = \( _.FullName -replace "\.docx? \)", ".pdf"
        
        $doc.SaveAs([ref]$pdf, [ref]17)
        $doc.Close()
        
        Write-Host "✓ $($_ .Name)" -ForegroundColor Green
    }
    catch {
        Write-Host "✗ Ошибка: $($_.Name)" -ForegroundColor Red
    }
}

$word.Quit()
Write-Host "=====================================" 
Write-Host "Готово! Конвертация завершена." -ForegroundColor Green
Pause