Расчет некоторых формул в ворде из таблиц.

[Mixasik]

Уважаемые товарищи, столкнулся с проблемой рассчетов в WORD, сразу скажу, если это было на форуме не бейте. не искал, так как не знаю по какому слову надо было...
Вот, например у меня есть в WORD таблица номер один заполненная данными и таблица номер 2 - содержимое которых надо рассчитать используя данные из таблицы 1. Каким способом это можно реализовать? Я конечно могу просчитать на Delphi и вставить в таблицу 2, но кажется VB здесь уместнее и удобнее. Заранее спасибо. Подскажите хотя бы как это называется и что копать

[Mixasik]

Или, пожалуйста приведети такой пример. Есть 2 таблицы. Записать в первый столбец второй таблицы данные из первого столбца первой таблице деленные на данные из второго столбца первой таблицы?

p.s. Смог вставить через поле и закладку, но это не удобн, так как надо закладку для каждой. мне бы что-нибудь как в экселе чтобы циклично по полям)))

[CaptainNemo]

Сообщение от Mixasik

Или, пожалуйста приведети такой пример. Есть 2 таблицы. Записать в первый столбец второй таблицы данные из первого столбца первой таблице деленные на данные из второго столбца первой таблицы

Sub Test()
Dim i As Integer
    With ActiveDocument
        For i = 1 To .Tables(1).Columns.Count
            .Tables(2).Cell(1, i).Range.Text = Val(.Tables(1).Cell(1, i) _
            .Range.Text) / Val(.Tables(1).Cell(2, i).Range.Text)
        Next i
    End With
End Sub

[Mixasik]

Огромное спасибо буду разбираться? просто еще надо округлить значения до 2 знаковых после запятой и попробую из Delphi запустить максрос)

[CaptainNemo]

Сообщение от Mixasik

еще надо округлить значения до 2 знаковых после запятой

Для округления в VBA функция Round. Можно также отформатировать число в ячейке функцией Format. Во вложении вариант с функцией Round.