0

我是 powerpoint 中的编码、VBA 和 VBA 的新手，所以这可能是基本的，但我似乎无法绕过它。我正在尝试从 powerpoint 文件中提取一些文本并将其单独存储在一个新文件中。我在网上找到了一个代码，可以帮助我将所需的文本输出到记事本文件中。但是，我需要它作为一个 excel 文件。每次在线搜索都会引导我使用基于 excel 的 VBA，但我需要从 Powerpoint 导出到 Excel（并且可能在其中执行基本格式设置，例如将文本转换为数字或将列设为粗体）。以下是我整个代码的相关/导出部分。请看一下并帮助谢谢。

PS：我计划将代码编译为一些技术专业知识有限的人的插件，所以如果可能的话，我会要求一个简单/直接的解决方案或适用于任何 PC 或版本的 powerpoint/excel 的东西。我读过让你的代码依赖于引用可能需要运行代码的人在他们成功运行之前进行引用等。

Dim strFilename As String
Dim intFileNum As Integer
Dim PathSep As String

....从活动演示文稿中提取的代码....

On Error GoTo ErrorHandler
intFileNum = FreeFile

' PC-Centricity Alert!
' This assumes that the file has a .PPT extension and strips it off to make the text file name.
strFilename = ActivePresentation.Path _
    & PathSep _
    & Mid$(ActivePresentation.Name, 1, Len(ActivePresentation.Name) - 4) _
    & "_Titles.TXT"

Open strFilename For Output As intFileNum
Print #intFileNum, strTitles

NormalExit:
Close intFileNum
Exit Sub

ErrorHandler:
MsgBox Err.Description
Resume NormalExit

End Sub
4

0 回答 0