Добавление строк в таблицу

[UbeiBobra]

Добрый день, помогите пожалуйста сделать вот такую штуку: в excel по нажатию на кнопку заполняется документ word данными из excel
Как с помощью макроса добавить например пять идентичных строк в таблицу?

[Aleksandr H.]

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

Добрый день, помогите пожалуйста сделать вот такую штуку: в excel по нажатию на кнопку заполняется документ word данными из excel

Так "штука" уже есть или надо написать "нам", а тогда еще и

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

добавить например пять идентичных строк в таблицу?

?

[EducatedFool]

готовое решение
http://excelvba.ru/programmes/FillDocuments

[UbeiBobra]

"Штука" есть, нужно чтобы вы подсказали как программно добавить строку в таблице с такимже текстом как и в первой

[AndVGri]

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

"Штука" есть, нужно чтобы вы подсказали как программно добавить строку в таблице с такимже текстом как и в первой

Добавить строку в таблицу Word

Table.Rows.Add

Назначить текст в ячейку

Row.Cells(1).Range.Text = "значение"

[UbeiBobra]

Ошибка: object required

[AndVGri]

Ошибка: object required

И что вы делали - можете продемонстрировать?

[UbeiBobra]

Sub asdas()

Table.Rows.Add
End Sub

[UbeiBobra]

вот этот макрос запускается из экселя:
Sub Êíîïêà4_Ùåëêíóòü()
Dim WA As Object, WD As Object
Dim i As Integer
Dim s1, s2, s3, s4, s5, s6, s7, s8 As Double
FN = "t0607010"
ChDir "D:\proba"
Workbooks.Open Filename:="D:\temp\" & FN & ".DBF"
LastRow = ActiveSheet.Cells.Find(What:="*", _
SearchDirection:=xlPrevious, _
SearchOrder:=xlByRows).Row
s1 = 0
s2 = 0
s3 = 0
s4 = 0
s5 = 0
s6 = 0
s7 = 0
s8 = 0
For i = 2 To LastRow
s1 = s1 + Cells(i, 5)
s2 = s2 + Cells(i, 8)
s3 = s3 + Cells(i, 9)
s4 = s4 + Cells(i, 27)
s5 = s5 + Cells(i, 28)
s6 = s6 + Cells(i, 29)
s7 = s7 + Cells(i, 46)
s8 = s8 + Cells(i, 47)
Next
Set WA = CreateObject("Word.Application")
Set WD = WA.Documents.Open("d:\proba\TH2.doc ")
For i = 2 To LastRow
WD.Range.Find.Execute FindText:="[Naiz]", ReplaceWith:=Cells(i, 15)
WD.Range.Find.Execute FindText:="[Obiz]", ReplaceWith:=Cells(i, 2)
WD.Range.Find.Execute FindText:="[Ed]", ReplaceWith:=Cells(i, 10)
WD.Range.Find.Execute FindText:="[Kol]", ReplaceWith:=Cells(i, 5)
WD.Range.Find.Execute FindText:="[Cen_ed]", ReplaceWith:=Cells(i, 8)
WD.Range.Find.Execute FindText:="[Stoim]", ReplaceWith:=Cells(i, 9)
WD.Range.Find.Execute FindText:="[nds]", ReplaceWith:=Cells(i, 48)
WD.Range.Find.Execute FindText:="[sum_nds]", ReplaceWith:=Cells(i, 46)
WD.Range.Find.Execute FindText:="[stoim_nds]", ReplaceWith:=Cells(i, 47)
WD.Range.Find.Execute FindText:="[brutto]", ReplaceWith:=Cells(i, 28)
WD.Range.Find.Execute FindText:="[netto]", ReplaceWith:=Cells(i, 29)
WD.Range.Find.Execute FindText:="[mesto]", ReplaceWith:=Cells(i, 27)
Next
WD.Range.Find.Execute FindText:="[skol]", ReplaceWith:=s1
WD.Range.Find.Execute FindText:="[scena]", ReplaceWith:=s2
WD.Range.Find.Execute FindText:="[sstoim]", ReplaceWith:=s3
WD.Range.Find.Execute FindText:="[syash]", ReplaceWith:=s4
WD.Range.Find.Execute FindText:="[sbru]", ReplaceWith:=s5
WD.Range.Find.Execute FindText:="[snet]", ReplaceWith:=s6
WD.Range.Find.Execute FindText:="[snds]", ReplaceWith:=s7
WD.Range.Find.Execute FindText:="[ssnds]", ReplaceWith:=s8
WA.Visible = True
Set WA = Nothing
ActiveWindow.Close
End Sub

Куда вставить строчку добавления строки в вордовском документе?

[AndVGri]

Так

добавления строки в вордовском документе

или

добавить ... строк в таблицу

Вы уж раберитесь. Код нужно оформлять - используйте кнопку #.
И я не вижу у вас в документе ни одной таблицы. Пусть она у вас единственная, тогда чтобы добавить одну строку и в первую ячейку ввести текст, добавьте следующий код

WD.Tables(1).Rows.Add.Cells(1).Range.Text = "новая строка"