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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 16.10.2020, 15:56   #1
Kreadlling
Форумчанин
 
Аватар для Kreadlling
 
Регистрация: 03.09.2009
Сообщений: 116
По умолчанию Как убрать лишние символы в конце строки таблицы 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 Кб, 13 просмотров)
Тип файла: jpg квадраты.JPG (6.1 Кб, 13 просмотров)
Kreadlling вне форума Ответить с цитированием
Старый 17.10.2020, 17:14   #2
viter.alex
Балуюсь кодами
Участник клуба
 
Аватар для viter.alex
 
Регистрация: 09.01.2009
Сообщений: 1,837
По умолчанию

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


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как убрать точку в конце у числового значения 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 13:02
При копировании текста из word в блокнот появляются лишние символы. paru10 Microsoft Office Word 2 11.02.2010 16:16
Убрать лишние пробелы из строки SoftKoc Общие вопросы Delphi 3 03.12.2009 23:54