Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 17-10-14, 11: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")

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

Ευχαριστώ
Απάντηση με παράθεση
  #2  
Παλιά 17-10-14, 14:47
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

Καλησπέρα

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

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

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

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

Φιλικά/Γιώργος
Απάντηση με παράθεση
  #3  
Παλιά 23-10-14, 12:53
Όνομα: Θάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-05-2012
Περιοχή: Λάρισα
Μηνύματα: 49
Προεπιλογή

Γειά σου Γιώργο, οχι δεν δουλεψε timew new roman.
Την πρώτη στήλη του πινακα την έχω ηδη σε template με τις επικεφαλίδες σε tahoma
το περιεχόμενο το αποδίδει σε Timew New Roman
Απάντηση με παράθεση
  #4  
Παλιά 23-10-14, 15:19
Όνομα: Γιώργος
Έκδοση λογισμικού Office: Ms-Office 2010
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 18-06-2010
Μηνύματα: 3.737
Προεπιλογή

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

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

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

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

αμέσως μετά την εντολή Loop
Απάντηση με παράθεση
  #5  
Παλιά 17-11-14, 09:50
Όνομα: Θάνος
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 09-05-2012
Περιοχή: Λάρισα
Μηνύματα: 49
Προεπιλογή

Ευχαριστώ !!
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός 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.