olztechnology.blogg.se

Tlb6.Cell(1, 3).Shading.BackgroundPatternColor = 20 Tlb6.Cell(1, 2).Borders.OutsideLineStyle = 1 Tlb6.Cell(1, 1).Borders.OutsideLineStyle = 1 Tlb6.Cell(1, 1).Shading.BackgroundPatternColor = 20 OApp = CType(CreateObject("Word.Application"), Word.Application)ĭim para As Word.Paragraph = ()ĭim tlb6 As Word.Table = (Range:=rng, NumRows:=1, NumColumns:=4)ĭim CurrentDate As Date = New Date(CurrentDateTime.Year, CurrentDateTime.Month, CurrentDateTime.Day) My Code so far: Dim oApp As Word.Application Is there a way to insert the lin above the first table?

Everytime i try to add a Paragraph, the Paragraph gets inserted after the last table. If you still cant add text above the table, make the text part of the table.

My Problem is that i cant insert a line above the table. Turn on the paragraph marks (Ctrl + Shift + ) and you should see a paragraph mark directly above the table. The table is beginning at the first line of the Document.