Personal VBA macro that replace specific words in PowerPoint.

Ans.vba

Sub Ans()
    For Each Slide In ActivePresentation.Slides
        For Each Shape In Slide.Shapes
            If Shape.HasTextFrame Then
                Set A = Shape.TextFrame.TextRange.Find(FindWhat:="Answer: ")
                If Not A Is Nothing Then
                    Shape.TextFrame.TextRange.Text = "Answer: ___"
                End If
            End If

            If Shape.HasTextFrame Then
                Set E = Shape.TextFrame.TextRange.Find(FindWhat:="Explanation: ")
                If Not E Is Nothing Then
                    Shape.TextFrame.TextRange.Text = "Explanation..."
                End If
            End If
        Next
    Next
End Sub

Sub AnsZh()
                Dim APlaceholder As String
                APlaceholder = ChrW(31572) & ChrW(26696) & ChrW(65306)

                Dim EPlaceholder As String
                EPlaceholder = ChrW(38988) & ChrW(35299) & ChrW(65306)

    For Each Slide In ActivePresentation.Slides
        For Each Shape In Slide.Shapes
            If Shape.HasTextFrame Then
                Set A = Shape.TextFrame.TextRange.Find(FindWhat:="Answer: ")
                If Not A Is Nothing Then
                    Shape.TextFrame.TextRange.Text = "Answer: ___"
                End If
            End If

            If Shape.HasTextFrame Then
                Set E = Shape.TextFrame.TextRange.Find(FindWhat:="Explanation: ")
                If Not E Is Nothing Then
                    Shape.TextFrame.TextRange.Text = "Explanation..."
                End If
            End If

            If Shape.HasTextFrame Then
                Set A = Shape.TextFrame.TextRange.Find(FindWhat:=APlaceholder)
                If Not A Is Nothing Then
                    Shape.TextFrame.TextRange.Text = APlaceholder & "_"
                End If
            End If

            If Shape.HasTextFrame Then
                Set E = Shape.TextFrame.TextRange.Find(FindWhat:=EPlaceholder)
                If Not E Is Nothing Then
                    Shape.TextFrame.TextRange.Text = EPlaceholder & "......"
                End If
            End If
        Next
    Next
End Sub