Числовой формат ячеек таблицы документа Word

[AleksP]

Как преобразовать значение ячеек таблицы документа Word в числовой формат? Например,

Код: Выделить всё

Dim Table1 As Table
Set Table1 = ThisDocument.Tables.Item(1)

Как преобразовать значение Table1.Cell(1,1) в числовой формат?

[Serge_Bliznykov]

погодите! а Вы не путаете с Excel ?! Насколько позволяют мне мои познания в MS Word - то там нет формата ячеек таблицы! (по крайней мере в Word 2003) :-(

[Serge_Bliznykov]

ага. Кажется я понял... нужно в макросе на VBA получить числовое значение, находящее в ячейке таблицы, так?

[Serge_Bliznykov]

пошарился чуть поиском по интернету, вот, пробуйте:

Sub test1()
Dim Table1 As Table
Set Table1 = ThisDocument.Tables.Item(1)
Dim Chislo As Double
Chislo = Table1.Cell(1, 1).Range.Calculate
Chislo = Chislo * 100 ' умножаем на 100 просто для примера )
MsgBox "Число умноженное на 100 = " & Str(Chislo)
End Sub