I have a excel workbook with data which I need to export to word. I'm very much a VBA novice but using a number of other posts, I have managed to put together the VBA to do this however I am stuck on the final point which is setting the formatting of the fields. I need to format some fields as currency ($1,000) while others as dates (30 May 2013). I have wasted a lot of time on google but I am stumped and would love some help.

My code so far is below. For clarity, the bookmarks "inception" and "expiry" should be formatted as "30 May 2013", whereas he bookmark "price" should be formatted as "$1,000".

Sub CertGenerator()

On Error GoTo errorHandler
Dim wdApp As Word.Application
Dim myDoc As Word.Document
Dim mywdRange As Word.Range

Dim Inception As Excel.Range
Dim Expiry As Excel.Range
Dim Price As Excel.Range

Set wdApp = New Word.Application
With wdApp
.Visible = True
.WindowState = wdWindowStateMaximize
End With

Set myDoc = wdApp.Documents.Add(Template:="C:\Administration\Templates\Template 2013.docx")

Set Inception = Sheets("Data Sheet").Range("Inception")
Set Expiry = Sheets("Data Sheet").Range("Expiry")
Set Price = Sheets("Data Sheet").Range("Price")


With myDoc.Bookmarks

.Item("Inception").Range.InsertAfter Inception
.Item("Expiry").Range.InsertAfter Expiry
.Item("Price").Range.InsertAfter Price

End With


errorHandler:
Set wdApp = Nothing
Set myDoc = Nothing
Set mywdRange = Nothing

End Sub