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

Forum (https://www.ms-office.gr/forum/)

- Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)

- - Εμφάνιση εγγράφου Word από φόρμα (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/2089-emfanisi-eggrafoy-word-apo-forma.html)

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

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

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

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

Καλησπέρα!

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

Φιλικά

Τάσος

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

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

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

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

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

Αλέξανδρος

Καλησπέρα!

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

Κώδικας:

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

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

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

Τάσος

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

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

Κώδικας:

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

:007:

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

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