Change the text font size between "()"

[zinah]

Hi,

I have a shape that contains text, what I need is to change the font size of any text between "()". How can I do that?

I was able to write below macro and it worked, however, the characters might change in future and I need to update below macro to cover this:

Sub Change_Font_Size()

    Set aSht = ActiveSheet
    Set p1sht = Sheets("Page1")
    Set p2Sht = Sheets("Page2")


    Dim shp As Shape
    
  
With p1sht.Shapes("Slide_Title")
    .TextFrame2.WordWrap = msoFalse
    .TextFrame2.TextRange.Font.Bold = msoTrue
    .TextFrame2.TextRange.Characters(1, 45).Font.Size = 22
    .TextFrame2.TextRange.Characters(46, 18).Font.Size = 16
    
End With


With p2Sht.Shapes("Slide_Title")
    .TextFrame2.WordWrap = msoFalse
    .TextFrame2.TextRange.Font.Bold = msoTrue
    .TextFrame2.TextRange.Characters(1, 33).Font.Size = 22
    .TextFrame2.TextRange.Characters(34, 41).Font.Size = 16
    
End With




End Sub

 

[zinah]

Can anyone help please?

 

[steve the fish]

See if this does the first one

With p1sht.Shapes("Slide_Title")
    .TextFrame2.WordWrap = msoFalse
    .TextFrame2.TextRange.Font.Bold = msoTrue
    myText = .TextFrame2.TextRange.Text
    myStart = InStr(myText, "(")
    myEnd = InStr(myText, ")")
    If myStart > 0 And myEnd > 0 Then
        For i = 1 To Len(myText)
            If i < myStart Or i > myEnd Then
                .TextFrame2.TextRange.Characters(i).Font.Size = 22
            Else
                .TextFrame2.TextRange.Characters(i).Font.Size = 16
            End If
        Next
    Else
       .TextFrame2.TextRange.Characters(1, Len(myText)).Font.Size = 22
    End If
End With

 

[zinah]

Thank you so much Steve! It worked