使用VBA從PowerPoint演示文稿提取評論

Question

我有一個包含大約50張幻燈片的PowerPoint。每張幻燈片可能有一個或多個評論由reviwer提供（使用insert-> comment菜單完成）。

我試圖讓編程導出到使用這個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 

主要部分是有關環路直通的所有形狀父母的意見。