Word 2013 может найти, но не может заменить

Я хочу заменить все двойные пробелы ( ) в одном из документов Word на один пробел ( ). К моему крайнему удивлению, моя копия Microsoft Word 2013 Home может найти двойные пробелы, но не может заменить их, потому что утверждает, что в моем документе ничего не было найдено.

Если я нажму Ctrl+ F, то появится левая панель, и когда я войду в нее, я увижу, что у меня более 350 случаев двойного пробела в моем конкретном документе. Когда, наоборот, я нажимаю Ctrl+ Hи окно « Поиск и замена » в appera, затем, когда я вхожу в него и затем нажимаю Find Next, появляется сообщение, информирующее меня, что в моем документе ничего не найдено.

Чтобы сделать вещи еще более смешанными, если я останусь в диалоговом окне « Поиск и замена », но переключусь Replaceна Findвкладку, введите двойной пробел и нажмите Find Nextтам, а затем - снова - Word автоматически найдет все 350+ случаев двойной пробел в моем документе.

Что мне не хватает? Как Word может просто найти что-то, но не может найти и заменить то же самое другим? Это какая-то странная книга в Word или что-то действительно странное и странное в форматировании моего (довольно сложного и большого) документа?

Я попытался перезапустить Word и мой компьютер. Я попытался сохранить этот конкретный документ в новый файл и открыть его обратно из этого нового файла. И - конечно же - я дважды проверил, что не проверяются никакие странные / нестандартные опции Search options(после нажатия More), что ничего странного не выбрано Formatили не Specialиспользуется. Это просто базовый, неизмененный процесс поиска или замены, который работает как талисман при поиске и полностью проваливается при замене.

Для чего это стоит, вот макрос, который я придумал, который удаляет все лишние пробелы в документе. Так как это кто-то еще, макрос, который я адаптировал несколько лет назад, я не мог объяснить вам подробно, как он работает.

Sub RemoveExtraSpaces()
'
' RemoveExtraSpaces Macro
' I wanted to be able to add the replacements to a list rather than repeating the same find command over and over
'
' Don't forget to add the comma and space when adding new exceptions!

ScreenUpdating = False

findArray = Array("   ", "  ", " ,", " .", " ;", "( ", " )", " ?", " !", ". ^p", "? ^p", "! ^p", "..", ",,", "^p ")
replArray = Array(" ", " ", ",", ".", ";", "(", ")", "?", "!", ".^p", "?^p", "!^p", ".", ",", "^p")

For i = 0 To UBound(findArray)
'Selection.Find.ClearFormatting
'Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = findArray(i)
.Replacement.Text = replArray(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i


ScreenUpdating = True

End Sub