kinuasa

Public Sub Sample2()
  Dim aryPaths As Variant
  Dim i As Long
  aryPaths = GetDroppedFileAndFoldersFromCB
  If UBound(aryPaths) <> -1 Then
    For i = LBound(aryPaths) To UBound(aryPaths)
      Debug.Print aryPaths(i)
    Next
  End If
End Sub

kinuasa

Public Sub Sample()
  Dim aryPaths As Variant
  Dim i As Long
  aryPaths = GetDroppedFileAndFolders
  If UBound(aryPaths) <> -1 Then
    For i = LBound(aryPaths) To UBound(aryPaths)
      Debug.Print aryPaths(i)
    Next
  End If
End Sub

kinuasa

Add-Type -AssemblyName "PresentationFramework"

$xaml = @"
<Window xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
        Title="FilePicker" Height="250" Width="350" AllowDrop="True" Topmost="True">
  <Grid>
    <ListBox Name="FileListBox" AllowDrop="True"/>
    <TextBlock Name="HintText"
               Text="ここにファイルをドラッグ＆ドロップしてください"
               Foreground="Gray"

kinuasa

'****************************************************************************************************
' 
' 名前を付けて保存ダイアログを操作して図の圧縮を行うVBScript(Word・Excel・PowerPoint対応)
' @kinuasa
' 
' ※SavePicCompressedFile.ps1( https://gist.github.com/kinuasa/dc1436e8614aeb883a97d4fa0fbb0c3b )を同じフォルダに保存して実行
' 
'****************************************************************************************************

Option Explicit

kinuasa

Option Explicit

Public Sub Sample()
  Dim SaveFilePath As String, DocumentTitle As String
  Dim wb As Excel.Workbook
  Const TargetWorkbookPath As String = "C:\Test\Excel\SampleImageFile.xlsx"
  
  With CreateObject("Scripting.FileSystemObject")
    SaveFilePath = .BuildPath(.GetParentFolderName(TargetWorkbookPath), "Compressed_" & .GetFileName(TargetWorkbookPath))
    DocumentTitle = .GetBaseName(TargetWorkbookPath)

kinuasa

Param(
  [parameter(Mandatory=$true)][ValidateSet("XLMAIN", "OpusApp", "PPTFrameClass")][string]$ClassName,
  [parameter(Mandatory=$true)][string]$DocumentTitle,
  [parameter(Mandatory=$true)][string]$SaveFilePath,
  [parameter(Mandatory=$true)][string]$ResolutionItem
)

$source = @"
using System;
using System.Threading;

kinuasa

Option Explicit

Public Sub Sample()
  If ContainsStrikethrough(Selection) Then
    MsgBox "指定したセル範囲内に取り消し線が含まれるセルがあります。", vbInformation + vbSystemModal
  Else
    MsgBox "指定したセル範囲内に取り消し線が含まれるセルはありません。", vbExclamation + vbSystemModal
  End If
End Sub

kinuasa

$key = Get-Item -Path "Registry::HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\InstallService\State\CategoryCache"
$key.GetValueNames() | ForEach-Object {
  $jso = $key.GetValue($_) | ConvertFrom-Json
  $fulfillmentData = $jso.FulfillmentData | ConvertFrom-Json
  $packageFamilyName = $fulfillmentData.PackageFamilyName
  $productId = $fulfillmentData.ProductId
  Write-Output("{0}`t{1}" -f $packageFamilyName, $productId)
}

kinuasa

@echo off
cd /d %~dp0
PowerShell -NoProfile -ExecutionPolicy Bypass -File .\CustomizeNotepadSettings.ps1

kinuasa

/# ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
PDF処理のサンプルフロー
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆#/
**REGION PDFファイルからテキストを抽出
Pdf.ExtractTextFromPDF.ExtractText PDFFile: $'''C:\\Test\\PDF\\テスト用PDFファイル(テキスト有り).pdf''' DetectLayout: False ExtractedText=> ExtractedPDFText
Display.ShowMessageDialog.ShowMessage Title: $'''取得したテキスト''' Message: ExtractedPDFText Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed
Pdf.ExtractTextFromPDF.ExtractText PDFFile: $'''C:\\Test\\PDF\\テスト用PDFファイル(テキスト無し).pdf''' DetectLayout: False ExtractedText=> ExtractedPDFText
Display.ShowMessageDialog.ShowMessage Title: $'''取得したテキスト''' Message: ExtractedPDFText Icon: Display.Icon.Information Buttons: Display.Buttons.OK DefaultButton: Display.DefaultButton.Button1 IsTopMost: True ButtonPressed=> ButtonPressed
**ENDREGION
**REGION PDFファイルからテーブルを抽出