[alex]

Καλησπέρα Τάσο

Τα έκανα όλα και πάλι δεν δούλεψε.
Ενώ βασιζόμενος στο ότι δεν έχει συντακτικά λάθη και συνεχίζει να παρουσιάζει το πρόβλημα. Έκανα και την διόρθωση για την αποθήκευση αλλά και την τελική αλλαγή στην ονοματολογία(τελικά παίζει μεγάλο ρόλο η ονοματολογία) και τελικά δούλεψε.
Προηγούμενος κώδικας

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

Νέος κώδικας

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:\ORGANOGRAMA_NIPIAGOGIOU\ORGANOGRAMA\ENARXI_ETOUS\Ενέργειες\Υπόδειγμα 1á.doc", , True)
'With doc
doc.SaveAs "c:\ORGANOGRAMA_NIPIAGOGIOU\ORGANOGRAMA\ENARXI_ETOUS\Ενέργειες\Υπόδειγμα 1á.doc"

Set doc = Nothing
Set appWord = Nothing
Exit Sub
errHandler:
MsgBox Err.Number & ": " & Err.Description
'End If
End Sub

Τελικά το πρόβλημα λύθηκε
Και πάλι ένα μεγάλο ευχαριστώ για τον πολύτιμο χρόνο που διέθεσες για την επίλυση του προβλήματος.

Φιλικά/Αλέξανδρος