Inventor / iLogic: PPT to PDF
仕事の関係で結構な数のPPTファイルを作っています。仕事が終わったときに、そのPPTファイルからPDFファイルを作っています。このPDFファイルをEvernote に載せるためです。
PDFにするのは、Evernoteの全文検索機能を使うためです。Officeファイルも全文検索されるのですが、アプリでファイルを開く分手間がかかります。PDFだとEvernote上で閲覧でき、検索された文字がハイライトされるので便利です。
今回、計50ファイル、しかも、それぞれサブフォルダに分散されているというPPTファイルをPDFにする必要に迫られました。で、要領良くやるにはカスタマイズです。いつもは、VBAで作るのですが、今回は .NET を使ってみました。
Visual Stuidio を使えばよいのですが、なんだか、大袈裟な気がして、簡単にコーディングと実行ができる方法はないかと考えてみました。
そこで、思いついたのが、Inventor!
Inventor の iLogic は、VB.NET のプログラムをそのままコーディングして実行することが出来るので、iLogic のルールとして、PPTからPDFを作成するプログラムを作ってみました。
Imports System.IO
Sub main
PPT = CreateObject("PowerPoint.Application")
Dim Path As String = "C:\Users\xxxxx\yyyy\zzzzz"
Dim dir_path As String ="c:\Temp"
For Each ppt_path As String In System.IO.Directory.GetFiles(Path,"*.ppt", SearchOption.AllDirectories)
file_name = System.IO.Path.GetFileNameWithoutExtension(ppt_path)
pdf_file = dir_path & "\" & file_name & ".pdf"
With PPT.Presentations.Open(ppt_path)
.SaveAs (Filename:=pdf_file, FileFormat:=32)
.Close
End With
Next
PPT.quit
PPT = Nothing
End Sub
意外と簡単にかけて、問題なく動作しました。
ファイルやフォルダを使った処理をさせるのに、この方法はアリだと思いました。Inventor のユーザであること!という前提ですが。(^^)/
役に立った!という記事にはぜひサポートお願いします。サポート頂けると大変に励みになります。