AJUDA - ENVIAR CAMPO NUMERICO PARA O WORD

BRUNOBPR 27/08/2013 21:58:47
#428210

Ola a todos que puderem me ajudar, sou inciante no VB6, porem preciso da sequinte ajuda

fiz um aplicativo que envia campos via ado para o word, porem um destes campos apesar de estar no banco de dados como unidade monetaria(banco em acess) ao enviar para o word ele nao fica formatado, alguem pode me ajudar abaixo segue o codigo utilizado
Dim objDoc As Word.Document
Set objWord = New Word.Application
objWord.Visible = True
Set objDoc = objWord.Documents.Open(App.Path & [Ô]\Anuncio.doc[Ô])
objDoc.Activate
objDoc.Bookmarks([Ô]Tdescricao[Ô]).Range.Text = Data.rsCO.Fields([Ô]DESCRICAO[Ô]).Value
objDoc.Bookmarks([Ô]Tcor[Ô]).Range.Text = Data.rsCO.Fields([Ô]COR[Ô]).Value
objDoc.Bookmarks([Ô]Tano[Ô]).Range.Text = Data.rsCO.Fields([Ô]ANO[Ô]).Value
objDoc.Bookmarks([Ô]Tvalor[Ô]).Range.Text = Data.rsCO.Fields([Ô]VLRV[Ô]).Value (este campo esta indo para o word sem formato numerico)



Set objDoc = Nothing
Set objWord = Nothing