Problemas, VB6 com Word2000?

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.