Помогите доделать простой макрос для word}{post}Добрый день. Задача элементарная. Приходиться обращаться к вас , так как оналогичного сайта для word не знаю и потому что vba и для word есть. Наверняка здесь есть люди которые могут мне помочь
Итак задача
Есть таблица в ворде. Она сама формируется в ней ячейки и надо в эти ячеки в каждую из них внести текст.
То есть пользователь сначала выбирает размер таблицы число строк и столбцов , потом пишет сам текст который надо туда внести. Осталось только внести его во все ячейки. Я могу внести в одну, во все не знаю как. Буду благодарен за помощь. Привожу код

Private Sub CommandButton1_Click()
Dim x As Integer
Dim j As Integer
Dim z As Variant

x = InputBox("")
y = InputBox("")
z = InputBox("hello world")
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=x, NumColumns _
:=y, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
wdAutoFitFixed
With Selection.Tables(1)
If .Style <> "" Then
.Style = ""
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = True
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = True
End With

ActiveDocument.Tables(1).Cell(1, 1).Range = z

Тема закрыта. Спасибо