PAD:開いたフォルダから指定ファイル開く

SET Folder TO $'''DynamicTestFolder'''
Folder.GetFiles Folder: Folder FileFilter: $'''*.xl*''' IncludeSubfolders: False FailOnAccessDenied: True SortBy1: Folder.SortBy.NoSort SortDescending1: False SortBy2: Folder.SortBy.NoSort SortDescending2: False SortBy3: Folder.SortBy.NoSort SortDescending3: False Files=> Files
ON ERROR

END
SET ValToCheckFile TO 2026
SET Loopcnt TO 0
LOOP FOREACH CurrentFile IN Files
    IF Contains(CurrentFile.Name, ValToCheckFile, False) THEN
        IF NotContains(CurrentFile.Name, $'''~$''', True) THEN
            EXIT LOOP
        END
    END
    Variables.IncreaseVariable Value: Loopcnt IncrementValue: 1
    IF $'''Loopcnt''' = Files.Count THEN
        Display.ShowMessageDialog.ShowMessage Title: $'''対象ファイルが見つかりません。''' Message: $'''処理対象ファイルを選択してください。''' Icon: Display.Icon.None Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: False ButtonPressed=> ButtonPressed
    END
END
Scripting.RunPowershellScript.RunScript Script: $'''# 対象ファイルパス（環境に合わせて展開される前提）
$path = \"%CurrentFile.FullName%\"
$ext  = [System.IO.Path]::GetExtension($path).ToLower()

function Open-WithOfficeOrDefault {
    param(
        [string]$comProgId,   # 例: \"Excel.Application\"
        [string]$path
    )

    try {
        # 既存インスタンス取得（起動していなければ例外）
        $app = [Runtime.InteropServices.Marshal]::GetActiveObject($comProgId)

        switch ($comProgId) {
            \"Excel.Application\" {
                $app.Visible = $true
                $wb = $app.Workbooks.Open($path)
                $wb.Activate()
            }
            \"Word.Application\" {
                $app.Visible = $true
                $doc = $app.Documents.Open($path)
                $doc.Activate()
            }
            \"PowerPoint.Application\" {
                $app.Visible = $true
                $pres = $app.Presentations.Open($path, $true, $false, $true)
                $pres.SlideShowSettings.Run() | Out-Null
            }
        }

        Write-Output \"OK ($comProgId)\"
    }
    catch {
        # 対応アプリが起動していなければ既定アプリで開く
        Write-Output \"$comProgId が起動していないため既定アプリで開きます\"
        Start-Process $path
    }
}

switch ($ext) {
    # Excel 系
    \".xls\"  { Open-WithOfficeOrDefault -comProgId \"Excel.Application\" -path $path }
    \".xlsx\" { Open-WithOfficeOrDefault -comProgId \"Excel.Application\" -path $path }
    \".xlsm\" { Open-WithOfficeOrDefault -comProgId \"Excel.Application\" -path $path }

    # Word 系
    \".doc\"  { Open-WithOfficeOrDefault -comProgId \"Word.Application\" -path $path }
    \".docx\" { Open-WithOfficeOrDefault -comProgId \"Word.Application\" -path $path }

    # PowerPoint 系
    \".ppt\"  { Open-WithOfficeOrDefault -comProgId \"PowerPoint.Application\" -path $path }
    \".pptx\" { Open-WithOfficeOrDefault -comProgId \"PowerPoint.Application\" -path $path }

    # PDF / TXT / その他 → 既定アプリでそのまま開く
    \".pdf\"  { Start-Process $path }
    \".txt\"  { Start-Process $path }

    Default { Start-Process $path }
}''' ScriptOutput=> PowershellOutput