PowerShell で Excel や Word などのメタデータ（個人情報）を一括削除する方法

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19

# Excel アプリケーションを非表示で起動
$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

# ファイルを開く（※絶対パスを指定）
$filePath = "C:\Path\To\Your\File.xlsx"
$wb = $excel.Workbooks.Open($filePath)

# メタデータ（個人情報）を削除する設定を有効化
$wb.RemovePersonalInformation = $true

# 上書き保存して閉じる
$wb.Save()
$wb.Close($false)

# Excel を終了し、メモリを解放
$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

$targetFolder = "C:\Path\To\Your\Folder"

# フォルダ内の .xlsx および .xls ファイルをすべて取得
$excelFiles = Get-ChildItem -Path $targetFolder -Include "*.xlsx", "*.xls" -Recurse

if ($excelFiles.Count -eq 0) {
    Write-Host "Excelファイルが見つかりませんでした。"
    exit
}

$excel = New-Object -ComObject Excel.Application
$excel.Visible = $false
$excel.DisplayAlerts = $false

foreach ($file in $excelFiles) {
    Write-Host "$($file.Name) のメタデータを削除中..."
    
    # ファイルを開く
    $wb = $excel.Workbooks.Open($file.FullName)
    
    # メタデータを削除して上書き保存
    $wb.RemovePersonalInformation = $true
    $wb.Save()
    $wb.Close($false)
}

$excel.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($excel) | Out-Null

Write-Host "すべての処理が完了しました！"

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

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

$doc = $word.Documents.Open("C:\Path\To\Your\File.docx")
$doc.RemovePersonalInformation = $true
$doc.Save()
$doc.Close()

$word.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($word) | Out-Null

 1
 2
 3
 4
 5
 6
 7
 8
 9
10

$ppt = New-Object -ComObject PowerPoint.Application

# 第2引数〜第4引数で非表示モード(msoFalse)などを指定して開く
$presentation = $ppt.Presentations.Open("C:\Path\To\Your\File.pptx", $false, $false, $false)
$presentation.RemovePersonalInformation = $true
$presentation.Save()
$presentation.Close()

$ppt.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($ppt) | Out-Null