Microsoft Office Forums - View Single Post - [Solved] Reverse Bold macro

Thread: [Solved] Reverse Bold macro

View Single Post

Old

02-24-2016, 01:21 PM

brent chadwick brent chadwick is offline

brent chadwick is offline

brent chadwick uses Windows 8

Windows 8

brent chadwick uses Office 2013

Office 2013

Advanced Beginner

The original poster

Join Date: Mar 2015

Posts: 86

brent chadwick is on a distinguished road

Default

Reverse Bold macro

Hey guys, I have a lot text that needs to have bold reversed. I found this macro somewhere, it works but is real slow. Any suggestions to rewrite and make faster, or is this the best it gets? Thanks

Code:

Sub ReverseBold()
    Dim c
    For Each c In Selection.Characters
        c.Font.Bold = Not c.Font.Bold
    Next c
End Sub

Reply With Quote