Страница 1 из 1
Числовой формат ячеек таблицы документа Word
Добавлено: 23 июл 2008, 01:12
AleksP
Как преобразовать значение ячеек таблицы документа Word в числовой формат? Например,
Код: Выделить всё
Dim Table1 As Table
Set Table1 = ThisDocument.Tables.Item(1)
Как преобразовать значение Table1.Cell(1,1) в числовой формат?
Re: Числовой формат ячеек таблицы документа Word
Добавлено: 23 июл 2008, 08:38
Serge_Bliznykov
погодите! а Вы не путаете с Excel ?! Насколько позволяют мне мои познания в MS Word - то там нет формата ячеек таблицы! (по крайней мере в Word 2003) :-(
Re: Числовой формат ячеек таблицы документа Word
Добавлено: 23 июл 2008, 08:58
Serge_Bliznykov
ага. Кажется я понял... нужно в макросе на VBA получить числовое значение, находящее в ячейке таблицы, так?
Re: Числовой формат ячеек таблицы документа Word
Добавлено: 23 июл 2008, 09:07
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