Reverse Bold macro

gmaxey · #1 02-25-2016, 05:54 PM

You have already had one suggesting which apparently you ignored. Paul's code seems fast to me. The only possible issue with it is that it pukes if your selection happens to include the final paragraph mark.

You can try:

Code:

Sub ReverseBoldII()
Dim oRng As Range
Application.ScreenUpdating = False
Set oRng = Selection.Characters.First
  Do
    oRng.Font.Bold = Not oRng.Font.Bold
    Set oRng = oRng.Characters.Last.Next
  Loop Until oRng.Start = Selection.Characters.Last.Start
  Application.ScreenUpdating = True
End Sub

macropod · #2 02-25-2016, 06:28 PM

Quote:

Originally Posted by gmaxey

Paul's code seems fast to me. The only possible issue with it is that it pukes if your selection happens to include the final paragraph mark.

Thanks for the heads-up. That could be remedied by replacing:
Set Rng = Selection.Characters.First
with:

Code:

With Selection
  Set Rng = .Characters.First
  If .End = ActiveDocument.Range.End Then
    .Characters.Last.Font.Bold = Not .Characters.Last.Font.Bold
    .End = .End - 1
  End If
End With

brent chadwick · #3 02-25-2016, 07:10 PM

Thanks Paul for the change in the code, works well. Greg, yours worked well also but it really messed up my bookmarks. Thanks to all for the help-

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