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

Global $oWordApp = ObjCreate('Word.Application')

$oWordApp.visible = 0
$oWordApp.Documents.Open(@ScriptDir & "\1.doc")

Local $rows, $columns
$rows = $oWordApp.Activedocument.Tables(1).Rows.Count ; получаем кол-во строк и столбцов 1-й таблицы в документе
$columns = $oWordApp.Activedocument.Tables(1).Columns.Count


For $i = 1 To $rows
	For $j = 1 To $columns
		$oWordApp.Activedocument.Tables(1).Cell($i, $j).Range.Text = $i & "," & $j
	Next
Next

Sleep(3000)

$oWordApp.visible = 1

;~ Sleep(3000)

;~ $oWordApp.Documents.close

#include <Word.au3>

_WordErrorHandlerRegister()

$oWord = _WordCreate(@DesktopDir & '\Map.docx', 0, 0, 0)
$oDoc = _WordDocGetCollection($oWord, 0)
$oTable = $oDoc.Tables(1)
$oRows = $oTable.Rows

For $oRow In $oRows
	If StringReplace(StringStripCR($oRow.Range.Text), Chr(7), '') = '' Then
		$oCels = $oRow.Cells
		
		If $oCels.Count > 7 Then
			ContinueLoop
		EndIf
		
		$iC = 0
		Dim $aData[7] = ['User', 'User-PC', 'noname', '4Gb RAM' & @CRLF & '300Gb HDD', '7 Ent', 'Office Ent 2007, Office Project Pro 2007', 'Group Added']
		
		For $oCel In $oCels
			$oCel.Range.Text = $aData[$iC]
			$iC += 1
		Next
		
		ExitLoop
	EndIf
Next

_WordQuit($oWord, -1)

#include <WordEX.au3>

; Create application object
Global $oWord = _Word_Create()
If @error <> 0 Then Exit MsgBox(16, "Word UDF: _Word_DocTableWrite Example", "Error creating a new Word application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
; Open the test document
Global $oDoc = _Word_DocOpen($oWord, "Test.doc", Default, Default, True)
If @error <> 0 Then Exit MsgBox(16, "Word UDF: _Word_DocTableWrite Example", "Error opening 'Test.doc'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Example1($oDoc)

; *****************************************************************************
; Example 1
; Write the content of a two dimensional array to a Word table
; *****************************************************************************
Func Example1($oDoc)

	Local $asArray[3][3] = [[1, 2, 3],["ф", "ф", "ф"],["ф", "ф", "ф"]]
	Local $oRange = _Word_DocRangeSet($oDoc, -2) ; 2-я страница?
	_Word_DocTableWrite($oRange, $asArray)
	If @error <> 0 Then Return MsgBox(16, "Word UDF: _Word_DocTableWrite Example 1", "Error creating the table." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
EndFunc   ;==>Example1

#include <Word.au3>

_WordErrorHandlerRegister()

$oWord = _WordCreate(@DesktopDir & '\Map.docx', 1, 1, 0)
$oDoc = _WordDocGetCollection($oWord, 0)
$oTable = $oDoc.Tables(1)
$oRows = $oTable.Rows
$oNewRow = $oRows.Add()

Dim $aData[8] = [7, 'User', 'USER-PC', 'noname', '4Gb RAM' & @CRLF & '300Gb HDD', '7 Ent', 'Office Ent 2007, Office Project Pro 2007', 'Group Added']

For $iCel = 1 To $aData[0]
	$oNewRow.Cells($iCel).Range.Text = $aData[$iCel]
Next

;~ _WordQuit($oWord, -1)