見出し画像

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 のユーザであること!という前提ですが。(^^)/


いいなと思ったら応援しよう!

オクターブ・ラボ
役に立った!という記事にはチップをお願いします。チップは大変に励みになります。