Заполнение ячеек таблицы Word'a в VBA
От: kas1830 Россия  
Дата: 24.03.10 13:42
Оценка:
Всем привет!

Есть два документа *.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


Но в этом случае три значения выводятся не в одну строку, а в три, разделенные возвратом каретки.
Как склеить значения в одну строку?
Спасибо!
vba word table cell
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.