Составить таблицу следующего вида

[xbarmaleyx]

Ребят пожалуйста помогите решить, вообще не шарю в VBA, решил почитать, ничего не понимаю. Таблица должна создаваться с помощью кнопки на панели инструментов. В Exel примерно представляю, как сделать, а в Word ппц (( Огромное спасибо за помощь!

[Ципихович Эндрю]

Проблема в том, чтобы составить таблицу с 4 мя столбцами и 2 строками?

[Ципихович Эндрю]

Есть еще вариант в Ворде вставить талицу ЭКСЕЛЯ

[xbarmaleyx]

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

[Ципихович Эндрю]

ВРОДЕ ЭТОГО СЧИТЫВАЕТЕ С 3 И 4 СТОЛБЦА ПОТОМ ДЕЛИТЕ
НЕ ПОЙМЁТЕ СПРАШИВАЙТЕ

'отключаем обновление - дёргание экрана при выполнении кода
Application.ScreenUpdating = False

Количество_строк_в_таблице_1 = ActiveDocument.Tables(1).Rows.Count

'правильный ренж, удаляет все абзацы и пробелы
Set reg = CreateObject("vbscript.regexp")

For q = 1 To (Количество_строк_в_таблице_1)

s = Trim(ActiveDocument.Tables(1).Rows(q).ЗАБЫЛ КАК 3 и 4 ЯЧЕЙКА ??? Range)

reg.Global = True 'искать по всему тексту, по умолчанию False - будет найдено только первое совпадение
'reg.IgnoreCase = False - учитывать регистр символов, по умолчанию - False, если True - игнорировать регистр символов
reg.Pattern = Chr$(13) 'Chr$(13) это абзац
s2 = reg.Replace(s, "")
reg.Pattern = " +" '+ означает, что заменяем и два и три и четыре и более пробелов подряд
s3 = Trim(reg.Replace(s2, " "))
reg.Pattern = " ," 'пробел и зяпятую меняем на запятую, то есть, убираем пробел перед запятой
s4 = Trim(reg.Replace(s3, ","))
reg.Pattern = Chr$(7) 'Chr$(7) это концевая сноска таблицы
s5 = Trim(reg.Replace(s4, ""))

'для информации
'Массив_строки_s5 = Split(s5, ",")
'Количество_слов = UBound(Массив_строки_s5)  'считает от 0
'For u = 0 To Количество_слов
'Слово_строки_s5 = Массив_строки_s5(u)
'Next u


Next

[Ципихович Эндрю]

ЗАБЫЛ ЗДЕСЬ
For q = 1 To (Количество_строк_в_таблице_1)

НАДО ТАК
For q = 2 To (Количество_строк_в_таблице_1)