€ notatie van excel naar word

[esll]

Ik zou graag een bedrag, zoals is weergegeven in excel overzetten via een macro naar een word document.
Ik krijg nu alleen de ingevoerde waarde.
Zie bijlage.
Kan iemand mij helpen?

Alvast bedankt.

 

[AlexV]

Hoi,

De macro doet het goed.
Als echter het euro teken wil meegeven kun je dat doen door.

Word.Application.Selection.TypeText Text:="€" & Sheets("Blad1").Cells(2, 2)

Of in de cells zelf niet het format maar een symbol van euro teken invoeren.

Gr,
Alex,

 

[snb]

Of

Sub Macro1()
   With GetObject("C:\voorbeeld.doc")
      .content.insertafter formatcurrency(Sheets("Blad1").Cells(2, 2))
      .saveas "C:\ongelooflijk.doc"
      .close 0
   end with
End Sub

PS. maak eerst een leeg Word-document; sla op als C:\voorbeeld.doc