Как убрать лишние символы в конце строки взятой из ячейки таблицы word
|
|
Пятница, 16 Октября 2020 г. 16:06
+ в цитатник
Fellinggood: Здраствуйте. Хотел создать программу автоматического добавления автозамен из таблицы.
________________.JPG (, : 9)
Но столкнулся с проблемой при взятии текстового значения из ячейки таблицы и последующем добавлении возникает ошибка (см. скриншот).
________________.JPG (, : 9)
из за того что в конце есть лишние пробелы. При отладке программы в конце строки отображаются какие то квадраты (см. скрин).
________________.JPG (, : 9)
Я использовал функцию удаления пробелов в конце строки 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
https://forum.sources.ru/index.php?showtopic=420047&view=findpost&p=3840445
Метки:
VB for Application
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-