如何进行ppt数据脱敏

Question

ppt中需要脱敏，如何把数字涉及的所有数字0-9批量替换为*？

Answer 1

参考GPT和自己的思路：

您好，针对如何进行PPT数据脱敏的问题，我可以给您以下几种操作方法：

1. 使用PPT软件自带的查找和替换功能，将所有数字0-9替换为*，方便快捷。

2. 使用VBA宏来批量替换，具体操作为：打开PPT软件->按下“Alt+F11”打开VBA编辑器->插入一个新的模块->复制以下代码->运行宏。代码如下：

Sub ReplaceDigits()

Dim sld As Slide
Dim shp As Shape
Dim txtrng As TextRange
Dim ptr As Long

For Each sld In ActivePresentation.Slides
    For Each shp In sld.Shapes
        If shp.HasTextFrame Then
            Set txtrng = shp.TextFrame.TextRange
            
            For ptr = 1 To Len(txtrng.Text)
                If IsNumeric(Mid(txtrng.Text, ptr, 1)) Then
                    txtrng.Characters(ptr, 1).Text = "*"
                End If
            Next ptr
        End If
    Next shp
Next sld

MsgBox "替换完成！"

End Sub

1. 使用第三方软件进行脱敏操作，如使用Notepad++的正则替换功能，设置正则表达式为“\d”，替换为“*”，可以一次替换多个PPT文件。

以上是三种可行的PPT数据脱敏方法，您可以根据自己的情况选择适合的方法进行操作。希望我的回答对您有所帮助。