vba ppt发送数据内容到word

使用ppt vba，也能像ppt—文件—发送—Microsoft Office Word一样，把ppt的图形、图片、文本框文字、控件发送到word中，而且更精确，更容易控制。目前在排版上存在一些缺陷，另外文本框取消不了。我在word中能删除文本框，保留其中的文字数据。 请各位大侠提出建议。 '在运行前 'VBE—工具—引用Microsoft Word 11.0 Object Library Sub ppttoword() Dim WordObject As Object '声明对象变量为Word对象 On Error Resume Next Set WordObject = CreateObject("Word.Application") '用set来创建Word对象，运行Word程序 WordObject.Visible = 0 '后台运行Word对象，任务栏上看不到word；如果为1或者True则可以看到word运行界面 WordObject.Documents.Add DocumentType:=wdNewBlankDocument '新建一个word文档 '以下为获取演示文稿中的内容，把数据传送给Word For Each sld In ActivePresentation.Slides '遍历活动窗口中打开的演示文稿中的幻灯片 For Each Shp In sld.Shapes '遍历当前幻灯片中的形状对象 Presentation.Application.ActiveWindow.Activate '切换当前演示文稿为当前激活窗口 Presentation.Application.ActiveWindow.UsedRange.Select '选中当前窗口的所有数据 Next Next ActiveWindow.Selection.SlideRange.Shapes.Range.Select '演示文稿数据全选 ActiveWindow.Selection.Copy '将选中的区域进行复制 WordObject.Application.Activate '将后台运行的Word激活为当前窗口 WordObject.ActiveWindow.Selection.Paste '将演示文稿中数据复制到剪贴板粘贴进word中 WordObject.Saved = True '将保存文档的Saved属性设置为True，这样后台运行的Word在保存文档时就不会弹出是否保存的对话框 WordObject.activedocument.SaveAs "C:\Documents and Settings\Administrator\桌面\导出数据3.doc" '调用saveas命令保存文档 WordObject.Application.Quit '退出并关闭程序文档 Set WordObject = Nothing '释放对象 End Sub 复制代码

ppttoword.ppt

63 KB, 下载次数: 37,