Macro to run a few text formatting changes

		Microsoft Office Forums > Microsoft Word > Word VBA
Macro to run a few text formatting changes

FAQ

Thread Tools

Display Modes

05-14-2021, 09:28 PM

macropod

Windows 10 Macro to run a few text formatting changes

Office 2016

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,521

Quote:

Originally Posted by Badger75

this seems to be beyond ... the limits of the macro recorder.

Not at all.

That said, try:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .Text = "[^13^l]{1,}"
    .Replacement.Text = " "
    .Execute Replace:=wdReplaceAll
  End With
  .Font.AllCaps = True
  .CheckSpelling
End With
Application.ScreenUpdating = True
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to maintain formatting OR to delete all text (excluding comments)	jimmy12	Word VBA	6	05-15-2021 02:48 AM
Replacing a comment with underline or other formatting (or adding that formatting to commented text)	paulkaye	Word	4	05-16-2016 05:38 AM
The Logic Behind Apply Formatting of Surrounding Text in Reveal Formatting Pane	Instructor Mark	Word	4	04-06-2016 01:32 PM
Use of macro disables paste text with source formatting?	Dwellengers	Word VBA	1	09-09-2015 06:24 AM
Macro for text formatting	georgekung84	Word VBA	15	08-08-2012 06:28 PM