Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια! |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| |||
| |||
Αλλαγή 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") ------------------------------------------------------------------------------------------------- Ευχαριστώ |
#2
| |||
| |||
Καλησπέρα Θάνο, οι εντολές ορισμού της γραμματοσειράς στον πίνακα είναι: .Table(1).Range.Font.Name="Tahoma" .Table(1).Range.Font.Size=12 Τοποθέτησέ τες αμέσως μετά την εντολή With doc Φιλικά/Γιώργος |
#3
| |||
| |||
Γειά σου Γιώργο, οχι δεν δουλεψε timew new roman. Την πρώτη στήλη του πινακα την έχω ηδη σε template με τις επικεφαλίδες σε tahoma το περιεχόμενο το αποδίδει σε Timew New Roman |
#4
| |||
| |||
Θάνο οι εντολές ορισμού της γραμματοσειράς είναι αυτές που υπέδειξα. Θα πρότεινα να ξαναδοκιμάσεις, βάζοντας τις εντολές doc.Table(1).Range.Font.Name="Tahoma" doc.Table(1).Range.Font.Size=12 αμέσως μετά την εντολή Loop |
#5
| |||
| |||
Ευχαριστώ !!
|
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Εξαγωγή δεδομένων σε πίνακα στην word | γιώργοςΚ | Access - Ερωτήσεις / Απαντήσεις | 33 | 20-10-14 15:17 |
Αλλαγή τύπου πεδίου σε συνδεδεμένο πίνακα. | dim.konst | Access - Ερωτήσεις / Απαντήσεις | 6 | 04-09-13 12:30 |
Πίνακας απο Word σε Πίνακα Access | ΣΤΕΡΓΙΟΥ ΣΠΥΡΟΣ | Access - Ερωτήσεις / Απαντήσεις | 1 | 12-02-13 21:31 |
Χωρισμός πίνακα στο Word | dididi | Word - Ερωτήσεις / Απαντήσεις | 2 | 11-05-12 17:11 |
Αριθμητικό ποσό ή ημερομηνίες ολογράφως σε πίνακα Word. | Ms-Office-Development Team | Word samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 20-12-09 02:06 |
Η ώρα είναι 07:50.