Powerpoint VBA在文本框中搜索和更改颜色/突出显示关键字

Question

我对VB还是很陌生，并且正在探索这种方法来简化在Powerpoint文本框中突出显示某些文本的日常手动工作过程。 我的意图是让VBA在文本框中搜索关键字，然后更改此行以及其他几行的颜色。例如搜索包含单词“ video”的行，如果它返回第7行包含该单词，则我想将第7行的颜色更改，也许将第3、10和11行的颜色更改为红色。

Answer 1

由于您的问题是笼统的，我们只能给出笼统的答复。

您需要在Powerpoint中了解有关VBA的第一件事是您需要访问诸如对象之类的东西。首先，您需要访问文本框所在的当前“幻灯片和形状”。在此示例中，假设您要访问的文本框在第一张幻灯片中，并且处于第一个形状：

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访问文本的颜色。

这至少是您的起点。