VPF::Вставить текс таблицу в ворд из экселя

temr

Дата 3.1.2011, 11:52 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.3.2006

Репутация: нет
Всего: нет

Всем добрый день .
вот код

Код


ub CreateNewWordDoc()
Dim WDApp As Word.Application
Dim WDDoc As Word.Document ' Make sure a range is selected
Dim i As Integer
Dim table1 As Range
Dim table2 As Range
Dim table3 As Range


Set table1 = Range("table1")




 path_to_file = ThisWorkbook.path & "\Report_" & Range("name") & ".doc"
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
    Worksheets("info").Select
 
 With wrdDoc
     .Content.ParagraphFormat.Alignment = wdAlignParagraphJustify
     .Content.Font.Name = "Tahoma"
     .Content.Font.Size = 12
     .Content.InsertAfter "Information1 " & Range("name") & vbCrLf
     .Content.InsertAfter "Information1" & vbCrLf
     .Content.Collapse Direction:=wdCollapseStart
      table1.Copy
      wrdApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
        Placement:=wdInLine, DisplayAsIcon:=False
 End With
 end sub

Код должен создать текстовый документ , полсе вставить две строки текста а после этих строк вставить таблицу
При исполнении кода таблица вставляется вперед строк
Должно быть
Текст
Текст
Таблица
А получается
Таблица
Текст
Текст
Подскажите в чем проблема

temr

Дата 8.1.2011, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 47
Регистрация: 30.3.2006

Репутация: нет
Всего: нет

Решено

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Программирование, связанное с MS Office \| Следующая тема »