Problema no comando VBA para Power point

Question

Foi criado pelo copilot script VBA para PPT, porém dá erro de compilação em vários comandos. Vou deixar a seguir e marcar o local em vermelho do erro. Estou com a versão 2409. Quero um VBA que remova todos os realces de texto em uma apresentação automaticamente.

VBA1

*****

Sub RemoverRealceTexto()

Dim slideAtual As slide 

Dim shapeAtual As shape 

Dim textRangeAtual As TextRange 

Dim charAtual As TextRange 

For Each slideAtual In ActivePresentation.Slides 

    For Each shapeAtual In slideAtual.Shapes 

        If shapeAtual.HasTextFrame Then 

            If shapeAtual.TextFrame.HasText Then 

                Set textRangeAtual = shapeAtual.TextFrame.TextRange 

                For i = 1 To textRangeAtual.Characters.Count 

                    Set charAtual = textRangeAtual.Characters(i, 1) 

                    charAtual.Font.Color.RGB = charAtual.Font.Color.RGB ' Mantém a cor original da fonte 

                    charAtual.**HighlightColorIndex** = wdNoHighlight ' Remove o realce do texto 

                Next i 

            End If 

        End If 

    Next shapeAtual 

Next slideAtual 

End Sub

****

VBA 2

Sub RemoverRealceTexto()

Dim slideAtual As slide 

Dim shapeAtual As shape 

Dim textRangeAtual As TextRange 

Dim charAtual As TextRange 

For Each slideAtual In ActivePresentation.Slides 

    For Each shapeAtual In slideAtual.Shapes 

        If shapeAtual.HasTextFrame Then 

            If shapeAtual.TextFrame.HasText Then 

                Set textRangeAtual = shapeAtual.TextFrame.TextRange 

                For i = 1 To textRangeAtual.Characters.Count 

                    Set charAtual = textRangeAtual.Characters(i, 1) 

                    charAtual.Font.Color.RGB = charAtual.Font.Color.RGB ' Mantém a cor original da fonte 

                    charAtual.**Font.Fill.**Transparency = 1 ' Define o preenchimento de fundo como transparente 

                Next i 

            End If 

        End If 

    Next shapeAtual 

Next slideAtual 

End Sub

Answer 1

Esta resposta foi traduzida automaticamente. Como resultado, pode haver erros gramaticais ou palavras estranhas.

Olá, Surya Bueno.

Bem-vindo à comunidade da Microsoft.

Entendemos o problema que você está tendo. Sua pergunta está relacionada ao VBA e é mais apropriada para ser postada no Stack Overflow (somente em inglês).

Por favor, poste perguntas de programação VBA noStack Overflow usando a tag vba e outras tags relevantes.

Observe que o Stack Overflow tem algumas diretrizes, como exigir um título descritivo, uma declaração de problema completa e concisa e detalhes suficientes para reproduzir seu problema. Solicitações de recursos ou perguntas excessivamente amplas serão consideradas fora do tópico.

Isenção de responsabilidade: a Microsoft não fornece nenhuma garantia e/ou garantia, implícita ou não, e não é responsável por qualquer informação ou suporte relacionado à tecnologia que você obtenha de sites vinculados de terceiros.

Atenciosamente

Hannah.Z- MSFT |Especialista em suporte da comunidade Microsoft