100만원짜리 프로그램(...)

아....저는 회사에서 사용하고 있어서... 쿨럭.

지금 그 방법으로 파일 하나하나 열어서 노가다 하고 있는데

그 방법 말고 batch 처리가 가능한 방법이 없는지 궁금합니다.

포토샵은 자체 기능(automate-batch)으로 그게 가능하듯이..

혹시 예제가 있을까요? 'ㅅ'

아! 감사합니다. 'ㅁ'
------
Sub Ppt2Pdf()
Dim fso, folder, files, NewsFile, sFolder

Set fso = CreateObject("Scripting.FileSystemObject")
' 아래의 폴더 디렉토리는 현재 파워포인트가 있는 디렉토리를 선택하시면 됩니다.
sFolder = "C:\tmp\"
Set folder = fso.GetFolder(sFolder)
Set files = folder.files

For Each folderIdx In files
If (InStr(1, folderIdx.Name, ".ppt", vbTextCompare)) Then
Presentations.Open FileName:=sFolder + folderIdx.Name
ActivePresentation.ExportAsFixedFormat sFolder + Left(folderIdx.Name, Len(folderIdx.Name) - 4) + ".pdf", ppFixedFormatTypePDF
ActivePresentation.Close
End If
If (InStr(1, folderIdx.Name, ".pptx", vbTextCompare)) Then
Presentations.Open FileName:=sFolder + folderIdx.Name
ActivePresentation.ExportAsFixedFormat sFolder + Left(folderIdx.Name, Len(folderIdx.Name) - 5) + ".pdf", ppFixedFormatTypePDF
ActivePresentation.Close
End If
Next
End Sub

줄바꿈 고쳐서 실행해보니 잘 작동하네요 'ㅁ' 우와! ㅋ

pptx파일은 ..pdf와 .pdf 가 동시 생성되긴 하는데.. 지금은 시간이 없어서 이따 저녁에 수정해봐야겠어요~