Jag sitter och trixar, och ge mig den på att försöka att lösa mitt problem.
Jag har hittat koder som i exemplet fungerar som jag hade tänkt, men inte i praktiken.
Här är utdrag av koden:
<code>
Dim wRange As Word.Range
Set wRange = wField.Code
wField.Delete
' Enter our table information including headers.
' Ideally, I would get this data from an ADO recordset
' using GetString().

DoEvents
Do While Not Rst.EOF
With wRange
.Text = "ArrNo" & vbTab & "Författare" & vbTab & "Författare 2" & vbTab & "Författare3" & vbTab & "Kategori" & vbTab & "CD-Titel" & vbTab & "Stim" & vbCrLf & _
Rst.Fields("ArrNo").Value & vbTab & Rst.Fields("SångTitel").Value & vbTab & Rst.Fields("Författare").Value & vbTab & Rst.Fields("Författare2").Value & vbNullString & vbTab & _
Rst.Fields("Författare3").Value & vbNullString & vbTab & Rst.Fields("Kategori").Value & vbTab & Rst.Fields("Album").Value & vbTab & Rst.Fields("Stim").Value & vbCrLf
.FormattedText.Font.Name = "Arial"
.FormattedText.Font.Size = "8"
' Once the data is there, we can convert it to a table
' structure and format it to look pretty!
.ConvertToTable vbTab, , , , wdTableFormatColorful2
End With
' Send back blank string as field does not exist anymore
VariableValue = ""
Rst.MoveNext
Loop
</code>
Vad skulle hända är att först en rubrikrad (bakgrund mörkröd) och därefter en ljusgulbakgrund på resterande. I de ljusgula fälten så ville jag lägga in mina poster.
Vad som händer är att bara en post blir som tänkt, resten "fasnar" i den mörröda första cellen, och knallar inte vidare.
Det jag reagera på är att en post blir OK, vad tror ni?