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

Καλημέρα,
εξάγω καποια δεδομένα σε πινακα 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")

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

Ευχαριστώ

Καλησπέρα

Θάνο, οι εντολές ορισμού της γραμματοσειράς στον πίνακα είναι:

.Table(1).Range.Font.Name="Tahoma"

.Table(1).Range.Font.Size=12

Τοποθέτησέ τες αμέσως μετά την εντολή With doc

Φιλικά/Γιώργος

Γειά σου Γιώργο, οχι δεν δουλεψε timew new roman.
Την πρώτη στήλη του πινακα την έχω ηδη σε template με τις επικεφαλίδες σε tahoma
το περιεχόμενο το αποδίδει σε Timew New Roman

Θάνο οι εντολές ορισμού της γραμματοσειράς είναι αυτές που υπέδειξα.

Θα πρότεινα να ξαναδοκιμάσεις, βάζοντας τις εντολές

doc.Table(1).Range.Font.Name="Tahoma"

doc.Table(1).Range.Font.Size=12

αμέσως μετά την εντολή Loop

Ευχαριστώ !!