这个附件中的vba代码可以直接在f5键运行吗？

zzpsx

我不想点击按钮来运行代码，我想在代码编辑栏内按下f5键运行代码。
word转换成ppt.7z (23.15 KB, 下载次数: 8)

2024-9-30 14:57 上传

点击文件名下载附件

ykcbf1100

点击按钮和点击f5键应该没啥区别吧。

zzpsx

ykcbf1100 发表于 2024-9-30 15:18
点击按钮和点击f5键应该没啥区别吧。

不一定吧。
请问这个文档里包含一段还是多段代码？



Sub test()
  Dim r%, i%
  Dim arr()
  Dim pptApp As PowerPoint.Application
  Dim pptPre As PowerPoint.Presentation
  Application.ScreenUpdating = False
  Application.DisplayAlerts = False
  m = 0
  With ThisDocument
    For i = 1 To .Paragraphs.Count
      ss = .Paragraphs(i).Range.Text
      ss = Left(ss, Len(ss) - 1)
      If Len(ss) <> 0 Then
        m = m + 1
        ReDim Preserve arr(1 To m)
        arr(m) = Replace(.Paragraphs(i).Range.Text, Chr(13), "")
      End If
    Next
  End With
  If m = 0 Then
    MsgBox "Word文件中没有数据！"
    Exit Sub
  End If
  
  Set pptApp = New PowerPoint.Application
  pptApp.Visible = msoTrue
  Set pptPre = pptApp.Presentations.Add
  With pptPre
    For k = 1 To UBound(arr)
      With .Slides.Add(Index:=.Slides.Count + 1, Layout:=ppLayoutTitleOnly)
        ileft = (.CustomLayout.Width - 820) / 2
        itop = (.CustomLayout.Height - 450) / 2
        With .Shapes("Title 1")
          .Left = ileft
          .Top = itop
          .Width = 820
          .Height = 450
          With .TextFrame
            With .TextRange
              .Text = arr(k)
              With .Font
                .Name = "等线(正文)"
                .Size = 45
                .Bold = True
              End With
              .ParagraphFormat.Alignment = 1
            End With
          End With
        End With
      End With
    Next
    .SaveAs Filename = ThisDocument.Path & "\结果"
'    .Close
  End With
'  pptApp.Quit
'  Set pptPre = Nothing
'  Set pptApp = Nothing
  Application.ScreenUpdating = True
  MsgBox "幻片生成完毕！"
End Sub

ykcbf1100

zzpsx 发表于 2024-9-30 15:23
不一定吧。
请问这个文档里包含一段还是多段代码？

不管有几段代码，都是按一下而已。

zzpsx

ykcbf1100 发表于 2024-9-30 15:25
不管有几段代码，都是按一下而已。

点击源文档按钮可以，但是直接运行代码出错

lcluck2002

zzpsx 发表于 2024-9-30 15:30
点击源文档按钮可以，但是直接运行代码出错

原来有个坑在这里等着。

ykcbf1100

zzpsx 发表于 2024-9-30 15:30
点击源文档按钮可以，但是直接运行代码出错

应该是变量定义的问题，你去屏蔽掉那行代码再试试。

fenghuaxue

zzpsx 发表于 2024-9-30 15:30
点击源文档按钮可以，但是直接运行代码出错

应该是缺少引用

zzpsx

fenghuaxue 发表于 2024-9-30 17:00
应该是缺少引用

我也感觉是缺少引用，原文件用除了代码和按钮，还有一个引用

fenghuaxue

我运行成功了