Передача текста заметок PowerPoint в документ Word с помощью VBA - PullRequest
Новая
       9

Передача текста заметок PowerPoint в документ Word с помощью VBA

0 голосов
/ 13 марта 2019

У меня есть ppt презентация с 30 слайдами, которые имеют примечания, соответствующие каждому слайду. Я хотел бы взять текст из заметок и перенести их в текстовый документ. Однако следующий код делает это, но не передает форматирование в документ word:

Dim intSlide As Integer Dim strFileName As String Dim strTemp As String Dim strNotes As String 

strFileName = "C:\Users\XXXX.doc" 

strTemp = MsgBox("Include labels in the text file?", _
vbQuestion + vbYesNoCancel, "Label Treatment")

If strTemp = vbCancel Then Exit Sub

Open strFileName For Output As #1
With ActivePresentation
On Error Resume Next

    If strTemp = vbYes Then
        Print #1, "strFileName " & .Name
        Print #1, "-----"
        Print #1, ""
    End If
    For intSlide = 1 To .Slides.Count
        If strTemp = vbYes Then Print #1, "Slide: " & intSlide
        strNotes = ActivePresentation.Slides(intSlide).NotesPage. _
        Shapes.Placeholders(2).TextFrame.TextRange.Text
        Print #1, ""
        Print #1, strNotes
        If strTemp = vbYes Then Print #1, "========"
    Next intSlide
End With
Close #1

Есть ли способ передать форматирование в документ word вместе с текстом?

...