Извлечение комментариев из презентации PowerPoint с использованием VBA

Question

У меня есть PowerPoint, который содержит около 50 слайдов. На каждом слайде может быть 1 или более комментариев, предоставленных редактором (выполняется с помощью меню вставки-> комментариев).

Я пытаюсь получить комментарии программно экспортируемые в текстовый файл, используя этот 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 

Основная часть о петле через все фигуры родителя на комментарий.