InsertTables secondario (objDoc come Word.Document)
objTable fioco come Word.Table
MyRange fioco come Word.Range
T fioca come numero intero
Conteggio di Const = 5
Regolare MyRange = objDoc.Range
Per t = 1 - 5
objTable stabilito = objDoc.Tables.Add (MyRange, 3, 4)
Regolare MyRange = objTable.Range
wdCollapseEnd di MyRange.Collapse
wdCharacter di MyRange.Move, 1
MyRange.Text = vbCr
wdCollapseEnd di MyRange.Collapse
wdCharacter di MyRange.Move, 1
T seguente
Sommergibile dell'estremità
|