ppt使用vba

1.在PPT中插入水印
2. 水印中的标号是有顺序的，egC001,C002,C003
3. 批量导出pdf

Sub 插入()
Dim filename As String
Dim file_add As String
Dim file_suffix As String
Dim index_name As Stringfile_path = "C:\Users\mikowoo\Desktop\001\result\"
file_suffix = ".pdf"
For i = 1 To 111If i >= 1 And i <= 9 Thenindex_name = "C00" & iActivePresentation.Designs(1).SlideMaster.Shapes("文本框 2").TextFrame.TextRange.Text = index_nameActivePresentation.Designs(1).SlideMaster.Shapes("文本框 4").TextFrame.TextRange.Text = index_namefilename = file_add & "销售顾问的一天" + index_name + file_suffixActivePresentation.SaveAs filename, ppSaveAsPDF'Debug.Print filenameElseIf i >= 10 And i <= 99 Thenindex_name = "C0" & iActivePresentation.Designs(1).SlideMaster.Shapes("文本框 2").TextFrame.TextRange.Text = index_nameActivePresentation.Designs(1).SlideMaster.Shapes("文本框 4").TextFrame.TextRange.Text = index_namefilename = file_add & "销售顾问的一天" + index_name + file_suffixActivePresentation.SaveAs filename, ppSaveAsPDF'Debug.Print filenameElseindex_name = "C" & iActivePresentation.Designs(1).SlideMaster.Shapes("文本框 2").TextFrame.TextRange.Text = index_nameActivePresentation.Designs(1).SlideMaster.Shapes("文本框 4").TextFrame.TextRange.Text = index_namefilename = file_add & "销售顾问的一天" + index_name + file_suffixActivePresentation.SaveAs filename, ppSaveAsPDF'Debug.Print filenameEnd IfEnd If
Next i
End Sub

本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！