Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Word > Word samples - Χρήσιμα αρχεία & παραδείγματα > Δημιουργία, αρχείων με αύξοντα αριθμό πρωτοκόλλου.

Word samples - Χρήσιμα αρχεία & παραδείγματα Αρχεία Ms-Word διαθέσιμα για τα μέλη του Forum.

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 21-09-15, 20:55
Το avatar του χρήστη Spirosgr
Συντονιστής
Όνομα: Σπύρος Τσιλιγιάννης
Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική
 
Εγγραφή: 22-11-2011
Περιοχή: Αθήνα
Μηνύματα: 1.875
Προεπιλογή Δημιουργία, αρχείων με αύξοντα αριθμό πρωτοκόλλου.

Δημιουργός: Τσιλιγιάννης Σπύρος
Έτος: 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
όπου "Πλήρης Διαδρομή" η διαδρομή του .txt αρχείου μέσα σε εισαγωγικά.

Έχοντας ολοκληρώσει και αποθηκεύσει τα πάντα, κάθε φορά, που θα κάνουμε
διπλό κλικ, στο πρότυπο Word, ένα νέο αρχείο θα δημιουργείται, με αύξοντα αριθμό +1
στο πρωτόκολλο.

Σημείωση:
Στο αρχείο που ακολουθεί, θα πρέπει να εισάγετε,
την διαδρομή στον κώδικα και να τον ενεργοποιήσετε.
Για να «φτάσετε» τον κώδικα, πιέστε Alt + F11

*Αν επιθυμείτε, άλλη αρίθμηση, αλλάξτε:
1. Στον κώδικα την γραμμή ▬ ProtoCol = 2000 και την μορφοποίηση.
2. Στο .txt την γραμμή ▬ ProtoCol = 002000
Συνημμένα Αρχεία
Τύπος Αρχείου: dotm ProtoCol.dotm (32,3 KB, 120 εμφανίσεις)
Τύπος Αρχείου: txt Settings.txt (32 Bytes, 64 εμφανίσεις)
__________________
Spirosgr
spirostsiligiannis@gmail.com
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι σε λειτουργία
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός 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


Η ώρα είναι 10:44.