Как создать документ с таблицей?

25.04.2006, 09:22. **Показов** 1842. **Ответов** 1

Author24 — интернет-сервис помощи студентам

Подскажите, как создать документ с таблицей

Visual Basic

Dim xlApp As Object
Set xlApp = CreateObject("word.Application")
xlApp.Visible = True
xlApp.Documents.Open "D:" & "Шаблон.rtf"
xlApp.ActiveDocument.Paragraphs.Add
num = xlApp.ActiveDocument.Paragraphs.Count
With xlApp.ActiveDocument.Paragraphs(num)
    .Range.Text = "Привет, мир!"
    'Здесь необходимо создать таблицу
    
    
     
End With
xlApp.ActiveDocument.SaveAs "D:" & "Результат.rtf"
xlApp.Quit
Set xlApp = Nothing

Johny Walker · 25.04.2006, 16:04

Зайди в ворд, запусти запись макроса и все узнаешь:

Visual Basic

1	xlApp.ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:=5

	25.04.2006, 16:04