Pesquisar na Comunidade

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.