日期元素 word vba 之间的非中断空格

Question

我正在努力确保日期保持一致并且不会跨界。

替换文本应该有两个不间断的空格，一个在 \1 April 之间，一个在 April \2 之间。

Sub SarahDates()
‘ Supposed to put a non breaking space between day, month and year.
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = “([0-9]) April ([0-9])”
        .Replacement.Text = “\1 April \2”
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

.Replacement.Text 中的正确文本是什么，以便在宏中显示不间断空格。

Answer 1

以下宏将一次性重新格式化所有日期。

Sub SarahDates()
Application.ScreenUpdating = False
With ActiveDocument.Range.Find
  .ClearFormatting
  .Replacement.ClearFormatting
  .Text = "(<[0-9]{1,2}) ([JFMASOND][abceghilmnoprstuvy]{2,8}) ([12][0-9]{3}>)"
  .Replacement.Text = "\1^s\2^s\3"
  .Forward = True
  .Format = False
  .Wrap = wdFindContinue
  .MatchWildcards = True
  .Execute Replace:=wdReplaceAll
End With
Application.ScreenUpdating = True
End Sub