Pass a range to another macro to bold before em dash

jeffreybrown · #3 09-12-2018, 04:14 PM

Thanks Paul. I added the loop and now it works fine.

Code:

Sub Bold_Terms(Rng As Range)
With Rng
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^+"
    .Replacement.Text = ""
    .Forward = True
    .Format = False
    .MatchWildcards = False
    .Wrap = wdFindStop
    .Execute
  End With
  Do While .Find.Found
    With .Duplicate
      .Start = .Paragraphs.First.Range.Start
      .End = .End - 1
      .Font.Bold = True
    End With
    .Collapse wdCollapseEnd
    .Find.Execute
    Loop
End With
End Sub

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
Two problems: Applying bold affects other tables and canvas doesn't appear at specified range	slaycock	Word VBA	6	12-08-2016 02:28 AM
Bold a sentence containing an em dash	jeffreybrown	Word	8	09-08-2016 05:47 PM
Reverse Bold macro	brent chadwick	Word VBA	15	02-26-2016 05:25 PM
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
Need Word to change -- (dash,dash) into one long dash.	Bobosmite	Word	2	05-06-2011 04:21 AM