Αλλαγή Font σε πινακα WORD

[thanosgr]

Καλημέρα,
εξάγω καποια δεδομένα σε πινακα Word και θέλω να αλλάξω την γραμματοσειρά απο Times New Roman σε Tahome size 12.

Δοκίμασα αλλα δεν μου βγάινει (παραμένει σε times new roman), μαλλον κατι λαθος απο τα properties δεν κάνω σωστά


-----------------------------------
Set appWord = GetObject(, "Word.Application")
If Err.Number <> 0 Then
'If Word isn't open, create a new instance of Word.
Set appWord = CreateObject("Word.Application")
End If
Err.Clear
On Error GoTo HandleErr
appWord.Visible = False
WordTemplateFilePath = CurrentProject.Path & "\" & DLookup("WordTemplateFileName", "Departments", "DepartmentID = '" & Me!txtDepartmentID & "'")
If Dir$(WordTemplateFilePath) = "" Then

var = MsgBox("Äåí âñÝèçêå ç äéáäñïìÞ ôïõ (Word Template)" & vbCrLf & "Äåí âñÝèçêå " & WordTemplateFilePath, vbCritical + vbOKOnly, "Ðñïóï÷Þ")
GoTo HandleErrExit
End If
Set doc = appWord.Documents.Add(WordTemplateFilePath)
With doc
'Search Preorder records not yet included in Word document
strSQL = "SELECT TmpPreorderWord.Selected, Preorder.PreorderID, Preorder.NumberID, Preorder.PreorderDate, Preorder.Service, Preorder.CarPlateNumber, Preorder.ApprovalText1, Preorder.ApprovalText2, Preorder.ApprovalText3, Preorder.ApprovalText4, Preorder.PaidbyCash, Preorder.Labour"
strSQL = strSQL & " FROM Preorder INNER JOIN TmpPreorderWord ON Preorder.PreorderID = TmpPreorderWord.PreorderID"
strSQL = strSQL & " WHERE TmpPreorderWord.Selected=True"
strSQL = strSQL & " ORDER BY Cint(Preorder.NumberID)"
Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenForwardOnly)

Do Until rst.EOF
.Range.Font.Name = "Tahoma"
.Range.Font.Size = 12
.Tables(1).Rows.Add
rowNumber = .Tables(1).Rows.Count
.Tables(1).Cell(rowNumber, 1).Range.Text = rst("NumberID") & " / " & vbCrLf & Format(rst("PreorderDate"), "d-m-yy")
.Tables(1).Cell(rowNumber, 2).Range.Text = rst("Service")

-------------------------------------------------------------------------------------------------

Ευχαριστώ