怎么做公司内网网站,珠海免费景点,开发运营一个app要多少钱,品牌网站建设切入点PDF转PPT 将PDF上传链接即可转换成PPT。 https://www.camscanner.com/pdftoppthttps://www.camscanner.com/pdftoppt移除水印
第一步#xff1a;打开视图-宏
第二步#xff1a;输入宏名#xff08;可以是人以文字…PDF转PPT 将PDF上传链接即可转换成PPT。 https://www.camscanner.com/pdftoppthttps://www.camscanner.com/pdftoppt移除水印
第一步打开视图-宏
第二步输入宏名可以是人以文字、字母或数字加字母但不能是纯数字
第三步点击创建
第四步复制以下代码
代码用ChatGPT生成告诉它你要实现的功能生成相应的宏代码宏代码是VB语言 以下是用于删除所有页面中包含特定文本内容的 PowerPoint VBA 宏代码
Sub DeleteTextContainingChinaUniversity()Dim oSlide As SlideDim oShape As ShapeDim searchText As StringsearchText 中国大学For Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesIf oShape.HasTextFrame ThenIf InStr(1, oShape.TextFrame.TextRange.Text, searchText, vbTextCompare) 0 ThenoShape.DeleteEnd IfEnd IfNext oShapeNext oSlide
End Sub如果您想要删除所有页中相同位置的文稿图片、文字等可以使用以下修改后的宏代码
Sub DeleteSamePositionShapesOnAllSlides()Dim oSlide As Slide, oShape As ShapeDim shapeToDelete As CollectionDim shape As ShapeOn Error Resume Next Collect shapes with the same position as the first selected shapeSet shapeToDelete New CollectionIf ActiveWindow.Selection.ShapeRange.Count 0 ThenDim firstShape As ShapeSet firstShape ActiveWindow.Selection.ShapeRange(1)For Each oSlide In ActivePresentation.SlidesFor Each oShape In oSlide.ShapesIf oShape.Top firstShape.Top And oShape.Left firstShape.Left _And oShape.Height firstShape.Height And oShape.Width firstShape.Width ThenshapeToDelete.Add oShapeEnd IfNext oShapeNext oSlideEnd If Delete collected shapesFor Each shape In shapeToDeleteshape.DeleteNext shape
End Sub第五步删除原来的“宏代码”
第六步将复制的文字粘贴到打开的“宏代码”空白处
第七步关闭或最小化“宏代码”文档
第八步在原文档中点击选中要删除的图片或其他对象
第九步点击宏-运行
至此所有相同位置的文搞对象都已经删除点击“保存”就可以了 这样你就可以把PDF变成自己的原创PPT做任意修改了。
