Как найти на слайдах PPT строку неопределенной длины? - PullRequest
Новая
       5

Как найти на слайдах PPT строку неопределенной длины?

0 голосов
/ 26 февраля 2019

Мне нужно найти и заменить строку в PPT.Но длина строки будет варьироваться, и PPT не разрешает поиск по шаблону, как Word.Мне нужно найти каждую строку, которая начинается с <REF и заканчивается >.В Word я бы искал <REF*>.Как мне сделать это в PPT?Вот то, что у меня есть до сих пор, но это находит только некоторые строки.Пожалуйста, помогите! 

Function FindAndReplace(s As String, replacementText As String) As String
  Const LEFT As String = "<REF"
  Const RIGHT As String = ">"
  Dim temp As String
  temp = s
  Dim iPos As Integer
  iPos = 1
  Dim iStart As Integer, iEnd As Integer
  Do
    iPos = InStr(iPos, temp, LEFT)
    If iPos = 0 Then
      FindAndReplace = temp
      Exit Function
    End If

    iStart = iPos
    iEnd = InStr(iStart, temp, RIGHT)
    If iEnd = 0 Then
      FindAndReplace = temp
      Exit Function
    End If

    Dim targetText As String
    iEnd = iEnd + 1
    targetText = Mid(temp, iStart, iEnd - iStart)
    temp = Replace(temp, targetText, replacementText)
    iPos = iPos + Len(LEFT) + Len(targetText) + Len(RIGHT)
If iPos >= Len(temp) Then Exit Do
  Loop
  FindAndReplace = temp
End Function
...