Copy table to word

[sergio]

Hi to all, and thanks in advance for read this.

I was trying to copy a table from QV to word, but i can't paste it...i've this code, how could i continue??

Set objWord = CreateObject("word.application")

objWord.Visible true

Set

objDoc = objWord.Documents.Add()

Set

ActiveDocument.ActivateSheet("Fields"

)

objSelection = objWord.Selection

set table = ActiveDocument.GetSheetObject( "CH02" )

table.CopyTableToClipboard true