а - string
cp() - string
Set TableWord = DocWord.Tables(tabl1)
a = TableWord.Cell(4, 2).Range.Text
CP(1, k, dn) = Mid(a, 1, Len(a) - 2)
во второй процедуре пытаюсь вставить эти данные в таблицу
TableWord.Cell(4, 2).Range.Text = CP(1, k, dn)
пишет несовпадение типов
в чем может быть пролема?
