PropertiesTest2.ps1

$path = "D:\GDrive\PS_Script\技100-999.docx"
$word = New-Object -ComObject Word.Application
$doc = $word.Documents.Open($path)

$binding = "System.Reflection.BindingFlags" -as [type]
[ref]$SaveOption = "Microsoft.Office.Interop.Word.WdSaveOptions" -as [type]

$BuiltinProperties = $doc.BuiltInDocumentProperties
$objHash = @{"Path" = $doc.FullName}

# $AryProperties をビルトインプロパティの全属性名の配列に設定
$AryProperties = @()
for ($i = 1; $i -le $BuiltinProperties.Count; $i++) {
    $pn = $BuiltinProperties.Item($i)
    $name = $pn.Name
    Write-Host "Property Name: $name" -ForegroundColor Yellow
    $AryProperties += $name
}

foreach ($p in $AryProperties) {
    try {
        $pn = $BuiltinProperties.Item($p)
        $value = $pn.Value
        Write-Host "Property Value for ${p}: ${value}" -ForegroundColor Green
        $objHash.Add($p, $value)
    } catch [System.Exception] {
        Write-Host -ForegroundColor Blue "Value not found for ${p}"
    }
}

$docProperties = New-Object PSObject -Property $objHash
$docProperties

# ドキュメントを保存せずに閉じる
$doc.Close([ref]$SaveOption::wdDoNotSaveChanges)
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($BuiltinProperties) | Out-Null
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($doc) | Out-Null
Remove-Variable -Name doc, BuiltinProperties

$word.Quit()
[System.Runtime.InteropServices.Marshal]::ReleaseComObject($word) | Out-Null
Remove-Variable -Name word
[gc]::collect()
[gc]::WaitForPendingFinalizers()

Write-Host "Ready!" -ForegroundColor Green