new VBA help filling a table with data in word 2003 1

[DougP]

here is all I have so far

    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
        9, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "Table Grid" Then
            .Style = "Table Grid"
        End If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = True
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = True
    End With

How can put text in a particular cell?
Say Row 1, Col 1 is the word "Sample #"
under that are some dates like
1829-001
1829-002
1829-003

and make the top row background color light gray

DougP, MCP, A+
I Built my own R2D2
I love this site and all you folks that helped me over the years!

 

[PHV]

A starting point:

ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=4, NumColumns:=9 _
 , DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed
With Selection.Tables(1)
  If .Style <> "Table Grid" Then
    .Style = "Table Grid"
  End If
  .ApplyStyleHeadingRows = True
  .ApplyStyleLastRow = True
  .ApplyStyleFirstColumn = True
  .ApplyStyleLastColumn = True
  .Cell(1, 1).Range.Text = "Sample #"
  .Cell(2, 1).Range.Text = "1829-001"
  .Cell(3, 1).Range.Text = "1829-002"
  .Cell(4, 1).Range.Text = "1829-003"
End With

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[SkipVought]

Hi,

Dates? These do not look like dates to me...

    With Selection.Tables(1)
      .Cells(1,1).value = "1829-001"
    End With

Skip,

_{To be safe on the [red]FOURTH[/red],
Don't take a [red]FIFTH[/red] on the [red]THIRD[/red]
Or you might not come [red]FORTH[/red] on the [red]FIFTH[/red]
[red][highlight blue]FORTH[/highlight][/red][white][highlight red]WITH[/highlight][/white]}

 

[SkipVought]

sorry its

.Cell(1, 1).Range = ""

Skip,

_{To be safe on the [red]FOURTH[/red],
Don't take a [red]FIFTH[/red] on the [red]THIRD[/red]
Or you might not come [red]FORTH[/red] on the [red]FIFTH[/red]
[red][highlight blue]FORTH[/highlight][/red][white][highlight red]WITH[/highlight][/white]}

 

[DougP]

No they are not Dates, I started the thread and changed my mind half way through but forgot to edit out "Dates" They are Sample Numbers.
Anyway

Do you know how to make the top row light Gray color?

DougP, MCP, A+
I Built my own R2D2
I love this site and all you folks that helped me over the years!

 

[SkipVought]

Turn on your macro recorder, shade the heading, and check it out.

Skip,

_{To be safe on the [red]FOURTH[/red],
Don't take a [red]FIFTH[/red] on the [red]THIRD[/red]
Or you might not come [red]FORTH[/red] on the [red]FIFTH[/red]
[red][highlight blue]FORTH[/highlight][/red][white][highlight red]WITH[/highlight][/white]}

 

[PHV]

simply add this before the End With:
.Rows(1).Shading.BackgroundPatternColor = wdColorGray25

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[DougP]

yeah baby
have a star


DougP, MCP, A+
I Built my own R2D2
I love this site and all you folks that helped me over the years!