Jump to content
Fórum Script Brasil
  • 0

LOCALIZAR SLIDE POR TEXTO


fcwa
 Share

Question

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 to comment
Share on other sites

0 answers to this question

Recommended Posts

There have been no answers to this question yet

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share



  • Forum Statistics

    • Total Topics
      149.6k
    • Total Posts
      646.1k
×
×
  • Create New...