엑셀과 파워포인트로 명찰 자동화 만들기: 수작업 탈출기

안녕? 넌 프롬프트 전문가야.
아래 작업을 위한 프롬프트를 작성해줘.

---
안녕? 넌 엑셀과 파워포인트를 이용한 문서 자동화 전문가야.
엑셀에 있는 참여자 명단을 가지고 파워포인트에서 만들어둔 명찰 템플릿에
소속과 이름이 자동 입력될 수 있도록 만들고싶어.
방법이 있을까?

'참석자명단' 엑셀파일에 있는 참석자명단에 있는 내용으로 '명찰 템플릿' 파워포인트 파일에 기관명, 부서, 직급, 성명을 자동으로 넣고싶어.
[엑셀파일 구성]
A열 : no.
B열 : 기관명
C열 : 부서
D열 : 직급
E열 : 성명
[파워포인트파일 구성]
한 장에 이름표 위, 아래로 이름표 2개 템플릿이 만들어져 있어.
엑셀파일 정보가 파워포인트 템플릿 어디에 위치해야하는지 {B}와 같이 기록해두었어.
배경은 슬라이드마스터로 작업해 두었고, 변경되어야하는 정보만 수정될 수 있도록 템플릿 만들어두었어.
[문서 자동화 작업 프로세스]
1. 엑셀파일 A열 값이 1,2인 행의 정보를 가지고 파워포인트 1페이지에 이름표 2개 생성
2. 엑셀파일 A열 값이 3,4인 행의 정보를 가지고 파워포인트 2페이지에 이름표 2개 생성
3. 엑셀파일 A열의 값이 있는 경우 파워포인트 새로운 페이지 자동 생성하여 이름표 생성
4. C열 값과 D열 값 사이에 꼭 1칸 띄우기
5. C열 값이 없을 경우 D열 값만 입력

' VBA 예시 (간단버전)
Sub CreateNameTags()
    Dim pptApp As Object
    Dim pptPres As Object
    Dim slideIndex As Integer
    Dim i As Integer

    Set pptApp = CreateObject("PowerPoint.Application")
    Set pptPres = pptApp.Presentations.Open("C:\\path\\to\\template.pptx")

    For i = 2 To Sheets("명단").Cells(Rows.Count, 1).End(xlUp).Row
        slideIndex = slideIndex + 1
        pptPres.Slides(slideIndex).Shapes("소속").TextFrame.TextRange.Text = Sheets("명단").Cells(i, 1)
        pptPres.Slides(slideIndex).Shapes("이름").TextFrame.TextRange.Text = Sheets("명단").Cells(i, 2)
    Next i

    pptPres.SaveAs "C:\\path\\to\\output.pptx"
    pptPres.Close
End Sub