InsertTables secundário (objDoc como Word.Document)
objTable não ofuscante como Word.Table
MyRange não ofuscante como Word.Range
T não ofuscante como o inteiro
Contagem de Const = 5
Ajustar MyRange = objDoc.Range
Para t = 1 a 5
objTable ajustado = objDoc.Tables.Add (MyRange, 3, 4)
Ajustar MyRange = objTable.Range
wdCollapseEnd de MyRange.Collapse
wdCharacter de MyRange.Move, 1
MyRange.Text = vbCr
wdCollapseEnd de MyRange.Collapse
wdCharacter de MyRange.Move, 1
T seguinte
Submarino da extremidade
|