Changing Recorded Macro Selection/Clipboard Method to Range/FormattedText Method

macropod · #5 07-14-2022, 04:16 PM

You also don't need:
.Font.Size = 14
in the replacement expression.

Code:

Sub Tinkering()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Font.Bold = True
  .Font.Size = 14
  .Format = True
  .Forward = True
  .Wrap = wdFindContinue
  .Text = ""
  .Replacement.Text = "[[^&]]"
  .Execute Replace:=wdReplaceAll
 End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Range method Find can't find dates	jmcsa3	Excel Programming	1	05-02-2020 06:56 AM
Title case macro gets a "type mismatch" error at the Instr method	marceepoo	Word VBA	1	03-05-2020 09:41 PM
Number Format Changing in DocVariable method	afshin	Word VBA	3	08-06-2017 03:21 PM
Number Format Changing in DocVariable method	afshin	Word	0	08-02-2017 12:26 AM
Best method(s) for entering multiple notes re diverse range of topics	WeThotUWasAToad	OneNote	0	05-15-2016 02:17 PM