Deleting only bold text in a cell

[FrankB]

Is there a way to automate that? My cells have bold and normal font, and I would like to delete all the bold text.

Thanks,

Frank

 

[onlyadrafter]

Hello,

Does this code suit your needs?

Sub remove_bold()
Set c = Selection
For Each cell In c
    MY_ROW = cell.Row
    MY_COLUMN = cell.Column
    NEW_TEXT = ""
    For MY_CHAR = 1 To Len(ActiveCell)
    NEW_CHAR = Mid(ActiveCell, MY_CHAR, 1)
    With ActiveCell.Characters(Start:=MY_CHAR, Length:=1).Font
        If .FontStyle <> "Bold" Then
            NEW_TEXT = NEW_TEXT + NEW_CHAR
        End If
    End With
    Next MY_CHAR
    Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Value = NEW_TEXT
Next cell
End Sub

There is probably a better way, but it seems to work.

You need to select the cells first then RUN the macro.

Just noticed this will not work if all the text in the cell in BOLD, but this code will

Sub remove_bold()
Set c = Selection
For Each cell In c
    MY_ROW = cell.Row
    MY_COLUMN = cell.Column
    If Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Bold" Then
        Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Regular"
    End If
    NEW_TEXT = ""
    For MY_CHAR = 1 To Len(ActiveCell)
    NEW_CHAR = Mid(ActiveCell, MY_CHAR, 1)
    With ActiveCell.Characters(Start:=MY_CHAR, Length:=1).Font
        If .FontStyle <> "Bold" Then
            NEW_TEXT = NEW_TEXT + NEW_CHAR
        End If
    End With
    Next MY_CHAR
    Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Value = NEW_TEXT
Next cell
End Sub

Is this OK?

 

[Chitosunday]

Select the cells, columns or row you want to look then run this

Sub delbold()
For Each c In Selection
If c.Font.FontStyle = "Bold" Then c.Clear
Next c

End Sub

 

[onlyadrafter]

Hello,

Having read Chitosunday' reply, which clears cells if it is bold. I thought I'd better explain my reply.

My macro will remove BOLD text within a cell that has both REGULAR and BOLD text.

i.e.

Delete this BOLD TEXT

will change to

Delete this

I don't know which you require.



and Delete THIS BOLD Text

will change to

Delete Text

 

[FrankB]

I want to delete bold text within a cell, not the whole text. I can't get your code to work though - I just copied it into a macro, and run it, but there are no changes. Do I need to set up something differently?

Thanks,

Frank

 

[onlyadrafter]

Hello,

For this to work you need to select the cells you wish to change and then run the macro. Is this what you did?

 

[FrankB]

Yep.

 

[FrankB]

Ok, here is some new info: It does work in the Personal spreadsheet, but not anywhere else. Even if I copy it into another workbook, it doesn't work there. Any ideas?

Thanks,

Frank

 

[FrankB]

Also, if the text starts bold, it does remove that, but puts everything else in bold, too.

Frank

 

[onlyadrafter]

Hello,

Have changed the code, it seems to work for me

Sub remove_bold()
Set c = Selection
For Each cell In c
    MY_ROW = cell.Row
    MY_COLUMN = cell.Column
    If Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Bold" Then
        Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Clear
    End If
    NEW_TEXT = ""
    For MY_CHAR = 1 To Len(Range("A1").Offset(MY_ROW - 1, MY_COLUMN - 1))
    NEW_CHAR = Mid(Range("A1").Offset(MY_ROW - 1, MY_COLUMN - 1), MY_CHAR, 1)
    With Range("A1").Offset(MY_ROW - 1, MY_COLUMN - 1).Characters(Start:=MY_CHAR, Length:=1).Font
        If .FontStyle <> "Bold" Then
            NEW_TEXT = NEW_TEXT + NEW_CHAR
        End If
    End With
    Next MY_CHAR
    Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Value = NEW_TEXT
    Range("a1").Offset(MY_ROW - 1, MY_COLUMN - 1).Font.FontStyle = "Regular"
    NEW_TEXT = ""
Next cell
End Sub

Is this working OK for you?