Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 16.10.2020, 15:56   #1
Kreadlling
Пользователь
 
Аватар для Kreadlling
 
Регистрация: 03.09.2009
Сообщений: 96
По умолчанию Как убрать лишние символы в конце строки таблицы word

Здраствуйте. Хотел создать программу автоматического добавления автозамен из таблицы.


Но столкнулся с проблемой при взятии текстового значения из ячейки таблицы и последующем добавлении возникает ошибка (см. скриншот). из за того что в конце есть лишние пробелы. При отладке программы в конце строки отображаются какие то квадраты (см. скрин). Я использовал функцию удаления пробелов в конце строки Trim(), но оне не убирает данные символы. Не подскажете что делать?

Код:
Sub Макрос3()
Dim longstring, shortstring, longs, shorts As String
Dim iCell As Range
Dim i As Integer
Dim j As Integer
Dim N As Integer
Dim Num As Integer

N = 58

For i = 12 To N
    ActiveDocument.Tables(1).Cell(i, 1).Select
    shortstring = Selection.text
    shorts = RTrim(shortstring)
    ActiveDocument.Tables(1).Cell(i, 2).Select
    longstring = Selection.text
    AutoCorrect.Entries.Add Name:=shortstring, Value:=longstring
Next i
End Sub
Изображения
Тип файла: jpg таблица.jpg (121.2 Кб, 0 просмотров)
Тип файла: jpg ошибка автозамена.JPG (13.6 Кб, 12 просмотров)
Тип файла: jpg квадраты.JPG (6.1 Кб, 12 просмотров)
Kreadlling вне форума Ответить с цитированием
Старый 17.10.2020, 17:14   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,815
По умолчанию

При работе с текстом ячейки таблицы нужно всегда убирать два последних символа: символ конца ячейки и абзаца. Всегда делал это фунцией Mid
Лучше день потерять — потом за пять минут долететь!©
viter.alex вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как убрать точку в конце у числового значения sotex2 WordPress и другие CMS 9 02.10.2020 03:04
Как убрать лишние символы из input? Tahoma PHP 4 23.06.2015 20:25
убрать лишние пробелы в конце фраз в ячейке Bape}l{ka Microsoft Office Excel 3 05.10.2011 12:02
При копировании текста из word в блокнот появляются лишние символы. paru10 Microsoft Office Word 2 11.02.2010 16:16
Убрать лишние пробелы из строки SoftKoc Общие вопросы Delphi 3 03.12.2009 23:54


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS
Здесь нужно купить рекламу за 7 тыс руб в месяц! )
пишите сюда - alarforum@yandex.ru
ИКС 840