Trích xuất nhận xét từ bản trình bày PowerPoint bằng VBA

Question

Tôi có PowerPoint chứa khoảng 50 trang trình bày. Mỗi trang chiếu có thể có 1 hoặc nhiều nhận xét được cung cấp bởi bộ chỉnh sửa (được thực hiện bằng cách sử dụng menu chèn-> nhận xét).

tôi đang cố gắng để có được các ý kiến ​​programatically xuất khẩu vào một tập tin văn bản sử dụng mã này 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 

Trong đoạn mã trên, tôi cần phải tạo ra khung cảnh bình luận cũng như để được ghi vào một file văn bản (dòng nào trong trang trình bày đã được chọn và nhận xét)

Câu hỏi: Tôi có thể sử dụng bất kỳ thuộc tính nào để nhận thông tin này không?

Answer 1

Như thế này:

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 

Phần chính là về vòng lặp qua tất cả các hình dạng cha mẹ đến nhận xét.