Как убрать лишние символы в конце строки таблицы word

@Fellinggood · Регистрация: 06.06.2009

Студворк — интернет-сервис помощи студентам

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

https://www.cyberforum.ru/atta... 1602851274
Но столкнулся с проблемой при взятии текстового значения из ячейки таблицы и последующем добавлении возникает ошибка (см. скриншот). из за того что в конце есть лишние пробелы. При отладке программы в конце строки отображаются какие то квадраты (см. скрин). Я использовал функцию удаления пробелов в конце строки RTrim(), но оне не убирает данные символы. Не подскажете что делать?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

@КостяФедореев · 16.10.2020, 15:46

Fellinggood, просто Trim попробуйте

@Fellinggood · 16.10.2020, 16:00 **[ТС]**

Сообщение от КостяФедореев

Fellinggood, просто Trim попробуйте

Пробовал не получается, там какие то квадраты в конце строки, я так понимаю это вообще не пробелы

@Fellinggood · 16.10.2020, 16:09 **[ТС]**

Вот что выдает при отладке

@Fellinggood · 16.10.2020, 16:12 **[ТС]**

Если беру строку а11 из таблицы

@KoGG · 16.10.2020, 16:20

Там в конце стоят спецсимволы конца ячейки Word, их надо обрезать:

Visual Basic
1
2
shortstring = Left(shortstring, Len(shortstring) - 2)
longstring = Left(longstring, Len(longstring) - 2)

@Narimanych · 16.10.2020, 16:20

Fellinggood,

Файл с куском таблицы можете прикрепить?

@Fellinggood · 16.10.2020, 16:39 **[ТС]**

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

Файл с куском таблицы можете прикрепить?

В верхнем сообщении прикрепил

Добавлено через 2 минуты

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

2
shortstring = Left(shortstring, Len(shortstring) - 2)
longstring = Left(longstring, Len(longstring) - 2)

Спасибо, но хотелось бы находить например эту комбинацию символов и заменять вхождением другой строки, а то вдруг еще больше подряд будет таких символов для других строк, и например не в каждой строке есть в конце эти символы...

@Narimanych · 16.10.2020, 16:52

Fellinggood,

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

В верхнем сообщении прикрепил

Не открывается.

@Fellinggood · 16.10.2020, 16:53 **[ТС]**

Вот кусок таблицы

@Fellinggood · 16.10.2020, 17:25 **[ТС]**

а1 40CB01 (Арм оператора ПК4)

а2 40CB02 (Арм оператора ТВД)

а3 40CB03 (Арм оператора ВО ТВД)

а4 40CB04 (Арм оператора ОС ТВД)

a5 Принтер HP LASER JET CP5225dn

a6 Инженерная станция АСУ ТП ТВД

а7 Сервисная станция АСУ ТП ТВД 40CRA01GS003 в НК №2

а8 НК №2 Сервер связи HP DL360p 40CRA01GS006

а9 НК №2 Сервер приложений (верхний) SPPA T3000 HP DL360p 40CRA01GS001

а9а НК №2 Сервер приложений (нижний) SPPA T3000 HP DL360p 40CRA01GS002

а10 НК №2 Патч панель 40CRA01GN010

а11 НК №2 Шина приложений scalance XR324-12M (40CRA01GN014)

а12 НК №2 Межсетевой экран Hirschmann Eagle 30 (40CRA01GN011) ip: 172.24.40.121

а13 НК №2 Шина автоматизации Scalance XR324-12M (40CRA01GN006) ip: 172.25.40.211

а14 НК №2 Шина приложений scalance XR324-12M (40CRA01GN015) ip: 172.24.40.102

Или так еще

@Ципихович Эндрю · 17.10.2020, 21:16

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

например не в каждой строке есть в конце эти символы...

быть такого не может
или прикрепите пример

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@КостяФедореев Часто онлайн 987 / 637 / 280 Регистрация: 09.01.2017 Сообщений: 2,080
	16.10.2020, 15:46
	Fellinggood, просто Trim попробуйте 0

@Fellinggood 2 / 2 / 0 Регистрация: 06.06.2009 Сообщений: 325
	16.10.2020, 16:09 [ТС]
	Вот что выдает при отладке Миниатюры 0

@Fellinggood 2 / 2 / 0 Регистрация: 06.06.2009 Сообщений: 325
	16.10.2020, 16:12 [ТС]
	Если беру строку а11 из таблицы Миниатюры 0

@Narimanych 2752 / 1726 / 779 Регистрация: 23.03.2015 Сообщений: 5,449
	16.10.2020, 16:20
	Fellinggood, Файл с куском таблицы можете прикрепить? 0

@Fellinggood 2 / 2 / 0 Регистрация: 06.06.2009 Сообщений: 325
	16.10.2020, 16:53 [ТС]
	Вот кусок таблицы Миниатюры 0