如何在PowerPoint中查找当前的编辑幻灯片?

我正在为PowerPoint编写加载项,并希望从编辑窗口中的当前幻灯片获取文本。只有在“幻灯片选择器”窗格中选择了幻灯片时,以下功能才起作用。

xSelection := PowerPointApp.ActiveWindow.Selection;
if xSelection.Type = ppSelectionSlides then
begin
  xSlide := xSelection.SlideRange.Item(1);
end;

我一直在追我的尾巴 MSDN 尝试找出找出当前幻灯片的正确方法。“文档”窗口似乎没有当前幻灯片。