Reverse Bold macro

		Microsoft Office Forums > Microsoft Word > Word VBA
Reverse Bold macro

FAQ

Thread Tools

Display Modes

02-24-2016, 01:21 PM

brent chadwick brent chadwick is offline

Windows 8

Office 2013

Advanced Beginner

Join Date: Mar 2015

Posts: 86

brent chadwick is on a distinguished road

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

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to find and replace headings in bold and underline	redzan	Word VBA	4	02-13-2016 12:24 PM
Creating macro in 2007 to bold within quotes on the fly	marymaryt	Word VBA	5	06-01-2015 06:55 AM
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
Macro to reverse a test string	Jennifer Murphy	Word VBA	5	01-16-2014 03:19 PM
Format Bold in one line makes all lines bold	Nitte	Word	2	02-07-2013 12:34 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 09:40 PM.