Εμφάνιση εγγράφου Word από φόρμα

[alex]

Καλησπέρα σέ όλη την παρέα

Μια βοήθεια γιατί κάπου έχω κολλήσει.
Έχω μια φόρμα και σε κάποια σημεία που εμφανίζονται με κόκκινα οι λέξεις πχ (Υπόδειγμα 1α) βάζω κουμπί εντολής να ακολουθήσει την διαδρομη να βρεί το φάκελο ΟΡΓΑΝΟΓΡΑΜΜΑ ΝΗΠΙΑΓΩΓΕΙΟΥ-ΟΡΓΑΝΟΓΡΑΜΜΑ-ΕΝΑΡΞΗ ΕΤΟΥΣ-Ενέργειες και μέσα στίς ενέργειες είναι το έγγραφο σε word(Υπόδειγμα 1α)'
Θέλω να εμφανίζει το έγγραφο (Υπόδειγμα 1α)
Το φάκελο ΟΡΓΑΝΟΓΡΑΜΜΑ ΤΟΥ ΝΗΠΙΑΓΩΓΕΙΟΥ ΤΟΝ ΣΤΕΛΝΩ ΜΕ SETUP όπου και εγκαθίσταται στο σκληρό δίσκο c'.
Έχω γράψει το κώδικα αλλά πιθανόν κάτι δεν κάνω σωστά.Παλαιότερα το είχα κάνει αλλά δεν το θυμάμαι.
Ανεβάζω κάποιο δείγμα από την βάση

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

[Tasos]

Καλησπέρα!

Αλέξανδρε, φρόντισε να αφαιρέσεις το κενό ανάμεσα στη λέξη και την κάθετο στα σημεία του κώδικα ....ΝΗΠΙΑΓΩΓΕΙΟΥ \.... .

Φιλικά

Τάσος

[alex]

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

Ευχαριστώ πολύ Τάσο να σαι καλά.

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

[alex]

Καλησπέρα τάσο και πάλι
Τελικά
Διόρθωσα τον κώδικα αλλά βγάζει έγγραφο του 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

Μήπως θέλει κάτι άλλο;

Αλέξανδρος

[Tasos]

Καλησπέρα!

Για να αποθηκεύσεις το έγγραφο (μεταβλητή "doc") χρησιμοποιείς:

doc.SaveAs "c:\ΟΡΓΑΝΟΓΡΑΜΜΑ ΝΗΠΙΑΓΩΓΕΙΟΥ\ΟΡΓΑΝΟΓΡΑΜΜΑ\ΕΝΑΡΞΗ ΕΤΟΥΣ\Ενέργειες\Υπόδειγμα 1á.doc"

Τα With και End With μπορείς να τα παραλείψεις.

Τα υπόλοιπα είναι συντακτικά εντάξει.

Τάσος

[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

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

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