Word samples - Χρήσιμα αρχεία & παραδείγματα Αρχεία Ms-Word διαθέσιμα για τα μέλη του Forum. |
![]() |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
|
![]()
Δημιουργός: Τσιλιγιάννης Σπύρος Έτος: 2015/9 Βαθμός δυσκολίας: Προχωρημένοι χρήστες Word. Έστω, ότι θέλουμε να δημιουργήσουμε, μια σειρά αρχείων Word, με έναν αριθμό πρωτοκόλλου, της μορφής: Αριθ.Πρωτ./002001/GR/21.9.15 όπου 002001 ένας αριθμός, μορφοποιημένος ανάλογα με τις ανάγκες μας και ταυτόχρονα, αυξανόμενος κατά 1 σε κάθε νέο αρχείο, που δημιουργούμε. Βήμα 1 Δημιουργούμε, ένα πρότυπο αρχείο και στο σημείο που θέλουμε τον αριθμό πρωτοκόλλου, πληκτρολογούμε: Αριθ.Πρωτ./|/GR/21.9.15 Βήμα 2 Βάζουμε τον κέρσορα του ποντικιού, στο κόκκινο σημείο του κειμένου και δημιουργούμε έναν σελιδοδείκτη, (bookmark) με όνομα πχ ■ ProtoCol. Βήμα 3 Δημιουργούμε, έναν φάκελο στην επιφάνεια εργασίας, με όνομα ■ MyProto Βήμα 4 Μέσα σε αυτόν, δημιουργούμε, ένα αρχείο .txt με όνομα ■ Settings και πληκτρολογούμε: [MacroSettings] ProtoCol = 002000 σε δύο σειρές, όπου 002000 ο αριθμός εκκίνησης -1 (θέλω η αρίθμηση να αρχίζει από 2001) Βήμα 5 Σε μια module του πρότυπου Word αρχείου, βάζουμε τον κώδικα: Κώδικας: Sub AutoNew() Dim ProtoCol As String ProtoCol = System.PrivateProfileString("Πλήρης Διαδρομή", "MacroSettings", "ProtoCol") If ProtoCol = "" Then ProtoCol = 2000 Else ProtoCol = ProtoCol + 1 End If System.PrivateProfileString("Πλήρης Διαδρομή", "MacroSettings", "ProtoCol") = ProtoCol ActiveDocument.Bookmarks("ProtoCol").Range.InsertBefore Format(ProtoCol, "00000#") 'Αυτό το format θα δώσει 002001. Αλλάξτε το όπως θέλετε. ActiveDocument.SaveAs FileName:="MyNewDoc" & Format(ProtoCol, "00000#") End Sub Έχοντας ολοκληρώσει και αποθηκεύσει τα πάντα, κάθε φορά, που θα κάνουμε διπλό κλικ, στο πρότυπο Word, ένα νέο αρχείο θα δημιουργείται, με αύξοντα αριθμό +1 στο πρωτόκολλο. Σημείωση: Στο αρχείο που ακολουθεί, θα πρέπει να εισάγετε, την διαδρομή στον κώδικα και να τον ενεργοποιήσετε. Για να «φτάσετε» τον κώδικα, πιέστε Alt + F11 *Αν επιθυμείτε, άλλη αρίθμηση, αλλάξτε: 1. Στον κώδικα την γραμμή ▬ ProtoCol = 2000 και την μορφοποίηση. 2. Στο .txt την γραμμή ▬ ProtoCol = 002000 |
![]() |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
Εργαλεία Θεμάτων | |
Τρόποι εμφάνισης | |
| |
| ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Δημιουργία αριθμού πρωτοκόλλου | gmcrees | Word - Ερωτήσεις / Απαντήσεις | 1 | 21-09-15 21:02 |
[ Φόρμες ] Αυτόματη απόδοση αύξοντα αριθμού | gmax | Access - Ερωτήσεις / Απαντήσεις | 2 | 27-10-11 12:45 |
[VBA] Δημιουργία Backup πολλών αρχείων | mak | Excel - Ερωτήσεις / Απαντήσεις | 7 | 23-07-11 19:21 |
Δημιουργία Πίνακα Με Συγκεκριμένο Αριθμό Εγγραφών | mistirios | Access - Ερωτήσεις / Απαντήσεις | 42 | 07-09-10 11:58 |
[Εκτύπωση] Δημιουργία – εκτύπωση Απόδειξης Δαπανών με αύξοντα αριθμό παραστατικού. | Ms-Office-Development Team | Excel samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 15-05-10 21:52 |
Η ώρα είναι 13:03.