Дополнение Powerpoint для получения текста в заметках на слайдах и преобразования его в аудио. Не похоже, чтобы заметки на слайдах были такими, какими они должны быть?

Question

Вот код, над которым я работал. Я предполагаю, что это должно показать окно сообщения с примечаниями в слайдах, но это не так. Также я не уверен, как реализовать синтез речи с помощью кода, в котором у меня есть часть, но он может быть не в том месте.

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml.Linq;
using PowerPoint = Microsoft.Office.Interop.PowerPoint;
using Office = Microsoft.Office.Core;
using Microsoft.Office.Interop.PowerPoint;
using System.Speech.Synthesis;


namespace FirstPowerPointAddIn
{
public partial class ThisAddIn
{
private void ThisAddIn_Startup(object sender, System.EventArgs e) 
{


         SpeechSynthesizer synth = new SpeechSynthesizer();
        // Configure the audio output. 
        synth.SetOutputToDefaultAudioDevice();

     PowerPoint.Application oPowerPoint = null;
     try
      {
            oPowerPoint.SlideShowBegin += oPowerPoint_SlideShowBegin;



            oPowerPoint.SlideShowNextSlide += oPowerPoint_SlideShowNextSlide;

       }
        catch(Exception)
        {
            Console.WriteLine("error");
        }
    }



    private void ThisAddIn_Shutdown(object Pender, System.EventArgs e)
    {
    }



    private void oPowerPoint_SlideShowBegin(SlideShowWindow Wn) 

     // If the slide has notes, get the notes
    {
        if (Wn.View.Slide.HasNotesPage == Microsoft.Office.Core.MsoTriState.msoTrue)
        {

            if (Wn.View.Slide.NotesPage.Shapes[2].TextFrame.HasText == Microsoft.Office.Core.MsoTriState.msoTrue)

                System.Windows.Forms.MessageBox.Show(Wn.View.Slide.NotesPage.Shapes[2].TextFrame.TextRange.Text);



        }
    }
    void oPowerPoint_SlideShowNextSlide(PowerPoint.SlideShowWindow Wn)
    {

        if (Wn.View.Slide.HasNotesPage == Microsoft.Office.Core.MsoTriState.msoTrue)
        {

            if (Wn.View.Slide.NotesPage.Shapes[2].TextFrame.HasText == Microsoft.Office.Core.MsoTriState.msoTrue)

                System.Windows.Forms.MessageBox.Show(Wn.View.Slide.NotesPage.Shapes[2].TextFrame.TextRange.Text);



        }
    }

    #region VSTO generated code

    /// <summary>
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    /// </summary>
    private void InternalStartup()
    {
        this.Startup += new System.EventHandler(ThisAddIn_Startup);
        this.Shutdown += new System.EventHandler(ThisAddIn_Shutdown);
    }

    #endregion
}

}

Answer 1

C# версия VB-кода Стива Риндсберга для интересующихся:

PowerPoint.SlideShowWindow  ppWindow;
PowerPoint.Slide            slide       = ppWindow.View.Slide;
if (slide.HasNotesPage == MsoTriState.msoTrue) {
    PowerPoint.SlideRange notesPages = slide.NotesPage;
    foreach (PowerPoint.Shape shape in notesPages.Shapes) {
        if (shape.Type == MsoShapeType.msoPlaceholder) {
            if (shape.PlaceholderFormat.Type == PowerPoint.PpPlaceholderType.ppPlaceholderBody) {
                Debug.WriteLine("Slide[" + slide.SlideIndex + "] Notes: [" + shape.TextFrame.TextRange.Text + "]");             
            }
        }
    }
}

Answer 2

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

В более новых версиях PPT вам нужно будет перебирать фигуры в поисках формы с именем Notes Placeholder # (где # - это число, которое может быть или не быть 2). Имена форм будут отличаться в более старых презентациях. По этой причине обычно лучше сделать что-то вроде этого:

Sub FindTheNotesText()
    Dim oSl As Slide
    Dim x As Long
    Set oSl = ActivePresentation.Slides(1)
    With oSl.NotesPage
        For x = 1 To .Shapes.Count
            With .Shapes(x)
                Debug.Print .Name
                Debug.Print .Type
                If .Type = msoPlaceholder Then
                    Debug.Print .PlaceholderFormat.Type
                    If .PlaceholderFormat.Type = ppPlaceholderBody Then
                        Debug.Print "^^^^^ This is the notes text placeholder"
                        Debug.Print .TextFrame.TextRange.Text
                    End If

                End If
            End With
        Next
    End With
End Sub