Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Word
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.02.2021, 00:59   #1
TimoniArtjom
 
Регистрация: 07.11.2014
Сообщений: 9
Стрелка Удаление точки перед знаком "конец ячейки"

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

Имеется 280 страниц таблиц. Нужно в конце последнего предложения удалить точку. Обычно точка ставится перед знаком "конец ячейки".
Руками и глазами это сделать проблеммно.
Help!!!!
TimoniArtjom вне форума Ответить с цитированием
Старый 26.02.2021, 01:34   #2
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

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

Код:
Sub daTabl()
    For x = 1 To 25
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="@#$"
    Next
End Sub
и вручную через поиск-замена удаляем варианты
.@#$
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую
сфинкс вне форума Ответить с цитированием
Старый 26.02.2021, 01:49   #3
TimoniArtjom
 
Регистрация: 07.11.2014
Сообщений: 9
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
Вносим в конец ячеек лишние символы @#$

Код:
Sub daTabl()
    For x = 1 To 25
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.EndKey Unit:=wdLine
    Selection.TypeText Text:="@#$"
    Next
End Sub
и вручную через поиск-замена удаляем варианты
.@#$

Не получается....выдает ошибку((((((
Изображения
Тип файла: png Безымянный.png (3.7 Кб, 10 просмотров)
TimoniArtjom вне форума Ответить с цитированием
Старый 26.02.2021, 01:58   #4
TimoniArtjom
 
Регистрация: 07.11.2014
Сообщений: 9
По умолчанию

Цитата:
Сообщение от TimoniArtjom Посмотреть сообщение
Не получается....выдает ошибку((((((
Так....макросы включил...а вот результата нет((((( все равно остается конец ячейки и точка
TimoniArtjom вне форума Ответить с цитированием
Старый 26.02.2021, 02:15   #5
TimoniArtjom
 
Регистрация: 07.11.2014
Сообщений: 9
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
Вносим в конец ячеек лишние символы @#$

Код:
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))
TimoniArtjom вне форума Ответить с цитированием
Старый 26.02.2021, 10:35   #6
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 953
По умолчанию

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

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

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

в прямом эфире
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 26.02.2021 в 14:37.
сфинкс вне форума Ответить с цитированием
Старый 26.02.2021, 11:21   #7
TimoniArtjom
 
Регистрация: 07.11.2014
Сообщений: 9
По умолчанию

Цитата:
Сообщение от сфинкс Посмотреть сообщение
применив количество ячеек свыше 25-ти

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

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


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
чтобы во всем списке не от руки проставлять "f" перед "rebeno" так как долго будет а автоматически? если можно то укажите как ivanovik Microsoft Office Word 3 23.10.2019 16:33
Убрать папки "Pictures", "Music", "Видео", "Downloads" из "МОЙ КОМПЬЮТЕР" Бахтиёр1916 Windows 1 05.04.2017 12:53
Нужно пояснить/прокомментировать код программы, или коды функций "Добавить" "Удалить" "Обновить(редактировать" "Поиск" "Период") ZIRASS PHP 4 15.06.2016 14:23
Программа на языке "Ассемблер" - ввод строки, анализ длины строки, добавление точки в конец строки Алексей_2012 Помощь студентам 1 05.04.2012 11:26