01-10-12, 23:15
|
| Όνομα: Αλέξανδρος Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2013 Γλώσσα λογισμικού Office: Ελληνική | | Εγγραφή: 22-01-2010 Περιοχή: ΑΡΤΑ
Μηνύματα: 521
| |
Καλησπέρα τάσο και πάλι
Τελικά
Διόρθωσα τον κώδικα αλλά βγάζει έγγραφο του Word κενό και δεν δουλεύει. Κώδικας: Private Sub Εντολή12_Click()
Dim appWord As Object
Dim doc As Object
On Error Resume Next
Set appWord = CreateObject("Word.Application")
appWord.Visible = True
Set doc = appWord.Documents.Open("c:\ΟΡΓΑΝΟΓΡΑΜΜΑ ΝΗΠΙΑΓΩΓΕΙΟΥ\ΟΡΓΑΝΟΓΡΑΜΜΑ\ΕΝΑΡΞΗ ΕΤΟΥΣ\Ενέργειες\Υπόδειγμα 1á.doc", , True)
With doc
.SaveAs "c:\ΟΡΓΑΝΟΓΡΑΜΜΑ ΝΗΠΙΑΓΩΓΕΙΟΥ\ΟΡΓΑΝΟΓΡΑΜΜΑ\ΕΝΑΡΞΗ ΕΤΟΥΣ\Ενέργειες\Υπόδειγμα 1á.doc", , True)", .doc
End With
Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
MsgBox Err.Number & ": " & Err.Description
'End If
End Sub
Μήπως θέλει κάτι άλλο;
Αλέξανδρος
Τελευταία επεξεργασία από το χρήστη alex : 01-10-12 στις 23:29.
|