打开ppt按Alt+F11,插入--模块, 选中“工具”--“引用”--MicroSoft Word .. 复制代码: Sub Main() On Error Resume Next Dim temp As New Word.Document, tmpShap As Shape, tmpSlide As Slide For Each tmpSlide In ActivePresentation.Slides For Each tmpShape In tmpSlide.Shapes temp.R
打开PPT,按ALT+F11打开VBA编辑器,(部分电脑FN+ALT+F11)在左面的工程视图里点击右键,选择插入->模块,添加一个模块,名字都不用改. 然后点击顶部的"工具"菜单,选择引用,找"Microsoft Word X.0 Object Library"(其中X与你的OFFICE版本有关),钩上,点确定 将下列代码贴到刚建立的模块里,按F5(部分电脑FN+F5)即可 Sub Main() On Error Resume Next Dim temp A
using System; using System.Collections.Generic; using System.Linq; using System.Text; using OFFICECORE = Microsoft.Office.Core; using POWERPOINT = Microsoft.Office.Interop.PowerPoint; using System.Windows; using System.Collections; using System.Windo
function selectText(x) { if (document.selection) { var range = document.body.createTextRange();//ie range.moveToElementText(x); range.select(); } else if (window.getSelection) { var selection = window.getSelection(); var range = document.createRange(