批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可

Sub 批量删除第一页最后页()
Dim ChangedCount As Integer
Dim FileName As String, Mask As String
Dim FindCount As Long
Dim CurPresentation As Presentation
Dim Path As String, FindString As String, ReplaceString As String

Dim oSld As Slide
Dim oShp As Shape
Dim oTxtRng As TextRange
Dim oTmpRng As TextRange

Path = InputBox("请输入路径名称：", "参数输入(1/3)")

If Path = "" Then
MsgBox "每个参数均不能为空！", vbCritical, "出错"
Exit Sub
End If
ChangedCount = 0
FindCount = 0
Mask = "*.ppt"
If Right(Path, 1) <> "\" Then Path = Path & "\"
FileName = Dir(Path & Mask)
On Error Resume Next
Err.Clear
Do Until FileName = ""
DoEvents
Set CurPresentation = Presentations.Open(FileName:=Path & FileName, ReadOnly:=msoFalse, WithWindow:=msoFalse)

For Each oSld In CurPresentation.Slides

   CurPresentation.Slides(CurPresentation.Slides.Count).Delete
   CurPresentation.Slides(1).Delete


Next oSld
CurPresentation.Save
CurPresentation.Close
FileName = Dir
Loop
MsgBox "处理完毕！"
Close
End Sub

批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可相关推荐

删除空文件夹 linux,Linux中find批量删除空文件及空文件夹脚本
Linux中find批量删除空文件及空文件夹脚本 linux下批量删除空文件(大小等于0的文件)的方法代码如下复制代码 find . -name "" -type f -siz ...
VBS脚本统计红楼梦中贾宝玉出现的次数
VBS脚本统计红楼梦中贾宝玉出现的次数文件: 链接:https://pan.baidu.com/s/1T-XIbIHzMZiIX8IiSMcZdg 提取码:sti6 脚本代码: Dim fso, t ...
Python遍历子目录，利用python-pptx删除ppt文件最后一页
需求背景美女同事给了一堆PPT文件,问我能否把快速最后一页删除?先告诉她,当然没问题,在仔细看任务内容,确实所有PPT课件最后一页是广告内容,人工删除还挺费事的,幸好有利器安装必需组件 pip i ...
qtableview删除选中行_如何批量删除PPT备注+如何修改模板信息
今日更新主题修改文件明显作者信息? 如何批量删除备注? 修改文件属性信息? 为什么模板有去不掉的背景图片? 1.修改文件作者信息? 写这篇文章的原因是之前身边有朋友参加比赛的时候,引用了某网站 ...
查找空目录Linux,Linux中find批量删除空文件及空文件夹脚本
find . -name "*" -type f -size 0c | xargs -n 1 rm -f #linux下批量删除空文件(大小等于0的文件) 删除指定大小的文件,只要 ...
ppt转成wmv的VBS脚本
PPT转成wmv的代码在网上找了很久都没合适的,很多都要花钱.同事在网上找到的一段代码,是把PPT转图片的. 后面修改了一下,可以把PPT转wmv格式. Sub con() '将文件夹下所有ppt转换 ...
windows系统vbs脚本提取文件夹中的所有文件名
新建记事本改后缀 *.bat 复制下内容 @ECHO OFF tree /F > 文件树.txt 在要提取的文件夹目录下打开效果如下图
用VBS脚本处理替换文本中的字符
Set fso=Wscript.CreateObject("Scripting.FileSystemObject") set f=fso.opentextfile("C: ...
批量删除 Word、PPT 和 PDF 文件的第一页或某个特定页
概要:有时候我们需要批量删除 Word 文件的第 1 页,如果只有一个文件我们可以手工删除就可以了,但是如果文件比较多,那么我们还能手工删除吗?能不能有一种简单的方法去批量删除这些 Word 文件的第 ...

批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可

批量删除PPT第一页最后页——VBS脚本，在office宏中运行即可相关推荐

最新文章

热门文章