Format text between brackets with text before and after

I can scrub the original file and upload it in case it might help a bit.

Something like this should do it.

Please Login or Register  to view this content.

a couple questions, with this i would need to put it every possible entry it could be right? There is an infinite amount of possibilities, that's why i was looking at something where it was just looking at any information between the brackets. I added a test file that shows part of a report with just some of the possibilities. Thank you!

Ok, I misunderstood your need.

I can understand where to start and end with these two examples: "2x [.@**]", "[.@**]"
But how would you mark this one: "3x [S[.)!)[A[B[C] EQUALLY SPACED" ?

"3x [S[.)!)[A[B[C] EQUALLY SPACED" or "3x [S[.)!)[A[B[C] EQUALLY SPACED"

Is the pattern strictly open bracket, some characters, close bracket? Can there be more than one such pattern in a string?

It would never be more than one of those in a cell block. And it would always be open bracket till the end of the feature where it closes it out. Would searching for open bracket, counting the number of characters between it and a closed bracket, and then applying the font settings from bracket open to bracket close work better/easier?

Originally Posted by TnTinMN

Ok, I misunderstood your need.

I can understand where to start and end with these two examples: "2x [.@**]", "[.@**]"
But how would you mark this one: "3x [S[.)!)[A[B[C] EQUALLY SPACED" ?

"3x [S[.)!)[A[B[C] EQUALLY SPACED" or "3x [S[.)!)[A[B[C] EQUALLY SPACED"

Is the pattern strictly open bracket, some characters, close bracket? Can there be more than one such pattern in a string?

Originally Posted by jafvortex93

It would never be more than one of those in a cell block. And it would always be open bracket till the end of the feature where it closes it out. Would searching for open bracket, counting the number of characters between it and a closed bracket, and then applying the font settings from bracket open to bracket close work better/easier?

It is definitely easier.

Please Login or Register  to view this content.

That was amazing!!!! Thank you VERY much! The only thing i changed was that i added the font size (not sure if i did in the most practical/savvy way but...eh), just wanted to throw it on here for future visitors. Again, thank you.

Sub ChangeFont()
Const fontName As String = "CybermetricsGDT"

Dim ws As Excel.Worksheet
Set ws = ActiveSheet ' *** change this to your worksheet

Dim colRange As Excel.Range
Set colRange = Application.Intersect(ws.Columns("D"), ws.UsedRange)

Dim cell As Excel.Range
Dim tmp As String
Dim posOpenBracket As Integer, posCloseBracket As Integer
For Each cell In colRange
tmp = cell.Value
posOpenBracket = InStr(1, tmp, "[", vbTextCompare)
If posOpenBracket > 0 Then
posCloseBracket = InStrRev(tmp, "]", , vbTextCompare)
If posCloseBracket > 0 And posCloseBracket > posOpenBracket Then
cell.Characters(posOpenBracket, (posCloseBracket - posOpenBracket) + 1).Font.Name = fontName
cell.Characters(posOpenBracket, (posCloseBracket - posOpenBracket) + 1).Font.Size = 12
End If
End If
Next cell
End Sub