VBA를 사용하여 PowerPoint 프레젠테이션에서 주석 추출

Question

약 50 개의 슬라이드가 포함 된 PowerPoint가 있습니다. 각 슬라이드에는 reviwer에서 제공하는 하나 이상의 주석이있을 수 있습니다 (삽입 -> 주석 메뉴를 사용하여 수행). 내가 프로그래밍 방식이 VBA 코드를 사용하여 텍스트 파일로 내 보낸 코멘트를 얻기 위해 노력하고

: 위의 코드에서

Sub ConvertComments() 
    ''# Converts new-style comments to old 

     Dim oSl As Slide 
     Dim oSlides As Slides 
     Dim oCom As Comment 

     Set oSlides = ActivePresentation.Slides 
     For Each oSl In oSlides 
      For Each oCom In oSl.Comments 
       ''# write the text to file : (oCom.Text) 
       WriteToATextFile oCom.Author, <what needs to come here>, oCom.Text 
      Next oCom 
     Next oSl 
End Sub 

, 나는 텍스트 파일에 기록 될뿐만 아니라 주석 컨텍스트를 제공해야 (슬라이드의 어느 선을 선택하고 주석을 달았습니까?)

질문 :이 정보를 얻기 위해 사용할 수있는 속성이 있습니까? 이처럼

Answer 1

:

Sub ConvertComments() 
''# Converts new-style comments to old 

    Dim oSl As Slide 
    Dim oSlides As Slides 
    Dim oCom As Comment 
    Dim oShape As Shape 


    Open "filename.txt" For Output As 1 
    Set oSlides = ActivePresentation.Slides 

    Dim myContext As String 
    For Each oSl In oSlides 
     For Each oCom In oSl.Comments 
      myContext = "" 
      For ShapeIndex = oCom.Parent.Shapes.Count To 1 Step -1 
       myContext = myContext & oCom.Parent.Shapes(ShapeIndex).AlternativeText & " " 
      Next 
      Write #1, oCom.Author & ";" & myContext & ";" & oCom.Text 
     Next oCom 
    Next oSl 
    Close 1 
End Sub 

주요 부분은 주석에 대한 모든 형태의 부모 통해 루프에 관한 것입니다.