PDFからテキストを抽出しExcelに貼り付ける

[達也鈴木参加者]

※ 仕様上全てのデータを正しく処理できません。

/# デスクトップにPDFをダウンロードします#/
Folder.GetSpecialFolder SpecialFolder: Folder.SpecialFolder.DesktopDirectory SpecialFolderPath=> SpecialFolderPath
Web.DownloadToFolder Url: $'''https://support.asahi-robo.jp/data/PDF-Sample.pdf''' DestinationFolder: SpecialFolderPath ConnectionTimeout: 30 FollowRedirection: True ClearCookies: False UserAgent: $'''Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.1.21) Gecko/20100312 Firefox/3.6''' Encoding: Web.Encoding.AutoDetect AcceptUntrustedCertificates: False DownloadedFile=> DownloadedFile
/# PDFのテキストを抽出します#/
Pdf.ExtractText PDFFile: DownloadedFile ExtractedText=> ExtractedPDFText
/# スペースをタブに変換します
※ 文字中のスペースも変換されるため注意してください ※#/
Text.Replace Text: ExtractedPDFText TextToFind: $'''%' '%''' IsRegEx: True IgnoreCase: False ReplaceWith: $'''\t''' ActivateEscapeSequences: True Result=> Replaced
/# クリップボードにコピーしてから、Excelに貼り付けます
※ 書き込みの場合は、1つのセルに書き込まれます#/
Clipboard.SetText Text: Replaced
Excel.Launch Visible: True LoadAddInsAndMacros: False Instance=> ExcelInstance
Excel.Advanced.PasteAt Instance: ExcelInstance Column: $'''A''' Row: 1

[投稿者]

投稿