PROBLEMAS, VB6 COM WORD2000?

USUARIO.EXCLUIDOS 27/07/2005 15:46:18
#96246

ola pessoal td bem com vcs?
bom tenho uma rotina q joga o conteudo de uma TB em um arquivo do Word2000
mas os problemas surgiram
o conteudo das celulas das tabelas estao todas alinhadas a esquerda nessa rotina, tbm a largura das colunas se nao me enganu esta automatica pra ser dividido etre a quantidade de colunas existente.
bom aqui peço ajuda
como fazer pra jogar o conteudo das celulas pra esquerda , pra direita ou centro?
como fazer pra definir a largura de uma determinada coluna????
aqui esta o codigo q to usando:
Set bd = OpenDatabase("c: este este.mdb")
Set rs = bd.OpenRecordset("Select * From tb1")
Set WordApp = New Word.Application
WordApp.Documents.Add
Set doc = WordApp.ActiveDocument
Set sel = WordApp.Selection
doc.Tables.Add Range:=sel.Range, numrows:=1, numcolumns:=4
sel.TypeText Text:="Codigo"
sel.MoveRight unit:=12
sel.TypeText Text:="Data"
sel.MoveRight unit:=12
sel.TypeText Text:="Nome"
sel.MoveRight unit:=12
sel.TypeText Text:="valor"
sel.MoveRight unit:=12
Do Until rs.EOF
sel.TypeText Text:=rs!codigo
sel.MoveRight unit:=12
sel.TypeText Text:=rs!Data
sel.MoveRight unit:=12
sel.TypeText Text:=rs!nome
sel.MoveRight unit:=12
sel.TypeText Text:=Format(rs!valor, "##,##0.00")
sel.MoveRight unit:=12
rs.MoveNext
Loop
WordApp.Visible = True
Set WordApp = Nothing

eu agradeço desde agora.