Всем привет!
Есть два документа *.doc с созданными в них двумя таблицами.
Необходимо данные из ячейки одной таблицы переписать в другую, причем
в одну ячейку первой таблицы попадают значения из нескольких ячеек другой, разделенные пробелами.
Делаю следующее:
'Ссылаюсь на уже созданную таблицу внутри исходного документа
Dim List As Table
Set List = ThisDocument.Tables(1)
'Ссылаюсь на второй документ и таблицу в нем
Dim oWord As Word.Document
Set oWord = Documents.Open("...\*.doc")
Dim newTable As Table
Set newTable = oWord.Tables(1)
'Резервирую строковые переменные и помещаю в них значения из каждой ячейки
Dim A, B, C as String
A = newTable.Cell(1, 2).Range.Text
B = newTable.Cell(2, 2).Range.Text
C = newTable.Cell(3, 2).Range.Text
'Заношу в ячейку первой таблицы три значения из ячеек второй таблицы
List.Cell(1, 1).Range.Text = A & B & C
Но в этом случае три значения выводятся не в одну строку, а
в три, разделенные возвратом каретки.
Как склеить значения в одну строку?
Спасибо!