word转ppt代码需要优化

zzpsx

下列代码能把word按段落生成ppt，但是ppt中的文本溢出了，希望能改进，使得文本不溢出ppt页面。

妈妈的汤圆.7z (18.53 KB, 下载次数: 4)

2024-9-30 17:30 上传

点击文件名下载附件

Sub WordToPPT()
    Dim wordApp As word.Application
    Dim wordDoc As word.Document
    Dim pptApp As PowerPoint.Application
    Dim pptPres As PowerPoint.Presentation
    Dim para As word.Paragraph
    Dim slide As PowerPoint.slide
    Dim i As Long

    '获取当前的Word应用程序和文档
    Set wordApp = Application
    Set wordDoc = wordApp.ActiveDocument

    '创建新的PowerPoint应用程序和演示文稿
    Set pptApp = New PowerPoint.Application
    pptApp.Visible = True
    Set pptPres = pptApp.Presentations.Add

    i = 1
    '遍历Word文档中的每个段落
    For Each para In wordDoc.Paragraphs
        '在PPT中添加新幻灯片
        Set slide = pptPres.Slides.Add(i, ppLayoutText)
        '在幻灯片的标题占位符中添加段落文本
        slide.Shapes.Title.TextFrame.textRange.text = para.Range.text
        i = i + 1
    Next para

    '释放对象
    Set para = Nothing
    Set slide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
    Set wordDoc = Nothing
    Set wordApp = Nothing
End Sub

lss001

………………

znppnz

不如用Eduediter这个软件，可以直接打开docx文件，转成类PPT就是切换方案。特别是试卷，箐优学科网下的标准的试卷，答案和解析可直接隐藏，变成学生版。播放还有默认动画。比word转ppt方便简便，效果还强N倍