В Word 2010 VBA используйте команду find и replace для вставки пробелов до и после символа

Question

У меня есть документ Word 2010 с символами плюс плюс минус, заключенными в цифры.Я хотел бы отформатировать символы плюс минус так, чтобы до и после каждого символа плюс минус оставалось пустое место.

Мой код может найти символ.К сожалению, ReplaceString оставляет белый квадрат вместо символа плюс минус.

Dim ReplaceString As String
ReplaceString = " " & ChrW(-3919) & " "

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Highlight = True
With Selection.Find
    .Text = ChrW(-3919) 'plus/minus symbol
    .Forward = True
    .Format = True
    .MatchCase = False
    .Replacement.Text = ReplaceString
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Replacement.ClearFormatting
    .Wrap = wdFindContinue
End With
Selection.Find.Execute Replace:=wdReplaceAll

Answer 1

Попробуйте:

With ActiveDocument.Range.Find
  .ClearFormatting
  .Text = ChrW(-3919) 'plus/minus symbol
  With .Replacement
    .ClearFormatting
    .Highlight = True
    .Text = " ^& "
  End With
  .Format = True
  .Forward = True
  .Wrap = wdFindContinue
  .MatchCase = False
  .MatchWholeWord = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  .Execute Replace:=wdReplaceAll
End With