Ir para conteúdo
Fórum Script Brasil
  • 0

LOCALIZAR SLIDE POR TEXTO


fcwa

Pergunta

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
Next

Nesse 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.

Link para o comentário
Compartilhar em outros sites

0 respostass a esta questão

Posts Recomendados

Até agora não há respostas para essa pergunta

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...