Всем добрый день .
вот код
| Код |
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
|
Код должен создать текстовый документ , полсе вставить две строки текста а после этих строк вставить таблицу
При исполнении кода таблица вставляется вперед строк
Должно быть
Текст
Текст
Таблица
А получается
Таблица
Текст
Текст
Подскажите в чем проблема |