Из vba excel создание таблицы в ворде.

oleg34

Задача такая, нужно формировать вордовские файлы с отчетами по шаблону. Делую эту задачу следующим макросом.

Public Sub Tst

Dim myWorksheet As Worksheet

For Each myWorksheet In Worksheets

    If myWorksheet.Range("A1").Value <> "" Then

        Dim Wrd As Object

        Dim Table1 As Object

        Dim Doc As Object

        Dim str As String

        Dim data As Date

        Dim str2 As String

        Dim word As String

        Dim word2 As String

        str = myWorksheet.Range("A1")

        word = Split(str, "&#231;&#224; ") ' za probel

        word2 = Split(word(1 " &#227;") 'probel g

        str2 = word(1)

        data = CDate(word2(0

        Set Wrd = CreateObject("Word.Application")

        With Wrd

            Set Doc = Wrd.Documents.Add

            With .Selection

                .Font.Size = 12

                .Font.Name = "Times New Roman"

                .Font.Bold = True

                .Font.Italic = True

                .TypeText "&#209;&#226;&#238;&#228;&#234;&#224; &#231;&#224; " & data 'Svodka za

                Set Table1 = Doc.Tables.Add(Doc.Range(Start:=0, End:=0 1, 3)

                .Font.Italic = False

                    With Table1

                        Table1.Cell(1, 1) = myWorksheet.Range("F20").Value & myWorksheet.Range("F21").Value & myWorksheet.Range("F22").Value

                        Table1.Cell(1, 2) = myWorksheet.Range("G20").Value & myWorksheet.Range("G21").Value & myWorksheet.Range("G22").Value

                        Table1.Cell(1, 3) = myWorksheet.Range("H20").Value & myWorksheet.Range("H21").Value & myWorksheet.Range("H22").Value

                    End With

            End With

        End With

        Doc.SaveAs "C:\Users\aem00511\temp\&#241;&#243;&#242;&#238;&#247;&#237;&#251;&#229; &#240;&#224;&#239;&#238;&#240;&#242;&#251;\SB_UR_00023 Drilling Report DRPT Ru " & data & ".doc"

        Doc.Close

        Wrd.Quit

        Set Wrd = Nothing

    End If

Next

End Sub

  

Собвственно, в итоге у меня не получается. Во первых, что таблица всегда занимает крайнее верхнее положение и текст над не возможно вставить. Во вторых не могу редактировать текст в ячейках вордовской таблицы. Помогите, плиз.
Здесь образец как должно быть и того, как получается.
[image] [/image]

oleg34

апну ка

0000

Чего апать то? Задача тривиальная, просто париться и делать за тебя твою работу не хочет.
Прежде чем таблицу вставить - вставляй нужный текст.
Как править текст в ячейках - запиши макрос и посмотри.