Autocorrect numbers followed by any string to have non-breaking space

macropod · #1 03-08-2017, 03:34 PM

You could use a fairly simple Find/Replace macro assigned to a keyboard shortcut. For example:

Code:

Sub Demo()
Application.ScreenUpdating = False
With Selection.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "([0-9]) "
    .Replacement.Text = "\1^s"
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Simply select the range to process - if you don't select anything, everything from the insertion point to the end of the document will be processed.

Making an autocorrect option for this would probably cause more problems than it's worth - even you most likely don't want a non-breaking space to replace the ordinary space after every number or even most numbers in a given document.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Autocorrect numbers followed by C to °C?	seanspotatobusiness	Word	8	07-09-2019 02:16 PM
autocorrect double space to single space	frankjake	Word	8	09-21-2018 05:44 PM
Non-breaking space and similar characters	gpr	Word	2	07-10-2015 06:44 AM
macro to find a character and insert space so autocorrect will expand	redzan	Word VBA	3	05-22-2014 04:22 PM
How to extract only numbers from a STRING?	Learner7	Excel	3	07-02-2013 06:25 AM