【PowerPoint】特定の文字列を含むPowerPointのファイルを対象とし、特定のフォルダに移動したい

Question

前提・実現したいこと

特定の文字列を含むPowerPointのファイルを対象とし、
特定のフォルダに移動したい。含まない場合は移動しない。

下記点でもご確認させて頂きたく存じます。
・そもそもPowershellが妥当か
（勉強の一環でPowershellを使っていますが、PowerPoint VBAの方がよいですか。あるいはもっと別の方法がありますなど）
・Powershellで文字列検索をしたとして、戻り値が拾えるか
（移動する/しないの判断に使えるか）

該当のソースコード

# ini読み込み
function ReadIniFile($FileName)
{
    $lines = get-content $FileName
    foreach ($line in $lines){
        # コメントと空行を除外
        if($line -match "^$"){ continue }
        if($line -match "^#"){ continue }
        
        # 検索文字列と移動先ディレクトリ名を取得
        $param = $line.split(",",2)
        $TargetWord = $param[0]
        $TargetDir = $param[1]
    }
}

$INI_FILE = ".\pptMove.ini"
ReadIniFile($INI_FILE)

$ppt = New-Object -ComObject PowerPoint.Application
$ppt.Visible = [Microsoft.Office.Core.MsoTriState]::msoTrue

# カレントディレクトリ配下のPowerpoint を開く
$lines = Get-ChildItem -Recurse | select-object fullname | findstr pptx
foreach ($line in $lines){
    $pptxFile = $ppt.Presentations.Open("$line")
    ### ここにしたい処理が入る。 ###
    $pptxFile.Close()
}

試したこと

上記で開くまではできましたが、PowerPoint内の処理方法がわかりませんでした。

補足情報（FW/ツールのバージョンなど）

PowerShell 5.1
Microsoft Office 365 MSO(16.0.11231.20614) 32bit

Answer 1

COM 操作で行うのであれば、処理速度を考えると PowerPoint VBA の方が良いと思われます。

以前、120 スライドほどの pptx について、文字サイズのチェックを行ったことがありますが、VBAで 2、3秒の処理が、PowerShell では 1 分近くかかったことがありました
(単純な文字列検索に比べて PowerShell に不利な条件、PowerShell 2.0 での話)。

ただ、PowerShell の方が扱いが楽な面も多いため、処理速度が問題になるようなら PowerPoint VBA という考えでも良いかもしれません。

また、対象のファイル内で使われている図形の種類によっても難易度が変わってきます（入れ子になっている図形は個別に対応が必要なため）。

以下、図形内の文字列を取得する処理のサンプルです。

Sub PrintPresentationText()
    Dim pres As PowerPoint.Presentation
    Set pres = ActivePresentation
    
    '各スライドについて処理
    Dim sld As PowerPoint.Slide
    For Each sld In pres.Slides
        
        'スライド側の図形
        Dim shp As PowerPoint.Shape
        For Each shp In sld.Shapes
            PrintShapeText shp
        Next shp
        
        'ノート側の図形
        For Each shp In sld.NotesPage.Shapes
            PrintShapeText shp
        Next shp
    Next sld
    
End Sub

Private Sub PrintShapeText(shp As PowerPoint.Shape)
    Dim s As PowerPoint.Shape
    If shp.HasTable Then
        'テーブルの中身を確認する処理
        'shp.Table.Rows.~
    ElseIf shp.Type = msoGroup Then
        'グループ化されている形状の中を探す
        For Each s In shp.GroupItems
            PrintShapeText s
        Next s
    ElseIf False Then
        'テーブルやグループ以外にも SmartArt などは特別対応が必要
        '全部対応は大変なので実用上必要な範囲に絞った方が無難
        
    ElseIf shp.HasTextFrame Then 'テキスト領域を持っていれば
        If shp.TextFrame2.HasText Then
            Debug.Print shp.TextFrame2.TextRange.Text
        End If
    End If
End Sub

[string[]]$presTexts =
    $pptxFile.Slides <# => PowerPoint.Slide #>|
    ForEach-Object -Process { # => PowerPoint.Shape
        $_.Shapes # スライド側の図形
        $_.NotesPage.Shapes # ノート側の図形
    } |
    ForEach-Object -Begin {[int]$msoGroup = 6} -Process { # => PowerPoint.Shape
        # 入れ子になっている図形を展開
        if ($_.HasTable) {
            # テーブルの中身を確認する処理
            $_.Table.Rows | ForEach-Object -MemberName Cells | ForEach-Object -MemberName Shape
        } elseif ($_.Type -eq $msoGroup) {
            $_.GroupItems
        } else {
            $_
        }
    } |
    Where-Object -FilterScript { # => PowerPoint.Shape
        # テキストを持っている図形のみにフィルター
        $_.HasTextFrame -and $_.TextFrame2.HasText
    } |
    ForEach-Object -Process { # => System.String
        # 図形内の文字列取得
        $_.TextFrame2.TextRange.Text
    }

$presTexts