Вопрос : Слово VBA

Hi,

I хочет к ise VBA ввести серию таблиц в слово doc на времена «отсчета» внутри петля. Как ряд был бы установлен так, что внутри петля каждая таблица последует за rpeceding одним?

For 1 к myRange count
установленному = objDoc.Range (??? ) ряд
objDoc.Tables.Add: =myRange, NumRows: =3, NumColumns: =4
next
class=

Ответ : Слово VBA

Вам нужно положить метку параграфа между таблицами, или они сольют совместно.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16: 17: 18:

Sub InsertTables (objDoc как Word.Document) Тусклое objTable как Word.Table Тусклое MyRange как Word.Range Тусклый t как интежер Отсчет Const = 5 Установите MyRange = objDoc.Range Для t = от 1 до 5 Установленное objTable = objDoc.Tables.Add (MyRange, 3, 4) Установите MyRange = objTable.Range wdCollapseEnd MyRange.Collapse wdCharacter MyRange.Move, 1 MyRange.Text = vbCr wdCollapseEnd MyRange.Collapse wdCharacter MyRange.Move, 1 Следующий t Подводная лодка конца