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

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

5 голосов
/ 27 июля 2010

У меня есть 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

В приведенном выше коде мне нужно также предоставить контекст комментария для записи в текстовый файл (какая строка на слайде была выбрана и прокомментирована)

Вопрос: есть ли какой-либо атрибутЯ могу использовать, чтобы получить эту информацию?

1 Ответ

4 голосов
/ 27 июля 2010

Как это: 

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

Основная часть посвящена циклу через родительский элемент всех форм комментария.

...