Удаление точки перед знаком "конец ячейки"

[TimoniArtjom]

Добрый вечер!

Имеется 280 страниц таблиц. Нужно в конце последнего предложения удалить точку. Обычно точка ставится перед знаком "конец ячейки".
Руками и глазами это сделать проблеммно.
Help!!!!

[сфинкс]

Вносим в конец ячеек лишние символы @#$

Sub daTabl()
    For x = 1 To 25
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="@#$"
    Next
End Sub

и вручную через поиск-замена удаляем варианты
.@#$

[TimoniArtjom]

Сообщение от сфинкс

Вносим в конец ячеек лишние символы @#$

Sub daTabl()
    For x = 1 To 25
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="@#$"
    Next
End Sub

и вручную через поиск-замена удаляем варианты
.@#$

Не получается....выдает ошибку((((((

[TimoniArtjom]

Сообщение от TimoniArtjom

Не получается....выдает ошибку((((((

Так....макросы включил...а вот результата нет((((( все равно остается конец ячейки и точка

[TimoniArtjom]

Сообщение от сфинкс

Вносим в конец ячеек лишние символы @#$

Sub daTabl()
    For x = 1 To 25
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="@#$"
    Next
End Sub

и вручную через поиск-замена удаляем варианты
.@#$

и почему-то меняет лишь часть ячеек, а не все....я так понимаю, дело в
For x = 1 To 25

в 25))

[сфинкс]

применив количество ячеек свыше 25-ти

надеюсь всё получится

макрос был записан с экрана следя за клавишами

в прямом эфире

[TimoniArtjom]

Сообщение от сфинкс

применив количество ячеек свыше 25-ти

надеюсь всё получится

Спасибо!!!!
Да. Все получилось. Поменял число и несколько раз запустил макрос, что бы он все таблицы "пробежал".

Макрос вставлял символы не только в конце строки...но, это никак не повлияло на результат после удаления знаков через поиск-замена