PowerPoint幻灯片中需要脱敏,怎样把数字涉及的所有数字0

1.ppt中需要脱敏,如何把数字涉及的所有数字0

PPT有点麻烦，不象word之类的支持通配符替换，那只能用宏了，可以按Alt+F11，右键点左边的演示文稿，插入模块，贴入下面的代码Sub test()Dim a As SlideDim s As ShapeSet rg = CreateObject("vbscript.regexp")rg.Pattern = "\d+"For Each a In ActivePresentation.SlidesFor Each s In a.ShapesIf s.HasTextFrame ThenWith s.TextFrame.TextRange.Text = rg.Replace(.TextRange.Text, "*")End WithEnd IfNextNextEnd Sub点工具栏的三角符号运行就行了，之后你PPT中的所有数字都会被替换为*号。