以下为宏代码:
Attribute VB_Name = "模块1"Sub toWord()On Error Resume NextDim a As New ApplicationDim sl As PowerPoint.slideDim sh As PowerPoint.shapeDim c As PowerPoint.ViewDim i As Integeri = 1Dim str As Stringstr = ""Set c = Application.ActiveWindow.ViewFor Each sl In PowerPoint.ActivePresentation.Slidesc.GotoSlide i str = str + "page" + VBA.str(i) + vbLf For Each sh In sl.Shapes sh.Select str = str + a.ActiveWindow.Selection.TextRange.Text + vbLf Next shi = i + 1str = st……