Удалить все пробелы до и после таблиц

Question

Я пытаюсь удалить все пробелы до и после всех объектов таблицы в моем текстовом документе.

Это код, который у меня есть:

With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^p^p"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
End With

Это, кажется, удаляет некоторые новые разрывы строк, но не все из них. После запуска этого макроса, когда я нажимаю «Показать все скрытые символы», он по-прежнему показывает некоторые теги | P.

Answer 1

Попробуйте изменить

.Text = "^p^p"

на

.Text = Chr(32)

Чтобы узнать, какие символы заменить, выберите текст и запустите следующий макрос.

Sub DebugAscCode()
For i = 1 To Len(Selection.Text)
    Debug.Print Asc(Mid(Selection.Text, i))
Next i
End Sub

Использование замены на VBA

Sub ReplaceAscCode()
Dim tmpArray As Variant

tmpArray = Array(7, 13, 32)

For j = LBound(tmpArray) To UBound(tmpArray)
    Selection.Text = Replace(Selection.Text, ASC(tmpArray(j)), "")
Next j

End Sub

Я использовал в своей работе, и это прекрасно работает, каждый символ всегда будет представлен кодом ASC

[] '