Reverse Bold macro

02-25-2016, 06:28 PM

macropod

Windows 7 64bit Reverse Bold macro

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,521

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

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« 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 04:22 AM.