Reverse Bold macro

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

FAQ

Mark Forums Read

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 »

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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 10:24 PM.