Ik gebruik gegevens uit een Excel-bestand om WORD-bestanden te genereren. Daarbij wordt o.a. een tabel in WORD aangemaakt en gevuld met waarden uit Excel.
Op zich gaat dat best wel goed, alleen zit ik met nog een klein lay-outprobleem.
Ik wil graag de lay-out van cellen in WORD laten aansturen door de lay-out van de Excel-cellen:
als de onderstreping in Excel aanstaat, dan moet de tekst in de cel van de WORD-tabel ook worden onderstreept en bovendien vetgedrukt.en op grootte 14 worden gezet
deel van de code:
Ik heb een aantal dingen geprobeerd, maar krijg het niet voor elkaar.
Heeft iemand suggesties?
Op zich gaat dat best wel goed, alleen zit ik met nog een klein lay-outprobleem.
Ik wil graag de lay-out van cellen in WORD laten aansturen door de lay-out van de Excel-cellen:
als de onderstreping in Excel aanstaat, dan moet de tekst in de cel van de WORD-tabel ook worden onderstreept en bovendien vetgedrukt.en op grootte 14 worden gezet
deel van de code:
Code:
With objWord
With .Selection
.EndKey Unit:=wdStory
.TypeText Text:=vbCr & "Invulgedeelte"
With .Font
.Underline = False
.Size = 8
End With
.TypeText Text:=vbCr & "(in te vullen door " & strGespreksPartner & " " & strVorigeAfdeling & ")" & vbCr & vbCr
.Font.Size = 10.5
.InsertBreak Type:=wdSectionBreakContinuous
' De tabel met het invulgedeelte maken en vullen (2 kolommen)
.Tables.Add(.Range, Aantal, 2).Select
With .Tables(1)
For i = 1 To 2
.Columns(i).Width = Choose(i, 200, 248)
Next i
n = IntStartRijInvul
For i = 1 To Aantal
If Range("InvulTekst").Cells(i, 1).Font.Underline = xlNone Then
.Cell(i, 1) = Range("InvulTekst").Cells(i, 1).Value
Else
'hier moet nog code komen om onderstreping en lettergrootte aan te passen
.Cell(i, 1) = Chr(171) & Range("InvulTekst").Cells(i, 1).Value & Chr(187)
End If
Next i
' ervoor zorgen dat de tabel lijntjes krijgt werkt alleen bij WORD 2003
If objWord.Version = "11.0" Then
If .Style <> "Tabelraster" Then
.Style = "Tabelraster"
End If
.ApplyStyleHeadingRows = True
.ApplyStyleLastRow = False
.ApplyStyleFirstColumn = True
.ApplyStyleLastColumn = False
End If
End With
End With
End With
Ik heb een aantal dingen geprobeerd, maar krijg het niet voor elkaar.
Heeft iemand suggesties?