Problem inserting table to ms word using vb

[knic]

Anybody noe how to insert data into ms word table?
thanks

[WorkHorse]

Originally posted by knic
Anybody noe how to insert data into ms word table?
thanks

YEP!

Word VBA help has lots of info on this topic. In MS Word press Alt + F11 (which will open the VBA editor). Then click help and search these topics:

Recording a macro to generate code
Working with tables
InsertDatabase Method

[RobDog888]

If its a table that your creating on the fly, then just move to the cell you want by doing like this...

Move up 2 rows.
Application.Selection.MoveUp wdLine, 2

Application.Selection.TypeText "This goes in the table cell."


Change the column...
Application.Selection.MoveRight wdCell, 1

If your opening a previously created document then...
Move down to the correct position and do the same...

Application.Selection.MoveDown wdLine, 8

Application.Selection.TypeText "This goes in the table cell."

[RobDog888]

Don't forget to add the reference to Word and set your word object.

[WorkHorse]

Or....you can take a few minutes to read up on the Working with tables help topic and learn how to deal directly with cells and ranges without the jittering, time-consuming, Selection.Move methods.

[dpendley]

Not sure if you want to create the table youself, this is a section of some code I used to do this from a sql server.

Dont forget the ref to word though

Set t = objdoc.Range(match.FirstIndex, match.FirstIndex + match.Length)
        
        Dim myTable As Word.Table
        
        Set myTable = objdoc.Tables.Add(t, Rows, cols)
        
        With myTable
            For y = 1 To cols
                .Cell(1, y).Range.InsertAfter notNull(rs.Fields(y - 1).Name)
            Next y
            For x = 2 To Rows
                For y = 1 To cols
                    .Cell(x, y).Range.InsertAfter notNull(rs(y - 1))
                Next y
                rs.MoveNext
            Next x
            
            .Columns.AutoFit
            .AutoFormat wdTableFormatProfessional
            .Select
        End With

[knic]

thanks
i have learnt how to add the table now
but i have a problem again
how to add a image at the top of the document
because i need to generate a report from the ms word
so i need to insert a company logo there

[RobDog888]

Try this...

Application.Selection.InlineShapes.AddPicture "D:\My Documents\03Cobra.jpg", False, True

[knic]

thanks
now i can add the picture
but how to adjust the size of the pic?