如何搜索多个字符串并更改字体颜色

Question

我需要在幻灯片文本框中搜索多个字符串并更改段落的颜色。 例如，如果段落以“A”开头。 或“1”。 或“Z”。 -- 然后我想把段落加粗。

我可以设置单独的搜索---但是有没有办法同时搜索所有三个条件？

以下是个人搜索：

 For Each curShape In curSlide.Shapes
      If curShape.TextFrame.HasText Then
            Set curText = curShape.TextFrame.TextRange
              
              With curText
                For iPara = .Paragraphs.Count To 1 Step -1
                  If Left(.Paragraphs(iPara), 2) = "A. " Then
                      .Paragraphs(iPara).Font.Bold = True
                  End If

                For iPara = .Paragraphs.Count To 1 Step -1
                  If Left(.Paragraphs(iPara), 2) = "1. " Then
                      .Paragraphs(iPara).Font.Bold = True
                  End If

               Next
              End With

Answer 1

您不想为每个条件创建额外的代码，请使用Case语句

 For Each curShape In curSlide.Shapes
      If curShape.TextFrame.HasText Then
            Set curText = curShape.TextFrame.TextRange

              With curText
                For iPara = .Paragraphs.Count To 1 Step -1
                  Select Case Left(.Paragraphs(iPara), 2)
                      Case "A.", "1."   '# Add additional cases separated by commas
                           .Paragraphs(iPara).Font.Bold = True
                      Case Else
                          'do nothing
                  End Select
               Next
              End With