Bom dia a todos, tenho uma apresentação de 3800 slides tenho um sistema que você consegue localizar eles pelo número digitado! Porém, estou atualizando ele e colocando a função de localizar pelo texto e gostaria da ajuda de vocês! Existe por exemplo o "View.Goto" onde vou definir a INDEX do slide, então talvez vocês possam me ajudar no algoritmo em que localiza a palavra e retorna a posição do slide que ela se encontra. O seguinte código que peguei no fórum da microsoft, ele até localiza a palavra, é fácil entender ele, mas ele não vai para o slidee nem retorna nada, mas faz praticamente tudo que estou precisando. For Each sld In Application.ActivePresentation.Slides
For Each shp In sld.Shapes
If shp.HasTextFrame Then
Set txtRng = shp.TextFrame.TextRange
Set foundText = txtRng.Find(FindWhat:="CompanyX")
Do While Not (foundText Is Nothing)
With foundText
.Font.Bold = True
Set foundText = _
txtRng.Find(FindWhat:="CompanyX", _
After:=.Start + .Length - 1)
End With
Loop
End If
Next
NextNesse código, ele vai passar por todos os meus slides procurando pela palavra "Company" e formatando ela para NEGRITO, beleza, ele trabalha com a função "FIND" que localiza, mas resumindo o que preciso é: Localizar por um texto e ir até aquele slide! desde já, agradeço a todos.
