17-10-14, 10:08
|
Όνομα: Θάνος Έκδοση λογισμικού Office: Ms-Office 2007 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 09-05-2012 Περιοχή: Λάρισα
Μηνύματα: 49
| |
Αλλαγή 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")
-------------------------------------------------------------------------------------------------
Ευχαριστώ
|