Sub OddQuoteSpacingCorrect() ' Paul Beverley - Version 02.09.21 ' Corrects the odd spacing on single quotation marks Set rng = ActiveDocument.Content With rng.Find .ClearFormatting .Replacement.ClearFormatting .Text = "'" .Wrap = wdFindStop .Replacement.Text = "" .Forward = True .MatchWildcards = False .MatchWholeWord = False .Execute End With Do While rng.Find.Found = True endNow = rng.End rng.Collapse wdCollapseStart rng.Delete Unit:=wdCharacter, Count:=1 rng.InsertAfter Text:="'" rng.Start = endNow + 2 rng.End = endNow + 2 rng.Find.Execute DoEvents DoEvents q = q + 1 If q Mod 100 = 0 Then rng.Select Loop With Selection.Find .ClearFormatting .Replacement.ClearFormatting .Text = "'" .Wrap = wdFindContinue .Forward = True .Replacement.Text = "'" .MatchWildcards = False .Execute Replace:=wdReplaceAll DoEvents End With Selection.HomeKey Unit:=wdStory Beep End Sub