Moving data from excel to Word

[artikox]

Hello
I would like to move a number from excel to word with decimal number formatting, like 10.00
I have tried with this program but the number moved to word is 10 and not 10.00, please could someone help me?
Thank you
-------------------------------------------------------------------
Sub ExcelToWord()
Dim objWord As Object
Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
objWord.Documents.Open "C:\New\Test.docx"
With objWord.ActiveDocument

.Bookmarks("Book1").Range.Text = ws.Range("A1").Value ' value in A1 is 10.00

End With
Set objWord = Nothing

End Sub

 

[NdNoviceHlp]

Hi artikox. You should be able to format a number by...

.Bookmarks("Book1").Range.Text = FormatNumber(ws.Range("A1").Value, 2)

Also, you need to save and close the document, then Quit the ObjWord application (ie. objWord.Quit) before you set the objWord application to Nothing. HTH. Dave
ps. please use code tags

 

[artikox]

Hi NdNoviceHlp, thank you so much for your elegant suggestion
I have found another solution that seems to work
.Bookmarks("Book1").Range.Text = Format (ws.Range(Cells(1, 1), Cells(1, 1)).Value, "#,##0.00") this is a general Range formula applied on a single cell a bit unorthodox...

​

 

[NdNoviceHlp]

You are welcome. Thanks for posting your outcome, Dave