Powerpoint VBA для поиска и изменения цвета / выделения ключевых слов в текстовом поле

Question

Я очень новичок в VB и изучаю этот метод, чтобы упростить повседневную ручную работу по выделению определенного текста в текстовых полях Powerpoint. Я намерен, чтобы VBA осуществила поиск по ключевым словам в текстовом поле, а затем изменила цвет этой строки, а также нескольких других строк. например найдите строку, содержащую слово «video», если она возвращает строку 7, содержащую это слово, я хочу изменить цвет строки 7 и, возможно, строк 3, 10 и 11 на красный.

Answer 1

Поскольку ваш вопрос является общим, мы можем дать только общий ответ.

Первое, что вам нужно знать о VBA в powerpoint, - это то, что вам нужен доступ к таким вещам, как объекты.Сначала вам нужно получить доступ к текущему слайду и форме вашего текстового поля. В этом примере давайте предположим, что текстовое поле, к которому вы хотите получить доступ, находится на первом слайде в первой форме:

Set oTextbox = ActivePresentation.Slides(1).Shapes(1)
With oTextbox
    text = .TextFrame.TextRange.Characters.Text 'To access the textbox text.
    If InStr(1,text,"some_text")
        .TextFrame.TextRange.Font.Color.RGB = [255 0 0] 'To change the color of a textbox.
    End If
End With

.TextFrame.TextRange.Characters.Text осуществляет доступ к тексту фигуры.

Чтобы найти данный текст в текстовом поле, вы можете использовать команду InStr, чтобы увидеть, находится ли нужный текст в вашем текстовом поле.

.TextFrame.TextRange.Font.Color.RGB доступ к цвету текста.

Это, по крайней мере, начало для вас.