VBA help to tidy up macro

		Microsoft Office Forums > Microsoft Word > Word VBA
VBA help to tidy up macro

FAQ

Thread Tools

Display Modes

01-29-2021, 10:05 AM

gmaxey

Windows 10 VBA help to tidy up macro

Office 2016

Expert

Join Date: May 2010

Location: Brasstown, NC

Posts: 1,636

You only need to find the bold ones, not all of them and you only need to replace the formatting, not the underlying text:

Code:

Sub ScratchMacro()
Dim oRng As Range
  Set oRng = ActiveDocument.Range
  With oRng.Find
    .Text = "[" & Chr(13) & ".;,]"
    .MatchWildcards = True
    .Font.Bold = True
    .Replacement.Font.Bold = False
    .Execute Replace:=wdReplaceAll
  End With
lbl_Exit:
  Exit Sub
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Footnote extraction macro [Why is this macro so slow? / anyway to make it faster?]	Le_Blanc	Word VBA	10	03-22-2021 11:38 AM
Spell check macro within macro button field doesn't work in one document	samuelle	Word VBA	0	07-20-2016 02:27 AM
Macro Question: Need help making a macro to highlight the first word in every sentence	LadyAna	Word	1	12-06-2014 10:39 PM
Macro Needed to bold specific lines and Macro to turn into CSV	anewteacher	Word VBA	1	05-28-2014 03:59 PM
custom icon, undo/redo for macro, permanent macro	Rapier	Excel	0	08-05-2013 06:30 AM