PowerPoint工具栏按钮插件如何在点击时获得所在PPT的文件名？按钮点击时如何向另一进程发送字符串数据？如何向每页的备注中写入字符串？

Question

开发工具是：VC6.0
所用技术：不支持MFC的ATL
应用方向是：Office PowerPoint 2003插件问题一：PowerPoint工具栏按钮插件如何在点击时获得所在PowerPoint的文件名及路径？
我用ATL开发了一个Office PowerPoint 2003的COM插件。插件是不支持MFC的DLL程序。注册该插件后会在PowerPoint上新增一个工具栏，在工具栏上会有两个按钮。当我打开PowerPoint后，点击该工具栏按钮时，如何获得该PowerPoint的文件名及路径？
例如：我新建了一个PowerPoint文档，存放在C盘根目录下，名称为：“大学语文.ppt”，完整路径为：“C:\大学语文.ppt”。当打开该文档并点击工具栏按钮后，就能在按钮单击事件中获得字符串“C:\大学语文.ppt”。问题二：按钮点击时如何向另一进程发送字符串数据？
我用MFC编了一个对话框应用程序，应用程序没有标题栏，如何在点击PowerPoint工具栏按钮后，在按钮事件中启动该对话框应用程序，并将问题一中获得的PowerPoint文件名及路径字符串(“C:\大学语文.ppt)发送给该对话框应用程序？是否能用发送消息的方式实现？问题三：如何向每个PowerPoint页面的备注中写入字符串？
我用MFC编了一个对话框应用程序，在该对话框应用程序中输入一些字符串信息，如何将该字符串信息写入相应PowerPoint页面的备注中。比如：将字符串“我是中国人”写入第一页的备注中。谢谢！
如果分不够可以再加。
再次感谢！

Answer 1

1 访问application的活动文档的路径
2 你的两个进程内的代码需要有一个进程间通讯(IPC)协议，比如命名管道、注册的消息或者内存映射
3 同上，你的插件需要在接收到外部进程的消息之后修改备注。
关于Powerpoint的编程接口，可以参考Office的VBA帮助。

Answer 2

主要内容包括：启动、打开、关闭、播放、翻到首页、翻到末叶、翻到上页、翻到下页等。
本代码以PowerPoint 2003为例，其他OFFICE组件及版本方法与此类似。
下面是主要步骤和代码：
1、创建MFC对话框应用程序，在向导的第3步选择automation，其他保持默认即可。
2、在对话框上添加启动、打开、关闭、运行、播放、翻到首页、翻到末叶、翻到上页、翻到下页等按钮及函数。
3、在应用程序的InitInstance()中初始化OLE，代码如下：
// Initialize OLE libraries
if (!AfxOleInit())
{
    AfxMessageBox("Failed to initialize OLE");
    return FALSE;
}
4、运用类向导添加PowerPoint类型库，类型库默认在"C:/Program Files/Microsoft Office/Office11/"下，文件名为：msppt.olb。
5、在对话框应用程序的头文件中添加：
#include "msppt8.h"
6、在在对话框应用程序的头文件中添加如下变量：
_Application app; 
Presentations Presentations;
_Presentation Presentation;
SlideShowView View;
SlideShowWindow SlideShowWindow;
SlideShowSettings slideshow;
Slides slides; 
_Slide slide;
7、在启动按钮函数中添加如下代码：
void CXXXDlg::OnBtnStart()
{
    // Start PowerPoint and get Application object...
    if(!app.CreateDispatch("Powerpoint.Application"))
    {
        AfxMessageBox("Couldn't start PowerPoint.");
    }
    else // Make PowerPoint visible and display a message
    {
        app.SetVisible(TRUE);
        TRACE("PowerPoint is Running!");
    }
}
8、在打开按钮函数中添加如下代码：
void CXXXDlg::OnBtnOpen()
{
    static char BASED_CODE szFilter[] = "PowerPoint Files (*.ppt)|*.ppt||";
    CFileDialog FileDlg(TRUE,"PPT",NULL,OFN_FILEMUSTEXIST|OFN_NONETWORKBUTTON
                |OFN_PATHMUSTEXIST,szFilter);
    FileDlg.DoModal();    // To get the selected file's path and name
    CString strFileName;
    strFileName = FileDlg.GetPathName();    if(!strFileName.IsEmpty())
    {
        Presentations = app.GetPresentations();
        Presentation = Presentations.Open(strFileName,0,0,1);
    }
}
9、在关闭按钮函数中添加如下代码：
void CXXXDlg::OnBtnClose() 
{
    if (CanExit())
        app.Quit();
}
10、在运行按钮函数中添加如下代码：
void CXXXDlg::OnBtnRun() 
{
    Presentations = app.GetActivePresentation();
    slides = Presentation.GetSlides(); 
    // Show the first slide of the presentation
    slide = slides.Item(COleVariant((long)1));     //Run the show
    slideshow = Presentation.GetSlideShowSettings(); 
    slideshow.Run();
}
11、在翻到首页按钮函数中添加如下代码：void CXXXDlg::OnBtnFirst() 
{
    Presentation = app.GetActivePresentation();
    SlideShowWindow = Presentation.GetSlideShowWindow();
    View = SlideShowWindow.GetView();
    View.First();
}
12、在翻到末叶按钮函数中添加如下代码：
void CXXXDlg::OnBtnLast() 
{
    Presentation = app.GetActivePresentation();
    SlideShowWindow = Presentation.GetSlideShowWindow();
    View = SlideShowWindow.GetView();
    View.Last();
} 
13、在翻到前页按钮函数中添加如下代码：
void CXXXDlg::OnBtnPrevious() 
{
    Presentation = app.GetActivePresentation();
    SlideShowWindow = Presentation.GetSlideShowWindow();
    View = SlideShowWindow.GetView();
    View.Previous();
}
14、在翻到下页按钮函数中添加如下代码：
void CXXXDlg::OnBtnNext() 
{
    Presentation = app.GetActivePresentation();
    SlideShowWindow = Presentation.GetSlideShowWindow();
    View = SlideShowWindow.GetView();
    View.Next();
}